Attribute VB_Name = "Module3"
' Array Definition
Global adbl_lveioe(400)
Global adbl_llyer(400)
Global adbl_llmon(400)
Global adbl_lvage(400)
Global adbl_lvrem(400)
Global adbl_lvamrb(400)
Global adbl_lvamr6(400)
Global adbl_lvamrc(400)
Global adbl_lvamre(400)
Global adbl_lvamr5(400)
Global adbl_lramr7(400)
Global adbl_lramr8(400)
Global adbl_lvpico(400)
Global adbl_lvprip(400)
Global adbl_lvpria(400)
Global adbl_lvintp(400)
Global adbl_lvinta(400)
Global adbl_lvcurt(400)
Global adbl_acqacnt(400)
Global adbl_acqabal(400)
Global adbl_rrpocnt(400)
Global adbl_rrpobal(400)
Global adbl_lvcpr(400)
Global adbl_lfcpra(400)
Global adbl_lfvpo(400)
Global adbl_lrpreb(400)
Global adbl_lrpre6(400)
Global adbl_lrpref(400)
Global adbl_lrprec(400)
Global adbl_lrpree(400)
Global adbl_lrpre5(400)
Global adbl_lrpre7(400)
Global adbl_lrpre8(400)
Global adbl_llcntb(400)
Global adbl_llcntp(400)
Global adbl_llcntf(400)
Global adbl_llcnte(400)
Global adbl_llcnta(400)
Global adbl_llcntt(400)
Global adbl_llbalb(400)
Global adbl_llbalm(400)
Global adbl_llbalp(400)
Global adbl_llbalf(400)
Global adbl_llbalc(400)
Global adbl_llbale(400)
Global adbl_llbala(400)
Global adbl_llpico(400)
Global adbl_llprit(400)
Global adbl_llintt(400)
Global adbl_avdcsh(400)
Global adbl_avdcsh1(400)
Global adbl_lvbipi(400)
Global adbl_labipi(400)
Global adbl_lvbipo(400)
Global adbl_labipo(400)
Global adbl_llfee(400)
Global adbl_llfeed(400)
Global adbl_llfee1(400)
Global adbl_llanc(400)
Global adbl_llanc1(400)
Global adbl_llanc2(400)
Global adbl_lllfep(400)
Global adbl_lllfee(400)
Global adbl_llepi(400)
Global adbl_llepo(400)
Global adbl_lleti(400)
Global adbl_llcnv(400)
Global adbl_llcst(400)
Global adbl_llcpay(400)
Global adbl_llcdel(400)
Global adbl_llclat(400)
Global adbl_llfcc(400)
Global adbl_llflsh(400)
Global adbl_llflpi(400)
Global adbl_llflti(400)
Global adbl_llflsv(400)
Global adbl_llflsi(400)
Global adbl_llflsp(400)
Global adbl_laadib(400)
Global adbl_lladvi(400)
Global adbl_laadpb(400)
Global adbl_lladvp(400)
Global adbl_llioe(400)
Global adbl_llinl(400)
Global adbl_llinc8(400)
Global adbl_llanc8(400)
Global adbl_llern8(400)
Global adbl_llexp8(400)
Global adbl_llfor8(400)
Global adbl_lladv8(400)
Global adbl_llnet(400)
Global adbl_lltax(400)
Global adbl_llnet1(400)
Global adbl_lzrate(400)
Global adbl_lfrate(400)
Global adbl_lzsrt1(400)
Global adbl_lzsrt2(400)
Global adbl_lzsrt3(400)
Global adbl_lzsrt4(400)
Global adbl_lycshd(400)
Global adbl_lybefc(400)
Global adbl_lybef1(400)
Global adbl_lybevr(400)
Global adbl_lybevp(400)
Global adbl_ly0001(400)
Global adbl_ly0002(400)
Global adbl_llpurp(400)
Global adbl_lvamoy(400)
Global adbl_lfvam(400)
Global adbl_lyirr(400)
Global adbl_lyirr5(400)
Global adbl_lyirrf(400)
Global adbl_llamra(400)
Global adbl_llamrt(400)
Global adbl_lltaxt(400)
Global adbl_llnet2(400)
Global adbl_llamra2(400)
Global adbl_llamrt2(400)
Global adbl_lltaxt2(400)
Global adbl_llnet22(400)
Global adbl_llcsh12(400)
Global adbl_lftax(400)
Global adbl_lfvdr(400)
Global adbl_lldbam(400)
Global adbl_lleqam(400)
Global adbl_lzrqr(400)
Global adbl_lfrqr(400)
Global adbl_lfrdb(400)
Global adbl_lfvdp(400)
Global adbl_lldbtb(400)
Global adbl_lldbre(400)
Global adbl_lldbin(400)
Global adbl_lldbtx(400)
Global adbl_llcsad(400)
Global adbl_lzrri(400)
Global adbl_lfrri(400)
Global adbl_llcsbb(400)
Global adbl_llint0(400)
Global adbl_llcsin(400)
Global adbl_lvsfee(400)
Global adbl_lfvsf(400)
Global adbl_lvsdpl(400)
Global adbl_lfvsd(400)
Global adbl_lznsd(400)
Global adbl_lfnsd(400)
Global adbl_lvanci(400)
Global adbl_lzanci(400)
Global adbl_lfanci(400)
Global adbl_lvanc1(400)
Global adbl_lvanc2(400)
Global adbl_lzanc2(400)
Global adbl_lfanc2(400)
Global adbl_lfvlc(400)
Global adbl_lvlatp(400)
Global adbl_lfvlp(400)
Global adbl_lvlate(400)
Global adbl_lfvle(400)
Global adbl_lzrie(400)
Global adbl_lfrie(400)
Global adbl_cshreg(400)
Global adbl_avrday(400)
Global adbl_avrday1(400)
Global adbl_avrpct(400)
Global adbl_avrpct1(400)
Global adbl_lfpiu(400)
Global adbl_cshpay(400)
Global adbl_lftiu(400)
Global adbl_lzntx(400)
Global adbl_lfntx(400)
Global adbl_lznix(400)
Global adbl_lfnix(400)
Global adbl_lfcser(400)
Global adbl_lfcarm(400)
Global adbl_lfcinv(400)
Global adbl_lfvcst(400)
Global adbl_lzncs(400)
Global adbl_lfncs(400)
Global adbl_lfccnv(400)
Global adbl_lfcnv(400)
Global adbl_lfcpre(400)
Global adbl_lfd10(400)
Global adbl_lfd17(400)
Global adbl_lvdspr(400)
Global adbl_lrdel(400)
Global adbl_lcdel(400)
Global adbl_lvdel(400)
Global adbl_lfdel(400)
Global adbl_lfdchg(400)
Global adbl_lfclat(400)
Global adbl_lfcdel(400)
Global adbl_lrfor(400)
Global adbl_lcfor(400)
Global adbl_lffcfa(400)
Global adbl_llfccn(400)
Global adbl_llfcbl(400)
Global adbl_lvfor(400)
Global adbl_lffor(400)
Global adbl_lvfspr(400)
Global adbl_lffcp(400)
Global adbl_lffcm(400)
Global adbl_lfcfor(400)
Global adbl_lflfor(400)
Global adbl_fc_rfee(400)
Global adbl_fc_rpi(400)
Global adbl_fc_rti(400)
Global adbl_fc_iplo(400)
Global adbl_fc_pblo(400)
Global adbl_lrdelt(400)
Global adbl_lcdelt(400)

Global adbl_lfria(400)
Global adbl_advint(400)
Global adbl_advimd(400)
Global adbl_advimf(400)
Global adbl_advpri(400)
Global adbl_advpmd(400)
Global adbl_advpmf(400)
Global adbl_avppct5(400)
Global adbl_paylst(400)

'
' Vector load file
' Reads and processes vectors
'   Parm1 Array name
'   Parm2 File name
'  The vector is a file, a number, or a number per year
Sub Vector1(InptArray(), str_name)

Dim str_vline, str_01, str_namx
Dim filevect
   
' Annual value contains /y
str_namx = UCase(str_name)
If InStr(str_namx, "/Y") > 0 Then
  
  ' File name
  str_name = Left(str_name, (InStr(str_name, "/Y") - 1))
  
  For i = 1 To 400
    InptArray(i) = CDbl(str_name) / 12
  Next i
  GoTo End_01
  GoTo End_01
End If

' Input valuation file
If Left(str_name, 1) >= "A" And Left(str_name, 1) <= "Z" Then
  filevect = FreeFile
  str_namx = (Trim(r_il.str_vcx_dir) + "/" + Trim(str_name) + ".vec")
  ERRPRINT "vector", str_namx, 0, 0
  Open str_namx For Input As filevect
  i = 0
  Do While Not EOF(filevect)
      i = i + 1
      Line Input #filevect, str_line
      str_01 = Mid(str_line, 27, 10)
      InptArray(i) = CDbl(str_01)
  Loop
  Close #filevect
  GoTo End_01
End If

' It is null or blank
If Left(str_name, 3) = "---" Then
  GoTo End_01
End If

' It is null or blank
If IsNull(CDbl(str_name)) Then
  GoTo End_01
End If

' single Value
For i = 1 To 400
  InptArray(i) = CDbl(str_name)
Next i
GoTo End_01

End_01:

PRINTV InptArray

End Sub

' Vector2 - Vector load file
' Reads and processes vectors
'   Parm1 Array name
'   Parm2 File name
'   parm3 column name
'   parm4 column number
'  The vector is a file, a number, or a number per year
Sub Vector2(InptArray(), str_name, str_id, int_arraynum)

Dim str_vline, str_01

' Name of matrix

Form1.grid1.Col = int_arraynum
Form1.grid1.ColWidth(int_arraynum) = 1200

Form1.grid1.Row = 0
Form1.grid1.Text = str_id

Form1.grid1.Row = 1
Form1.grid1.Text = str_name
  
' Annual value contains /y
For i = 2 To 380
  Form1.grid1.Row = i
  Form1.grid1.Text = CStr(InptArray(i))
Next i
 
End Sub