MINI
C:
/
FIVSIN
/
ENG
/
Upload File:
files >> C:/FIVSIN/ENG/FIVTRANS.ENG
FIVFIV.FOR 5 ; 1 (/" Enter name of INPUT control file (e.g., B:SAMPLE.FIV)?",1X," "\) FIVFIV.FOR 7 ; 2 (A24) FIVFIV.FOR 8 ; 3 (/" Enter destination for OUTPUT (e.g., B:SAMPLE.OUT, PRN, CON)?",1X," "\) FIVFIV.FOR 50 ; 4 (/1X,"****Error: Output file must be a different file."/) FIVFIV.FOR 12 ; 5 (A1,I3,16I4) FIVFIV.FOR 18 ; 6 (A1) FIVFIV.FOR 13 ; 7 (1X,16A1) FIVFIV.FOR 68 ; 8 (/" Working . . .") FIVFIV.FOR 3010 ; 9 ("1") FIXFORMAT 7110 ; 10 ; 16 ("3",31X,"* * * HALT * * *",31X,"1") NOTE.FOR 500 ; 11 (//35X," FIVFIV 98d"//9X," Copyright 2000 Frederic C. Shorter and HPN Technologies, Inc."/30X," 2900 Purchase Street"/31X," Purchase, NY 10577"/37X," U.S.A."//26X," E-mail: support@hpntech.com"/ 11X,"Obtain updates from www.visitus.com/popsite/software/fivfiv"///13X," Funding for the FIVFIV 11.1 to FIVFIV 98d upgrade from:"//24X," The Population Reference Bureau"/38X," and"/20X," The David and Lucile Packard Foundation"//) GET.FOR 5021 ; 12 (20A4,T1,A24,T1,A4,2A8,T1,A8) GET.FOR 5011 ; 13 (20A4,T1,A24,T1,A4,2A8,T1,A8,1X,A1,I3,8F8.0) GET.FOR 499 ; 14 ("1") GET.FOR 500 ; 15 (" INPUT CONTROL FILE FOR PROJECTION",I3//" ",8I10/" ",8("1234567890")) GET.FOR 510 ; 16 (1X,20A4) GET.FOR 5015 ; 17 (5X,"**** NO LIFE TABLES SELECTED, ASSUMING:",A8) GET.FOR 6020 ; 18 (" **** EMPTY RECORD WHEN EXPECTING LT SUBJECT; OR INVALID LIFE TABLE SUBJECT"/) GET.FOR 5010 ; 19 (20A4,T1,A8,1X,A1,I3,8F8.0) GET.FOR 5012 ; 20 (A1) GET.FOR 6010 ; 21 (" SOMETHING WRONG WITH LIFE TABLES: Expecting ",A8,", Found ",A8,";"/10X,"Expecting ",A1,", Found ",A1,"; Expecting ",I3,", Found",I3) GET.FOR 998 ; 22 (1X,16A1) GET.FOR 2050 ; 23 ("HALT",68("*")) RIN.FOR 5021 ; 24 (1X,20A4) RIN.FOR 6030 ; 25 (" ***** ERROR IN SUBJECT:",A4,2A8,"...... ",A1,".") RIN.FOR 5020 ; 26 (20A4,T1,A4,2A8) RIN.FOR 6050 ; 27 (" ***** INVALID SUBJECT HEADER:",A4,2A8) RIN.FOR 5030 ; 28 (20A4,T1,A3,I4,1X,18A4) RIN.FOR 5040 ; 29 (20A4,T1,A3,I4,A6,I2) RIN.FOR 5050 ; 30 (20A4,T1,A4,1X,A1,1X,A1,I2,7F10.0) RIN.FOR 5055 ; 31 (" ***** A VALID OLD.POP NOT FOUND") RIN.FOR 5060 ; 32 (20A4,T1,A6,A1,3X,F10.0) RIN.FOR 5070 ; 33 (20A4,T1,A8,2A1,7F10.0) RIN.FOR 5080 ; 34 (20A4,T1,A6,A4,7F10.0) RIN.FOR 5090 ; 35 (20A4,T1,A7,I1,1X,I1,7F10.0) RIN.FOR 5100 ; 36 (20A4,T1,A4,A1,I1,1X,I1,1X,A1,7F10.0) RIN.FOR 5110 ; 37 (20A4,T1,A6,A1,14(I2,1X),30X,I1) RIN.FOR 7005 ; 38 ("0**** ERROR: ",A4,A8," NOT ALLOWED IN AGGREGATE RUN") RIN.FOR 5120 ; 39 (20A4,T1,A5,A3,1X,17A4,A3) RIN.FOR 7010 ; 40 (I1,18A4,3X,I1,I3) RIN.FOR 7020 ; 41 (2I1,2(F8.5,2(F7.2,F8.5)),I2) RIN.FOR 5130 ; 42 (20A4,T1,A7,A1,1X,A1,7F10.0) RIN.FOR 7030 ; 43 (I2,I78) RIN.FOR 7040 ; 44 (2I1,8F8.5,I14) RIN.FOR 7045 ; 45 (2X,8F8.6,F8.2,I6) RIN.FOR 5140 ; 46 (20A4,T1,A6,I1,1X,18A4) RIN.FOR 5150 ; 47 (20A4,T1,A6,1X,A1,24(1X,I2)) RIN.FOR 7050 ; 48 (I1,24I2,I31) RIN.FOR 5160 ; 49 (20A4,T1,A4,I1,1X,A1,1X,A1,1X,7F10.0) RIN.FOR 7055 ; 50 ("0****ERROR: ACCEPTABLE RANGE FOR RATES IS 0. TO 9.999") RIN.FOR 7060 ; 51 (2I1,F10.2,6F10.7,I8) RIN.FOR 5310 ; 52 (20A4,T1,A5,8(1X,I4)) RIN.FOR 5320 ; 53 (20A4,T1,A4) RIN.FOR 5321 ; 54 (/" ****ERROR: Expecting MEMEND following MEMO"/) FIXFORMAT 7065 ; 55 ; 18 ("3",30X,"END BAD PROJECTION",28X,"999") OUT.FOR 6100 ; 56 (///" ***** ERROR. Either there are no mortality assumptions in control file or"/" they are outside the range of the models."//" Value causing error is:",F15.5," for sex",I2," (1=F) and period",I2//" Do your values and type of mortality input match?") OUT.FOR 6110 ; 57 ("1",18A4,1X,"Pg",I2) OUT.FOR 6145 ; 58 (" REVERSE PROJECTION") OUT.FOR 6150 ; 59 (/1X,3A4) OUT.FOR 6120 ; 60 (6X,"Sex ratio at birth: ",F6.1," Males per 100 Females") OUT.FOR 2050 ; 61 (18A4,3I2,I4) OUT.FOR 2051 ; 62 (F10.4,(7F10.1)) OUT.FOR 6160 ; 63 (/6X,"DISTRIBUTION BY AGE OF FERTILITY (Percent)",A12) OUT.FOR 6162 ; 64 (17X,7(I4,"-",4X)) FIXFORMAT 6170 ; 65 ; 3 (6X,"AGE",9X,7(I4,5X)) OUT.FOR 6180 ; 66 (6X,A5,1X,7F9.1) FIXFORMAT 6190 ; 67 ; 5 (6X,"TOTAL",1X,7(4X,"100.0")/) OUT.FOR 6195 ; 68 (/" FERTILITY FOUND BY REVERSE PROJECTION") OUT.FOR 998 ; 69 (1X,16A1) FIVE.FOR 6011 ; 70 (1X) FIVE.FOR 5050 ; 71 ("1***INPUT POPULATION HAS ZERO OR NEGATIVE VALUES IN SOME AGE GROUPS. VALUES"/" SET AT .001 TO CONTINUE.") FIVE.FOR 6245 ; 72 ("1",18A4,1X,"Pg",I2///1X,"YEARLY MIGRANTS (NET) COMPUTED BY 'FINDMIGRATION'"/) FIVE.FOR 6110 ; 73 ("1",18A4,1X,"Pg",I2) FIVE.FOR 6145 ; 74 (/" YEARLY MIGRANTS (NET) PER 1000 POPULATION: ASSUMPTIONS"/) FIVE.FOR 6150 ; 75 (/" YEARLY MIGRANTS (NET): ASSUMPTIONS (Use same units as population)"/) FIVE.FOR 6280 ; 76 (" *** ERROR -- FAILURE TO CONVERGE IN ATTEMPTING TO FIND MIGRATION. EXECUTION"/" CONTINUES WITH MIGRATION LAST ATTEMPTED. SEE PERIOD",I2) FIVE.FOR 2070 ; 77 (8I5/(5F15.5)) FIVE.FOR 6391 ; 78 ("1") WRS.FOR 7000 ; 79 (20A4) WRS.FOR 7010 ; 80 (I1,18A4,3X,I1,I3) WRS.FOR 7080 ; 81 (I4,I1,A1,14I2,3F10.6,I4,3I4) WRS.FOR 7090 ; 82 (8F9.2,I8) WRS.FOR 7100 ; 83 (4F9.6,5F8.1,I4) WRS.FOR 6390 ; 84 (" Note: Single-year single-age output (SINSIN) will follow the last projection.") PR1.FOR 6002 ; 85 (//" *****ERROR: NO FERTILITY ASSUMPTIONS WERE MADE."//" CONTINUING WITH GARBAGE NUMBERS FOR FERTILITY.") FIXFORMAT 1010 ; 86 ; 9 (/1X,"FERTILITY",1X,18A4) PR1.FOR 1020 ; 87 (6X,"Sex ratio at birth =",F6.1," Males per 100 Females") PR1.FOR 6196 ; 88 (6X,4A8) PR1.FOR 6160 ; 89 (17X,7(I4,"-",4X)) FIXFORMAT 6170 ; 90 ; 3 (6X,"AGE",9X,7(I4,5X)) PR1.FOR 2020 ; 91 (5F15.6) PR1.FOR 6180 ; 92 (6X,A5,1X,7F9.3) FIXFORMAT 6200 ; 93 ; 9 (2X,"TOT*5=TFR",1X,7F9.3) FIXFORMAT 6300 ; 94 ; 3 (/6X,"GRR",3X,7F9.3) FIXFORMAT 6210 ; 95 ; 3; 8 (6X,"NRR",3X,7F9.3/1X,"MEAN AGE",3X,7F9.3) PR1.FOR 6214 ; 96 (" Reverse projection produces a proportion of births that are female of"/,14X,F7.3,6F9.3) PR1.FOR 1050 ; 97 (/" MORTALITY AGGREGATED") PR1.FOR 1055 ; 98 (/" MORTALITY") PR1.FOR 6220 ; 99 (3X,A8,7X,7(I4,5X)) PR1.FOR 6240 ; 100 (2(3(1X,A4,1X,A7,F8.2,6F9.2/)/),3(1X,A4,1X,A7,F8.2,6F9.2/)) FIXFORMAT 6250 ; 101 ; 13; 11;3 (1X,"Split for 70+",3X,7(I4,5X)/1X,"75+/70+ FEM",F9.3,6F9.3/9X,"MAL",F9.3,6F9.3) PR1.FOR 6110 ; 102 ("1",18A4,1X,"Pg",I2) PR1.FOR 6215 ; 103 (" SURVIVAL RATES: * = P(BIRTH); 0 = 5L5/5L0; 5 = 5L10/5L5; LASTPX = T80/T75") PR1.FOR 6216 ; 104 (6X,A8,3X,7(I4,"-",4X)) PR1.FOR 6217 ; 105 (7X,"*",5X,7F9.5) PR1.FOR 6218 ; 106 (6X,A2,5X,7F9.5) FIXFORMAT 6221 ; 107 ; 6 (6X,"LASTPX",1X,7F9.5) PR1.FOR 6219 ; 108 (6X,"L(",I1,")",3X,7F9.0) REV.FOR 6010 ; 109 ("0*****WARNING: REVERSE CANNOT PROCESS MIGRATION RATES") PR2.FOR 1000 ; 110 ("1MIGRATION (NET) AGGREGATED",47X,"Pg",I2) PR2.FOR 2000 ; 111 (/" YEARLY VALUES DURING FIVE-YEAR PERIODS") PR2.FOR 6160 ; 112 (17X,7(I4,"-",4X)) FIXFORMAT 6170 ; 113 ; 3 (6X,"AGE",9X,7(I4,5X)) PR2.FOR 6260 ; 114 (/6X,A8) PR2.FOR 6265 ; 115 (6X,A5,2X,7F9.1) FIXFORMAT 6270 ; 116 ; 11 (/1X,"GRAND TOTAL",1X,7F9.1/) FIXFORMAT 610 ; 117 ; 2; 30; 4; 4 ("1",18A4,1X,"Pg",I2/1X,"POPULATION PROJECTION "/2(1X,A8/1X,"AGE ",1X,8I9/17(1X,A5,8F9.0/),)/1X,"BOTH",1X,8F9.0) PR3.FOR 6300 ; 118 ("1",18A4,48X,"Pg",I2/1X,"POPULATION PROJECTION") FIXFORMAT 6302 ; 119 ; 11; 11 (1X,"GRAND TOTAL",F10.1,7F12.1,3X,"GRAND TOTAL") PR3.FOR 6301 ; 120 (" ** ERROR: POPULATION NEGATIVE IN SOME AGE GROUPS. PROBLEM MAY BE MIGRATION"/" ASSUMPTIONS"/) PR3.FOR 2020 ; 121 (5F15.6) FIXFORMAT 7310 ; 122 ; 70; 15; 15; 15; 17; 40; 18; 4 (/1X,"MIDPERIOD INDICES FOR FIVE-YEAR TIME PERIODS "/20X,7(I4,"->",3X)/1X,"Population size",1X,7F9.0/1X,"Yearly births ",1X,7F9.1/1X,"Yearly deaths ",1X,7F9.1/1X"Net yrly migrants",F8.1,6F9.1//1X,"YEARLY RATES PER THOUSAND POPULATION "/1X,"Births/Fem (15-44)"/6X,"=GFR"7X,7F9.1) FIXFORMAT 7320 ; 123 ; 15; 15; 17; 15; 15 (1X,"Birth rate ",1X,3P7F9.1/1X,"Death rate ",1X,3P7F9.1/1X,"Natural increase ",1X,3PF7.1,3P6F9.1/1X,"Net migration ",1X,3P7F9.1/1X,"Pop increase ",1X,3P7F9.1) PR3.FOR 6310 ; 124 (/32X,"MIDPERIOD INDICES FOR FIVE-YEAR TIME PERIODS") PR3.FOR 6311 ; 125 (26X,7(I4,"-",7X)) PR3.FOR 6312 ; 126 (27X,7(I4,8X)) FIXFORMAT 6313 ; 127 ; 15; 15; 13; 13; 13; 13; 19; 19; 36; 21; 19 (1X,"POPULATION SIZE",3X,7F12.1,3X,"POPULATION SIZE"/1X"YEARLY BIRTHS",5X,7F12.1,3X,"YEARLY BIRTHS"/1X,"YEARLY DEATHS",5X,7F12.1,3X,"YEARLY DEATHS"/1X,"NET YEARLY MIGRANTS",F11.1,6F12.1,3X,"NET YEARLY MIGRANTS"//36X,"YEARLY RATES PER THOUSAND POPULATION"/1X,"GFR=BIRTHS/FEM(15-44)",F9.1,6F12.1,3X,"GFR=BIRTHS/F(15-44)") FIXFORMAT 6320 ; 128 ;10; 10; 10; 10; 17; 16; 13; 13; 12; 12 (1X,"BIRTH RATE",8X,3P7F12.1,3X,"BIRTH RATE"/1X,"DEATH RATE",8X,3P7F12.1,3X,"DEATH RATE"/1X,"NATURAL INCREASE ",1X,3P7F12.1,3X,"NATURAL INCREASE"/1X,"NET MIGRATION",5X,3P7F12.1,3X,"NET MIGRATION"/1X,"POP INCREASE",6X,3P7F12.1,3X,"POP INCREASE") FIXFORMAT 6325 ; 129 ; 8; 6 ("F=1 M=2 ",18A4/" 0",I7,7I9,4X,"AGE ") PR3.FOR 6330 ; 130 (I1,8F9.1,1X,A5,) FIXFORMAT 6335 ; 131 ; 5; 5; 5; 5; 5 (1X,8F9.1,1X,"BOTH "/10X,7F9.1,1X,"MID-P"/10X,7F9.1,1X,"BIRTS"/10X,7F9.1,1X,"DEATS"/10X,7F9.1,1X,"MIGRS") FIXFORMAT 6336 ; 132 ; 5; 5; 5; 5; 5 (10X,7F9.3,1X,"TFR "/10X,7F9.3,1X,"GRR "/10X,7F9.3,1X,"NRR "/10X,7F9.1,1X,"E(0)B"/10X,7F9.1,1X,"IMR B") PR3.FOR 6485 ; 133 (/" ***** ERROR IN PYRAMIDS; LOOK AT YEARS."/) PR3.FOR 8000 ; 134 ("1",18A4,1X,"Pg",I2//" RATES OF CHANGE IN POPULATION BY AGE GROUP (Percent per year)") PR3.FOR 8006 ; 135 (/17X,7(I4,"-",4X)) FIXFORMAT 8008 ; 136 ; 3 (6X,"AGE",9X,7(I4,5X)) PR3.FOR 8010 ; 137 (/4X,A8) PR3.FOR 8060 ; 138 (6X,A5,2X,7F9.2) FIXFORMAT 8080 ; 139 ; 7 (/4X,"BOTH ",2X,7F9.2/) PR3.FOR 6492 ; 140 ("1",18A4,1X,"Pg",I2/" PROPORTIONS OF TOTAL POPULATION BY SEX (Percent)") PR3.FOR 6340 ; 141 (/5X,A8,8I8) PR3.FOR 6350 ; 142 (7X,A5,1X,8F8.2) FIXFORMAT 6360 ; 143 ; 3 (/10X,"AGE",8I8) PR3.FOR 6370 ; 144 (/1X,A7,A5,8F8.2,2(/8X,A5,8F8.2)) PR3.FOR 6375 ; 145 (" 'Both' is calculated from a table for both sexes which is not shown.") PR3.FOR 6515 ; 146 ("1",18A4,1X,"Pg",I2//" Population Pyramids (Percent)"/) ACC.FOR 2000 ; 147 ("1AGGREGATE PROJECTION FOR FOLLOWING:",38X,"Pg",I2//1X,18A4/) ACC.FOR 2050 ; 148 (18A4,3I2,I4) ACC.FOR 2051 ; 149 (F10.4,(7F10.1)) ACC.FOR 2020 ; 150 (5F15.6) ACC.FOR 2070 ; 151 (8I5/(5F15.5)) ACC.FOR 2100 ; 152 (I5,2X,18A4) ACC.FOR 2110 ; 153 (1X) PPYR.FOR 200 ; 154 (17X,I4,37X,A4) FIXFORMAT 8 ; 155 ; 10; 10; 10; 10 (9X,"Males ",5X,"Females ",16X,"Males ",5X,"Females "/) FIXFORMAT 9 ; 156 ; 10; 10 (9X,"Males ",5X,"Females "/) PPYR.FOR 130 ; 157 (" ",15A1,1X,A6,15A1,4X,15A1,1X,A6,15A1) PPYR.FOR 150 ; 158 (/" Each symbol represents a population of",F12.1///) FIXFORMAT 18 ; 159 ; 10; 10 (/8X,"Population",F9.0,22X,"Population",F9.0) FIXFORMAT 19 ; 160 ;10 (/8X,"Population",F9.0) PPYR.FOR 155 ; 161 (/" Each symbol represents",F5.2," percent of the total population size."//) SINSIN.FOR 18 ; 162 (A1) SINSIN.FOR 9997 ; 163 (A20) SINSIN.FOR 20 ; 164 (/" Interpolating for single-year single-age output . . ."\) SUB1.FOR 1000 ; 165 (I1,18A4,3X,I1,I3) SUB1.FOR 1010 ; 166 (2I1,2(F8.5,2(F7.2,F8.5)),I2) SUB1.FOR 1020 ; 167 (2I1,8F8.5,I14) SUB1.FOR 1025 ; 168 (2X,8F8.6,F8.2,I6) SUB1.FOR 1030 ; 169 (I1,24I2,I31) SUB1.FOR 1040 ; 170 (2I1,F10.2,6F10.7,I8) SUB1.FOR 1050 ; 171 (I4,I1,A1,14I2,3F10.6,I4,3I4) SUB1.FOR 1060 ; 172 (8F9.2,I8) SUB1.FOR 1070 ; 173 (4F9.6,5F8.1,I4) SUB1.FOR 1699 ; 174 ("1") SUB1.FOR 610 ; 175 (" THE DATA SAVED FROM FIVFIV IS OUT OF ORDER; EXPECTED RECORD NUMBER",I3," BUT FOUND RECORD NUMBER",I3) SUB1.FOR 998 ; 176 (1X,16A1) FIXFORMAT 6010 ; 177 ; 8; 3 ("F=1 M=2:",4X,18A4/" 0",I7,15I9,3X,"AGE") SUB3.FOR 6000 ; 178 (I1,16F9.1,I4) FIXFORMAT 1600 ; 179 ; 4; 44; 3; 3; 3 ("1",28A4,"PAGE",I3/1X,28A4/1X,"INTERPOLATIONS BY SINGLE-YEAR AGE GROUPS "///45X,5A4///1X,"AGE",3X,16I7,3X,"AGE"/) SUB3.FOR 1610 ; 180 (1X,I2,4X,16F7.0,3X,I2) SUB3.FOR 1615 ; 181 (" 75+",3X,16F7.0,3X,"75+") SUB4.FOR 1620 ; 182 ("1",28A4,"PAGE",I3/1X,28A4) SUB4.FOR 1622 ; 183 (" REPORT OF ASSUMPTIONS FOR AGESEXSPEC"//" TITLE:",18A4///" AGE-SPECIFIC RATES: Calculated for mid-year dates from your assumptions.") SUB4.FOR 1624 ; 184 (1X,18A4) FIXFORMAT 1625 ; 185 ; 3; 3 (///50X,5A4///1X,"AGE",3X,16I7,3X,"AGE"/) SUB4.FOR 1630 ; 186 (1X,I2,"-",I2,1X,16F7.1,2X,I2,"-",I2) SUB4.FOR 1632 ; 187 (1X,I2,"-",I2,1X,16F7.3,2X,I2,"-",I2) FIXFORMAT 1635 ; 188 ; 5; 5 (/1X,"TOTAL",1X,16F7.0,2X,"TOTAL") FIXFORMAT 1640 ; 189 ; 4; 40; 3; 3 ("1",28A4,"PAGE",I3/1X,28A4/1X,"INTERPOLATIONS FOR FIFTEEN SINGLE YEARS "/50X,5A4//1X,"AGE",3X,16I7,3X,"AGE") SUB5.FOR 1610 ; 190 (1X,I2,"-",I2,1X,16F7.0,2X,I2,"-",I2) FIXFORMAT 1615 ; 191 ; 5; 5 (" 75+",2X,16F7.0,2X," 75+"/1X,"TOTAL",1X,16F7.0,2X,"TOTAL") FIXFORMAT 1650 ; 192 ; 78; 3; 3 (/1X,"SELECTED AGE GROUPS: Population and rates of change (R) in percent per year. "/1X,"AGE",3X,16I7,3X,"AGE") SUB5.FOR 1660 ; 193 (/1X,I2,"-",I2,1X,16F7.0,2X,I2,"-",I2) FIXFORMAT 1661 ; 194 ;4;4; (2X,"R(%)",4X,"-->",2P15F7.1,4X,"R(%)") FIXFORMAT 1655 ; 195 ; 5; 5 (/1X,"TOTAL",1X,16F7.0,1X,"TOTAL") FIXFORMAT 1670 ; 196 ; 4; 20; 20; 77; 30; 35; 30; 35 ("1",28A4,"PAGE",I3/37X,10A4/1X,"PLACEONE NAME: "/3X,18A4/1X,"PLACETWO NAME: "/3X,18A4//1X,"RATIOS of PLACEONE population to PARENT population -- your assumptions. "//5X,"Calculated at mid-years from ",6X,"Population-weighted rates by age "/ 5X,"ratio and slope assumptions ",6X,"scaled to agree with control totals") FIXFORMAT 1680 ; 197 ; 4 (/1X,5A4/1X,"AGE ",1X,4I8,4X,4I8/) SUB6.FOR 1690 ; 198 (1X,I2,4X,4F8.4,4X,4F8.4) SUB6.FOR 1695 ; 199 (" 75+",3X,4F8.4,4X,4F8.4/1X,"Control"/1X,"Totals",4F8.4,4X,4F8.4) SUB6.FOR 1697 ; 200 (/" Note: The population of PLACETWO will be computed by subtracting"/7X,"the PLACEONE population from the parent population.") FIVFIV.FOR 19; 201 (" FIVFIV 98d",4X,I2.2,"-",I2.2,"-",I4,4X,I2.2,":",I2.2,":",I2.2,4X,A24///) FIVE.FOR 6155; 202 (" Rates by age at the end of the five-year period"/) FIVE.FOR 6156; 203 (" Survivors by age at the end of the five-year period"/) IDX.FOR 3000; 204 (1H1,18A4,1X,"Pg",I2,//" INTERPOLATIONS FOR FIFTEEN SINGLE YEARS"/) FIXFORMAT 3010; 205 ; 11; 11; (1X,"INDICES "/1X,"at midyear ",1X,16I7) FIXFORMAT 3030; 206 ; 11; 11; 11; 12; 11; 11; 11 (/1X,"TFR ",1X,16F7.2,/1X,"GFR ",1X,16F7.2,/1X,"NRR ",1X,16F7.2,/1X,"Mean age ",16F7.1,//1X,"E(0) Female",1X,16F7.1,/1X,"E(0) Male ",1X,16F7.1,/1X,"E(0) Both ",1X,16F7.1) FIXFORMAT 3040; 207 ; 11; 11; 11; 11; 11; 12 (/1X,"IMR Female ",1X,16F7.1,/1X,"IMR Male ",1X,16F7.1,/1X,"IMR Both ",1X,16F7.1,//1X,"Events for one year"/1X,"Births ",1X,16F7.0,/1X,"Deaths ",1X,16F7.0,/1X,"Net migrants",16F7.0) FIXFORMAT 3050; 208 ; 30; 11; 11; 20; 10; 13; 11; 10; 11 (/1X,"Yearly rates /1000 at midyear"/1X,"Birth rate ",1X,16F7.1,/1X,"Death rate ",1X,16F7.1,/1X,"Natural "/3X,"increase ",16F7.1,/1X,"Net migration",F6.1,15F7.1,/1X,"Population "/3X,"increase ",16F7.1,//1X,"Population ",1X,16I7) IDX.FOR 3060; 209 (/13X,16I7) IDX.FOR 4000; 210 (/" Interpolations are made by using exponential rates of change between given mid-period points of the FIVFIV"/" projection; i.e., 2.5, 7.5, 12.5, and 17.5 years after the base date. Note that indices for the first three"/" years depend on extrapolation from points located later in time. Migration is represented by constant quantities"/" during each five-year period. 'Midyear', and therefore dating of each 12-month year, is defined by the date"/" of the input populaton."//) PR1.FOR 1052; 211 (" Mortality report may not be accurate when age groups have zero population.") PRMIG.FOR 6150; 212 ("1",18A4,1X,"Pg",I2//" QUANTITIES OF ACTUAL MIGRANTS (YEARLY) BY COHORT. Cohorts are indexed by age at"/" end of period"/) PRMIG.FOR 6156; 213 (" Quantities assumed by age at time of migration were assigned to cohorts at"/" mid-period"/) PRMIG.FOR 6157; 214 (" Quantities were reverse-survived by cohort to mid-period"/) PRMIG.FOR 6158; 215 (" Rates assumed by age at time of migration were assigned to cohorts at"/" mid-period and applied to the mid-period population of the same cohorts"/) PRMIG.FOR 6159; 216 (" Rates assumed by cohort were applied to mid-period population of same cohort"/) PRMIG.FOR 6160 ; 217 (17X,7(I4,"-",4X)) FIXFORMAT 6170; 218 ;11 (6X,"AGE ",1X,7(I4,5X)) PRMIG.FOR 6260; 219 (/6X,A8) PRMIG.FOR 6265; 220 (6X,A5,2X,7F9.1) FIXFORMAT 6270; 221 ;11 (/1X,"GRAND TOTAL",1X,7F9.1/) FIXFORMAT 6375; 222 ; 13 (1X,"MALES/FEMALES",F7.3,7F8.3) PR3.FOR 8080 ; 223 (" The quality of information on rates of increase by age is safeguarded when"/" genuine irregularities of the age distribution at the base date are preserved,"/" while irregularities due to age shifting and heaping are removed."/) FIVBLD.FOR 50 ; 224 (80A1) FIVBLD.FOR 60 ; 225 (" Hit the 'ENTER' or 'RETURN' key to continue...") FIVBLD.FOR 18 ; 226 (A1) FIVBLD.FOR 100 ; 227 (/" FIVFIV 98d Copyright 2000 Frederic C. Shorter and HPN Technologies, Inc."/) FIVBLD.FOR 110 // ; 228 (/" This program is used to create/edit an input control file for the"/" FIVFIV-SINSIN population projection package. For a full description of the"/" program and input required, see 'Computational Methods for Population"/" Projections: With Particular Reference to Development Planning' by Frederic C."/" Shorter, Robert Sendek, and Yvette Bayoumy."//" Problems with this program may be reported to Robert Sendek at the above"/" address or at support@hpntech.com") FIVBLD.FOR 112 ; 229 (/" INSTRUCTIONS: Questions usually have a default answer that is shown in angle"/" brackets <...>. If you want the default answer, simply hit the ENTER (or"/" RETURN) key. If you do not want the default answer, type the answer you want,"/" followed by ENTER (or RETURN). WARNING about Y/N questions. Typing numbers"/" accidentally or other keys registers a NO answer. Think before you enter!"//" You may back up one question at a time (usually, not always) by typing '<'"/" followed by ENTER (or RETURN). In the same way, type '>' to skip ahead to the"/" next logical set of questions."/) FIVBLD.FOR 125 ; 230 (//" ?An error was detected while attempting to read the input file. Program can"/" not continue -- please use a DOS text editor to correct the problem manually."/) FIVBLD.FOR 9005 ; 231 (///" Control file: ",A24/" has been saved -- you may now run FIVFIV"//) FIVOPN.FOR 45 ; 232 (80A1) FIVOPN.FOR 51 ; 233 (1X,80A1) FIVOPN.FOR 52 ; 234 (A8,T1,80A1) FIVOPN.FOR 55 ; 235 (" ?Error - please enter a number between ",I1," and",I2/) FIVOPN.FOR 100 ; 236 (/" To specify the input data needed for a projection, you may:"//" (1) Enter new input data through the keyboard "/" (2) Modify input data in an existing file"//" Please enter option desired (1 or 2)?") FIVOPN.FOR 205 ; 237 (/" Enter name of file containing input data (e.g., B:SAMPLE.FIV)?") FIVOPN.FOR 215 ; 238 (A24,T1,80A1) FIVOPN.FOR 218 ; 239 (/" ?Invalid file name"/) FIVOPN.FOR 282 ; 240 (/" Do you want to manually enter data for projection ",I3," (Y/N) <N>") FIVOPN.FOR 289 ; 241 (/" ?Invalid response -- please answer YES or NO"/) FIVOPN.FOR 305 ; 242 (A8,T1,A24,T1,80A1) FIVOPN.FOR 355 ; 243 (//" There are no more projections to be read from the file."/) FIVOPN.FOR 405 ; 244 (/" For projection ",I2," you may:"//" (1) Read a projection from the file (Note: to remove a projection,"/" read it in and don't save it) "/" (2) Enter a projection manually from the keyboard"//" What would you like to do (1 or 2) <1>") FIVOPN.FOR 415 ; 245 (///" Reading data for projection",I2,"..."/) FIVOPN.FOR 335 ; 246 (/" %Warning -- cannot use SAME.LT for first projection -- please correct"/) FIVOPN.FOR 509 ; 247 (" ?Error - unrecognizable subject:"/1X,A8/) FIVOPN.FOR 555 ; 248 (" ?Error -- subject: ",A8," used too many times"/) FIVOPN.FOR 1105 ; 249 (A2,A1,4X,A1,T1,80A1) FIVOPN.FOR 1207 ; 250 (2A4,T5,4A1,T1,80A1) FIVOPN.FOR 1209 ; 251 (" ?Error - OLD.POP already used"/) FIVOPN.FOR 1255 ; 252 (" ?Error - Initial population already used"/) FIVOPN.FOR 1257 ; 253 (/" %Warning - OLD.POP cannot be used on first projection - Please fix") FIVOPN.FOR 1305 ; 254 (A2,A1,4X,A1,A4,A1,T1,80A1) FIVOPN.FOR 1407 ; 255 (A5,2A1,T1,80A1) FIVOPN.FOR 1507 ; 256 (A4,A1,A2,2A1,T1,80A1) FIVOPN.FOR 1607 ; 257 (A5,A1,A2,2A1,T1,80A1) FIVOPN.FOR 1707 ; 258 (A7,2A1,T1,80A1) FIVOPN.FOR 1807 ; 259 (A8,A2,T1,A3,T1,80A1) FIVOPN.FOR 1857 ; 260 (A4,T1,A7,1X,A1,T1,80A1) FIVOPN.FOR 1907 ; 261 (A8,A1,T1,80A1) FIVOPN.FOR 2107 ; 262 (A8,2A1,T1,80A1) FIVOPN.FOR 2157 ; 263 (A4,A1,1X,A1,1X,2A1,T1,80A1) FIVOPN.FOR 2207 ; 264 (A8,A1,T1,80A1) FIVOPN.FOR 2607 ; 265 (A6,A1,T1,80A1) FIVOPN.FOR 2801 ; 266 (A8,A1,T1,80A1) FIVOPN.FOR 2807 ; 267 (A8,2A1,T1,80A1) FIVOPN.FOR 2837 ; 268 (A6,4A1,T1,80A1) FIVOPN.FOR 2857 ; 269 (A4,T1,A6,T1,A5,1X,4A1,T1,80A1) FIVOPN.FOR 2865 ; 270 (A4) FIVOPN.FOR 2901 ; 271 (A5,A1,1X,A1,T1,80A1) FIVOPN.FOR 2907 ; 272 (A6,2A1,T1,80A1) FIVOPN.FOR 2957 ; 273 (A4,1X,4A1,T1,80A1) FIVOPN.FOR 3105 ; 274 (A5,T1,80A1) FIVOPN.FOR 3205 ; 275 (A4,T1,A76) FIVOPN.FOR 3291 ; 276 (/" ?Error -- MEMO greater than 20 lines"/) FIVOPN.FOR 56 ; 277 (" ?Sequence error - expecting '",A1,"' found '",A1,"'"/1X,80A1/) FIVOPN.FOR 57 ; 278 (" ?Sex error - expecting '",A1,"' found '",A1,"'"/1X,80A1/) FIVOPN.FOR 58 ; 279 (" ?Incorrect number of periods specified"/1X,80A1/) FIVOPN.FOR 59 ; 280 (" ?Sex must be M or F, found '",A1,"'"/1X,80A1/) FIVOPN.FOR 60 ; 281 (" ?Unrecognizable/invalid/unexpected record in subject:",A8/1X,80A1/) FIVOPN.FOR 61 ; 282 (" ?Invalid number/symbol in columns",I2," - ",I2/1X,80A1/1X,80A1/) FIVOPN.FOR 62 ; 283 (" ?Sequence error - expecting '",I1,"' found '",I1,"'"/1X,80A1/) FIVOPN.FOR 9993 ; 284 (" ?Error -- No END PROJECTION found"/) FIVINP.FOR 45 ; 285 (80A1) FIVINP.FOR 55 ; 286 (/" ?Error - please enter a number between ",I2," and",I3) FIVINP.FOR 60 ; 287 (" Hit the 'ENTER' or 'RETURN' key to continue...") FIVINP.FOR 305 // ; 288 (/" The model life tables EAST, WEST, NORTH and SOUTH are the Coale-Demeny"/" Princeton models as updated in 1989/1990 by A.J. Coale and G. Guo,"/" (Population Index, 1989 v55(4) and v56(1)). All four models converge to"/" a single pattern by the time they reach an e(0) for females of 75 years."/" This reflects actual experience. Above 80 years the models are necessarily"/" extrapolations. Coale and Guo also carried them up to 85 years. FIVFIV"/" arbitrarily extrapolates the trends further to 95 years. Range: levels"/" 1 to 31; e(0) females 20.0 to 95.0 years; males 18.03 to 90.44 years."/" FAR EAST and SOUTH ASIA are from UN Population Division (1982; 1989)."/" Range: e(0) females 35.0 to 85.3 years; males 35.0 to 83.2 years.") FIVINP.FOR 405 ; 289 (/" Please select a life table:"//5(6X,I1," - ",A8/),6X,I1," - ",A8) FIVINP.FOR 401 ; 290 (6X,I1," - Same life table as previous projection") FIVINP.FOR 406 ; 291 (6X,I1," - Other user-supplied life table") FIVINP.FOR 403 ; 292 (/" Which life table would you like (1-",I1,") <",I1,">") FIVINP.FOR 455 ; 293 (/" Enter name of file containing desired life table <",A24,">") FIVINP.FOR 457 ; 294 (A24,T1,80A1) FIVINP.FOR 35 ; 295 (" FIVFIV/SINSIN subjects"//" * = being used (R) = required (A) = alternate (O) = optional (-) = not allowed"/" with another subject already selected"//" Enter a negative subject number (e.g. -4) to delete that subject"//11(" [",I2,"] ",A1," (",A1,") ",2A8,10X,"[",I2,"] ",A1," (",A1,") ",2A8/)," [",I2,"] ",A1," (",A1,") ",2A8//" Which subject would you like <END PROJECTION>") FIVINP.FOR 1105 ; 296 (/" Please enter a starting year <",I4,">") FIVINP.FOR 1146 ; 297 (/" ?Invalid response -- please enter a year (e.g. 1990)") FIVINP.FOR 1155 ; 298 (/" Please enter a title for projection",I3/" <",72A1,">"/2A1\) FIVINP.FOR 1225 ; 299 (/" You may use:"//" (1) INIT.POP "/" (2) OLD.POP"//" Which would you like to use (1 or 2) <",I1,">") FIVINP.FOR 1204 ; 300 (/" Enter initial population for"//" Note: If pops are zero from any age group upward, the last group entered will"/" be distributed to higher ages as in the stationary life table population."/) FIVINP.FOR 1205 ; 301 (/1X,2A8," <",F10.2,">") FIVINP.FOR 1247 ; 302 (/"?Invalid response"/) FIVINP.FOR 1255 ; 303 (/" OLD.POP may be used following either forward or reverse projections. If the"/" previous projection used STABLEXTEND, only the last 35 years are eligible for"/" retrieval by OLD.POP"//" Enter old year from previous projection <",I4,">") FIVINP.FOR 1303 ; 304 (/" ?Error -- this subject may not be used with ",2A8/) FIVINP.FOR 1305 ; 305 (/" Enter year to which the INIT.POP data actually refer <",I4,">") FIVINP.FOR 1355 ; 306 (/" For year",I5,":"//" Enter week to which the INIT.POP data refer. The default is midyear. <",I2,">") FIVINP.FOR 1405 ; 307 (/" Enter ",1X,A8," Scale INIT.POP: population total <",F10.2,">") FIVINP.FOR 1496 ; 308 (/" ?Invalid response"/) FIVINP.FOR 1503 ; 309 (/" ?Error -- you cannot use both MORTALITY and MORT.SPLIT"/) FIVINP.FOR 1505 ; 310 (/" You may enter mortality either as:"//" (1) Model levels "/" (2) Expectation of life at birth (E0)"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 1511 ; 311 (/" Enter model levels for",1X,A8) FIVINP.FOR 1512 ; 312 (/" Enter life expectancy at birth (E0) for",1X,A8) FIVINP.FOR 1519 ; 313 (/" Note: The minimum required mortality assumption is a value for females for the"/" first period. Assumptions are held constant whenever zeros are entered for"/" subsequent periods. The female assumptions will carry over to males if no value"/" is entered for males in the first period (see male entries below). In that"/" event, FIVFIV will apply the same model level for males as females."/) FIVINP.FOR 1515 ; 314 (/1X,I4,"-",I4," <",F10.2,">") FIVINP.FOR 1597 ; 315 (/" ?Invalid response"/) FIVINP.FOR 1605 ; 316 (/" You may enter CHILD mortality either as:"//" (1) Model levels "/" (2) Infant mortality (1000*1q0)"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 1611 ; 317 (/" Enter model levels for child",1X,A8) FIVINP.FOR 1612 ; 318 (/" Enter infant mortality (1000*1q0) for",1X,A8) FIVINP.FOR 1647 ; 319 (/" ?Invalid response"/) FIVINP.FOR 9400 ; 320 (/" Note to users of UN life tables: The models do not specify a relationship"/" between male and female mortality, so you must provide assumptions for males as"/" well as females. If not, FIVFIV will use 'garbage' assumptions for males! On"/" sex differentials, see UN 'Model Life Tables . .' 1982, p 29.") FIVINP.FOR 1655 ; 321 (/" You may enter ADULT mortality either as:"//" (1) Model levels "/" (2) Expectation of life at age 5 (E5)"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 1661 ; 322 (/" Enter model levels for adult mortality",1X,A8) FIVINP.FOR 1662 ; 323 (/" Enter life expectancy at age 5 (E5) for",1X,A8) FIVINP.FOR 1697 ; 324 (/" ?Invalid response"/) FIVINP.FOR 1711 ; 325 (/" Enter proportion of population 70+ that is aged 75+ for",1X,A8) FIVINP.FOR 1712 ; 326 (/" Note: If an assumption cannot be given, enter zero and the population 70+ will"/" be split as in the stationary life table population.") FIVINP.FOR 1715 ; 327 (1X,I4," <",F10.4,">") FIVINP.FOR 1793 ; 328 (/" %Warning -- migration rates may not be used with REVERSE -- please fix"/) FIVINP.FOR 1795 ; 329 (/" ?Invalid response"/) FIVINP.FOR 1805 ; 330 (/" You may enter fertility either as:"//" (1) Total fertility rates "/" (2) Net reproduction rates"//\) FIVINP.FOR 3334 ; 331 (" (When using REVERSE, choose (1) and enter nominal TFRs that will be replaced"/" by the real TFRs that are found by the reverse projection.)"//) FIVINP.FOR 1803 ; 332 (" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 1811 ; 333 (/" Enter total fertility rates for:") FIVINP.FOR 1812 ; 334 (/" Enter net reproduction rates for:") FIVINP.FOR 1815 ; 335 (/1X,I4,"-",I4," <",F10.4,">") FIVINP.FOR 1845 ; 336 (/" ?Invalid response"/) FIVINP.FOR 1846 ; 337 (/" ?Invalid response. Please key the first number. If you really want no births,"/" enter .0001."/) FIVINP.FOR 1861 ; 338 (/" Enter the distribution of fertility by age starting at period",I3,":") FIVINP.FOR 1862 ; 339 (/" Any number units may be used; e.g., a standard ASFR schedule per 1000, or a"/" proportionate distribution by age. Note: FIVFIV will select model distributions"/" based on the level of fertility if you enter zeros for all age groups."/) FIVINP.FOR 9983 ; 340 (/" Caution: Model option works (enter 0 s), but it uses the nominal TFR s as"/" parameters for selection of models."/) FIVINP.FOR 1865 ; 341 (/3X,A8," <",F10.4,">") FIVINP.FOR 1872 ; 342 (/" ?Invalid response"/) FIVINP.FOR 1885 ; 343 (/" For how many 5-year periods would you like this fertility distribution to apply"//" Please enter a number between (1-",I1,") <",I1,">") FIVINP.FOR 1905 ; 344 (/" Enter males per 100 females sex ratio <",F10.3,">") FIVINP.FOR 1995 ; 345 (/" ?Invalid response"/) FIVINP.FOR 2103 ; 346 (/" ?Error -- MIGRATION and FINDMIGRATION cannot both be used"/) FIVINP.FOR 2105 ; 347 (/" You may enter net migration either as:"//" (1) Migration quantities "/" (2) Migration rates"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 2111 ; 348 (/1X,A8/" Enter yearly net migration (in same units as population) by time periods"/) FIVINP.FOR 2115 ; 349 (/1X,I4,"-",I4," <",F10.2,">") FIVINP.FOR 2145 ; 350 (/" ?Invalid response"/) FIVINP.FOR 2161 ; 351 (/1X,A8/" Enter distribution of net migrants by age (e.g., percents or quantities)"/) FIVINP.FOR 2157 ; 352 (/" Enter the pattern generally as positive numbers, but some may be negative to"/" specify counter flows. The pattern will be scaled and multiplied by the sign of"/" the total quantities assumed above.") FIVINP.FOR 2162 ; 353 (/" Enter migrants (net) per year per 1000 population for",1X,A8) FIVINP.FOR 2158 ; 354 (/" Rates may be positive (in-migration) or negative (out-migration) or mixed"/) FIVINP.FOR 2165 ; 355 (/3X,A8," <",F10.2,">") FIVINP.FOR 2172 ; 356 (/" ?Invalid response"/) FIVINP.FOR 2185 ; 357 (/" For how many 5-year periods does this migration distribution apply"//" Please enter a number between (1-",I1,") <",I1,">") FIVINP.FOR 2205 ; 358 (/" Enter target populations for:") FIVINP.FOR 2215 ; 359 (/" Year",I5," <",F10.2,">") FIVINP.FOR 2245 ; 360 (/" ?Invalid response"/) FIVINP.FOR 2255 ; 361 (/" Enter sex ratio of migrants (males per 100 females) by periods for:") FIVINP.FOR 2265 ; 362 (/1X,I4,"-",I4," <",F10.4,">") FIVINP.FOR 2275 ; 363 (/" ?Invalid response"/) FIVINP.FOR 2305 ; 364 (/" Enter number of stable extends to make. Each stable extend is 35 years <",I2,">") FIVINP.FOR 2395 ; 365 (/" ?Invalid response"/) FIVINP.FOR 2505 ; 366 (///" The population projection will be written as characters to a DOS text file"/" named: PUNCH.FIV."/) FIVINP.FOR 2595 ; 367 (/" ?Invalid response"/) FIVINP.FOR 2605 ; 368 (/" You may specify the following summary age-groups:"//" (1) 0-14, 15-64, 65+ "/" (2) 0-14, 15-64, 65+, 7-11, 12-14, 15-17, 18-21, 20-44 "/" (3) 0-14, 15-64, 65+, plus other specified age groups"//" Which would you like (1-3) <",I1,">") FIVINP.FOR 2655 ; 369 (/" Enter age group desired <",I2,"-",I2,">") FIVINP.FOR 2665 ; 370 (/" ?Invalid response") FIVINP.FOR 2685 ; 371 (/" You may print the following intermediate results:"//" (1) No single-year age distributions "/" (2) Single-year age distributions for age 5+ "/" (3) Single-year age distributions for all ages"//" Which option would you like (1-3) <",I1,">") FIVINP.FOR 2790 ; 372 (/" ?Error -- subject not allowed without REGROUP"/) FIVINP.FOR 2705 ; 373 (///" The single-year single-age projection will be written to a DOS text file"/" named: PUNCH.SIN."/) FIVINP.FOR 2797 ; 374 (/" ?Invalid response"/) FIVINP.FOR 2819 ; 375 (/" Do you want a projection for the residual (place two) population (Y/N) <",A1,">") FIVINP.FOR 2805 ; 376 (/" Enter title for place",1X,A4/" <",71A1,">"/2A1\) FIVINP.FOR 2813 ; 377 (/1X,A8/" Ratio of place-one total to parent total at First Date"/," <",F10.4,">") FIVINP.FOR 2818 ; 378 (/" ?Invalid response"/) FIVINP.FOR 2823 ; 379 (/1X,A8/" First Date in exact years (e.g., 30 June 1990 = 1990.5) Note: Date may be"/" earlier than the 15- year projection period or within it."/," <",F10.2,">") FIVINP.FOR 2828 ; 380 (/" ?Invalid response"/) FIVINP.FOR 2833 ; 381 (/1X,A8/" Define linear change in both directions from initial date by specifying an"/" increment to be added per year to the ratio. Show annual decrement by minus"/" sign. Enter 0 to hold initial ratio constant."/," <",F10.4,">") FIVINP.FOR 2838 ; 382 (/" ?Invalid response"/) FIVINP.FOR 2843 ; 383 (/1X,A8/" End date for first linear segment. This is the Second Date (Enter in exact"/" years). Enter 0 if no ending date -- continues indefinitely."/," <",F10.2,">") FIVINP.FOR 2848 ; 384 (/" ?Invalid response"/) FIVINP.FOR 2853 ; 385 (/1X,A8/" Second linear segment. Define slope, if any. It starts from Second Date and"/" continues indefinitely."//" Enter increment to be added to the ratio per year. Enter 0 to hold ratio"/" constant."/," <",F10.4,">") FIVINP.FOR 2858 ; 386 (/" ?Invalid response"/) FIVINP.FOR 2861 ; 387 (//" Enter ratios by age-groups for First Date.") FIVINP.FOR 2865 ; 388 (/" Enter initial ratio for",1X,2A8," <",F10.4,">") FIVINP.FOR 2866 ; 389 (/1X,A8/" Age-group ratios. Please enter the reference date, i.e., First Date in exact"/" years <",F10.2,">") FIVINP.FOR 2879 ; 390 (/"?Invalid response"/) FIVINP.FOR 2882 ; 391 (/" Segment"1X,A4,A8//" Would you like to define linear change by specifying an increment to be added"/" per year to the ratio for each age group? (To hold constant, answer No.)"//" Please answer (Y/N) <",A1,">") FIVINP.FOR 2885 ; 392 (/" Enter annual increment, segment",1X,A4," ",2A8," <",F10.4,">") FIVINP.FOR 2886 ; 393 (/" Segment"A4,A8//" Enter exact end date for annual increments. Enter 0 if continue indefinitely."/ "<",F10.2,">") FIVINP.FOR 2899 ; 394 (/"?Invalid response"/) FIVINP.FOR 2902 ; 395 (/" AGESEXSPEC number ",I2," has been deleted"/1X,I2," AGESEXSPECs remain"/) FIVINP.FOR 2960 ; 396 (/" You may modify:"/) FIVINP.FOR 2905 ; 397 (" (",I1,") ",72A1) FIVINP.FOR 2906 ; 398 (/" or:"//" (",I1,") Do another AGESEXSPEC problem"/) FIVINP.FOR 2907 ; 399 (/" What would you like to do (1-",I1,") <1>") FIVINP.FOR 2915 ; 400 (/" Enter a title for AGESEXSPEC problem number",I2/" <",72A1,">"/2A1\) FIVINP.FOR 2918 ; 401 (/" You have several AGESEXSPEC output options:"//" (1) Print output for all subdivisions and parent population "/" (2) Print for PLACEONE only "/" (3) Print for PLACETWO only "/" (4) Print for parent population only"//" Which option would you like (1-4) <",I1,">") FIVINP.FOR 2919 ; 402 (/" You have several AGESEXSPEC output options:"//" (1) Print output for PLACEONE and parent population "/" (2) Print for PLACEONE only "/" (3) Print for parent population only"//" Which option would you like (1-3) <",I1,">") FIVINP.FOR 2961 ; 403 (/" Enter ",1X,A8," age group desired <",I2,"-",I2,">") FIVINP.FOR 2934 ; 404 (/" ?Invalid response"/) FIVINP.FOR 2942 ; 405 (1X,A8/" Would you like to enter another set of age-specific rates for another (later)"/" date?"//" Please answer (Y/N) <",A1,">") FIVINP.FOR 2975 ; 406 (/1X,A8/" Enter Date in exact years (e.g., midyear 1990 = 1990.5) for the following"/" age-specific rates <",F10.2,">") FIVINP.FOR 2977 ; 407 (/" ?Invalid response"/) FIVINP.FOR 2945 ; 408 (/" Enter ",1X,A8," rate for age group ",I2,"-",I2," for",F10.2," <",F10.4,">") FIVINP.FOR 2959 ; 409 (/" ?Invalid response -- please enter a number between 0 and 9.9999"/) FIVINP.FOR 3105 ; 410 (/" ?Error -- you must select YEAR.TITLE before selecting PYRAMIDS"/) FIVINP.FOR 3107 ; 411 (/" Specify years for making pyramids (Y/N):"/) FIVINP.FOR 3109 ; 412 (1X,I4," <",A1,">") FIVINP.FOR 3201 ; 413 (/" You may enter up to 20 lines of text with up to 76 characters per line. At"/" the end of each line, hit [ENTER]. When you want to end the memo, hit the F6"/" key and then the [ENTER] key."//" If you are editing an existing line, and want to replace with a blank line,"/" type a '.' at the first position on the line, then [ENTER]. You can not delete"/" a single line, but you can end at any time with F6 [ENTER]."/) FIVINP.FOR 3202 ; 414 (/1X,I2,"<",A76,">"1X,2A1\) FIVINP.FOR 3205 ; 415 (80A1,T1,A76) FIVINP.FOR 3301 ; 416 (/" %Warning -- the following required subjects have not been selected:"/) FIVINP.FOR 3303 ; 417 (1X,2A8) FIVINP.FOR 3305 ; 418 (1X,2A8," (or,",1X,2A8,")") FIVINP.FOR 3307 ; 419 (/" Would you like to go back and add these required subjects (Y/N) <N>") FIVSAV.FOR 50 ; 420 (80A1) FIVSAV.FOR 100 ; 421 ("1"/////" Projection",I2,":"//" Do you want to save the input data and any changes you made (Y/N) <Y>?") FIVSAV.FOR 105 ; 422 (/" ?Invalid response -- please answer Y or N"/) FIVSAV.FOR 110 ; 423 (/" Do you want the changes to replace the existing stored data (Y/N) <answer"/" required>?") FIVSAV.FOR 205 ; 424 (//" The computer saves the input data in a 'file' which must have a name so that"/" it can be retrieved lated. The name of a file can be up to 8 characters long"/" and should end in '.FIV' (e.g., B:TURKEY.FIV)"//" Please enter the name of the new file?") FIVSAV.FOR 215 ; 425 (A24,T1,80A1) FIVSAV.FOR 218 ; 426 (/" ?Invalid file name"/) FIVSAV.FOR 5 ; 427 (///" Saving data for projection ",I2," to file..."//) FIVSAV.FOR 405 ; 428 (A8) FIVSAV.FOR 407 ; 429 (A24) FIVSAV.FOR 1105 ; 430 ("YEAR.TITLE"/"YR.",I4,".",72A1) FIVSAV.FOR 1205 ; 431 ("INIT.POP") FIVSAV.FOR 1215 ; 432 ("INIT.",A1,".",A1,2X,7F10.2) FIVSAV.FOR 1255 ; 433 ("OLD.POP.",I4) FIVSAV.FOR 1305 ; 434 ("DATE.SHIFT"/"YR.",I4,".WEEK.",I2) FIVSAV.FOR 1405 ; 435 ("SCALE") FIVSAV.FOR 1415 ; 436 ("TOTAL.",A1,3X,F10.2) FIVSAV.FOR 1505 ; 437 ("MORTALITY") FIVSAV.FOR 1515 ; 438 ("MORT.",A2,".",A1,1X,7F10.2) FIVSAV.FOR 1605 ; 439 ("MORT.SPLIT") FIVSAV.FOR 1615 ; 440 ("ADULT.",A2,".",A1,7F10.2) FIVSAV.FOR 1625 ; 441 ("CHILD.",A2,".",A1,7F10.2) FIVSAV.FOR 1705 ; 442 ("REVERSE") FIVSAV.FOR 1715 ; 443 ("PROP75+.",A1,1X,7F10.4) FIVSAV.FOR 1805 ; 444 ("FERTILITY") FIVSAV.FOR 1815 ; 445 ("TOTAL.FERT",7F10.4) FIVSAV.FOR 1816 ; 446 ("NRR",7X,7F10.4) FIVSAV.FOR 1855 ; 447 ("FERDIST",I1,".",I1,7F10.4) FIVSAV.FOR 1865 ; 448 ("FEND") FIVSAV.FOR 1905 ; 449 ("SEXRATIO"/"MPERHUNDF",1X,F10.3) FIVSAV.FOR 2005 ; 450 ("PRINT PX") FIVSAV.FOR 2105 ; 451 ("MIGRATION") FIVSAV.FOR 2115 ; 452 ("MIGLEVEL.",A1,7F10.2) FIVSAV.FOR 2135 ; 453 ("RATES") FIVSAV.FOR 2155 ; 454 ("MIGR",A1,I1,".",I1,".",A1,7F10.2) FIVSAV.FOR 2165 ; 455 ("MEND") FIVSAV.FOR 2205 ; 456 ("FINDMIGRATION"/"TARGETPOP",1X,7F10.2/"MPERHUNDF",1X,7F10.4) FIVSAV.FOR 2315 ; 457 ("STABLEXTEND") FIVSAV.FOR 2405 ; 458 ("PRODUCTION") FIVSAV.FOR 2505 ; 459 ("PUNCH.FIVE") FIVSAV.FOR 2605 ; 460 ("REGROUP"/"GROUPS",A1,7(I2,"-",I2,"."),30X,I1) FIVSAV.FOR 2705 ; 461 ("PUNCH.SINGLE") FIVSAV.FOR 2805 ; 462 ("SUBDIVIDE"/"PLACEONE.",71A1/"PLACETWO.",71A1) FIVSAV.FOR 2815 ; 463 ("TOTALONE.",A1,2(F10.4,F10.2),F10.4) FIVSAV.FOR 2825 ; 464 ("RATIOS.",A1,".",A1,7F10.4) FIVSAV.FOR 2827 ; 465 ("RATIOS.",A1,".",A1,2F10.4,F10.2) FIVSAV.FOR 2835 ; 466 ("SLOPE",I1,".",A1,".",A1,7F10.4) FIVSAV.FOR 2837 ; 467 ("SLOPE",I1,".",A1,".",A1,2F10.4,F10.2) FIVSAV.FOR 2855 ; 468 ("SEND") FIVSAV.FOR 2905 ; 469 ("AGESEXSPEC"/"TITLE.",I1,".",72A1) FIVSAV.FOR 2915 ; 470 ("GROUPS.",A1,12(".",I2,"-",I2)) FIVSAV.FOR 2925 ; 471 ("YEAR"I1,".",A1,".",A1,1X,F10.2,6F10.4) FIVSAV.FOR 2945 ; 472 ("AEND") FIVSAV.FOR 3005 ; 473 ("AGGREGATE") FIVSAV.FOR 3105 ; 474 ("PYRAMIDS"/"YEARS",8(".",I4),".") FIVSAV.FOR 3205 ; 475 ("MEMO") FIVSAV.FOR 3207 ; 476 (A76) FIVSAV.FOR 3209 ; 477 ("MEMEND") FIVSAV.FOR 3305 ; 478 ("END PROJECTION") FIVSAV.FOR 8915 ; 479 (80A1) FIVBLD.FOR 90 ; 480 (//35X," FIVFIV 98d"//9X," Copyright 2000 Frederic C. Shorter and HPN Technologies, Inc."/30X," 2900 Purchase Street"/31X," Purchase, NY 10577"/37X," U.S.A."//26X," E-mail: support@hpntech.com"///13X," Funding for the FIVFIV 11.1 to FIVFIV 98d upgrade from:"//24X," The Population Reference Bureau"/38X," and"/20X," The David and Lucile Packard Foundation"///10X," Hit Enter to continue. Hit any other key and Enter for HELP.") FIVINP.FOR 2121; 481 (/" Net migration quantities may refer to:"//" (1) Migrants by age at the time of migration (approximated by mid-period)"/" (2) Survivors by age at the end of the 5-year period"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR 2122; 482 (/" Net migration rates may refer to:"//" (1) Migrants by age at the time of migration (approximated by mid-period)"/" (2) Survivors by age at the end of the 5-year period"//" Which would you like (1 or 2) <",I1,">") FIVINP.FOR xxx; 483 (/" * = being used; To remove a cluster enter a negative number (e.g. -4)"//16(" [",I2,"] ",A1," ",24A1,10X,"[",I2,"] ",A1," ",24A1/)/" Enter cluster number to assign this projection to"/" <ENTER when done>") FIVINP.FOR xxx; 484 (" ?Error -- cannot assign to more than ",I1," clusters in addition to 0") FIVINP.FOR xxx; 485 (/" To remove a name enter a negative number (e.g. -4)"/" Note: Name cluster 0 with a global name"//16(" [",I2,"] ",24A1,10X,"[",I2,"] ",24A1/)/" Enter cluster title you would like to change <ENTER when done>") FIVINP.FOR yyy; 486 (/" Enter title for cluster",1X,I2/" <",24A1,">"/2A1\) DATA YEARS; 483 ; 8 "YEARS" DATA AMIGLV; 484 ; 8 "MIGLEVEL" DATA AMEND; 485 ; 4 "MEND" DATA ATOTA ; 486 ; 8 "TOTALONE" DATA AGRP; 487 ; 8 "GROUPS" DATA AOLD; 488 ; 4 "OLD." DATA AFERSH; 489 ; 8 "FERDIST" DATA FEND; 490 ; 8 "FEND" DATA ASEXR; 491 ; 8 "MPERHUNDF" DATA ARATES; 492 ; 8 "RATES" DATA SEND; 493 ; 8 "SEND" DATA AEND; 494 ; 4 "AEND" DATA ONETWO(1); 495 ; 4 "ONE" DATA ONETWO(2); 496 ; 4 "TWO" DATA ANRR; 497 ; 8 "NRR" DATA XPOPDO; 498 ;4 "POP." DATA XAGEND; xxx ; 4 "AGGEND" DATA XCLUS; xxx ; 8 "CLUSTER." DATA MEMEND; 499 ; 4 "MEMEND" DATA AYR; 500 ; 4 "YR." DATA TARPL & P; 501 ;10 "TARGETPOP" DATA PROP7; 502 ; 8 "PROP75+." DATA AWEEK; 503 ; 8 ".WEEK." DATA SOCTIT; 504 ; 8 "TITLE." DATA ATOTAL; 505 ; 8 "TOTAL." DATA SUBJ(1,1)/(2,1)/J; 506 ;16 "YEAR.TITLE" DATA SUBJ(1,2)/(2,2)/J; 507 ;16 "INIT.POP" DATA SUBJ(1,3)/(2,3)/J; 508 ;16 "DATE.SHIFT" DATA SUBJ(1,4)/(2,4)/J; 509 ;16 "SCALE" DATA SUBJ(1,5)/(2,5)/J; 510 ;16 "MORTALITY" DATA SUBJ(1,6)/(2,6)/J; 511 ;16 "MORT.SPLIT" DATA SUBJ(1,7)/(2,7)/J; 512 ;16 "REVERSE" DATA SUBJ(1,8)/(2,8)/J; 513 ;16 "FERTILITY" DATA SUBJ(1,9)/(2,9)/J; 514 ;16 "SEXRATIO" DATA SUBJ(1,10)/(2,10)/J; 515 ;16 "PRINT PX" DATA SUBJ(1,11)/(2,11)/J; 516 ;16 "MIGRATION" DATA SUBJ(1,12)/(2,12)/J; 517 ;16 "FINDMIGRATION" DATA SUBJ(1,13)/(2,13)/J; 518 ;16 "STABLEXTEND" DATA SUBJ(1,14)/(2,14)/J; 519 ;16 "PRODUCTION" DATA SUBJ(1,15)/(2,15)/J; 520 ;16 "PUNCH.FIVE" DATA SUBJ(1,16)/(2,16)/J; 521 ;16 "REGROUP" DATA SUBJ(1,17)/(2,17)/J; 522 ;16 "PUNCH.SINGLE" DATA SUBJ(1,18)/(2,18)/J; 523 ;16 "SUBDIVIDE" DATA SUBJ(1,19)/(2,19)/J; 524 ;16 "AGESEXSPEC" DATA SUBJ(1,20)/(2,20)/J; 525 ;16 "AGGREGATE" DATA SUBJ(1,21),(2,21)/J; 526 ;16 "PYRAMIDS" DATA SUBJ(1,22)/(2,22)/J; 527 ;16 "MEMO" DATA SUBJ(1,23)/(2,23)/J; 528 ;16 "END PROJECTION" DATA SUBJ(1,24)/(2,24)/J; xxx ;16 "AGG.TITLE" DATA LFTREG(1); 529 ; 8 "WEST" DATA LFTREG(2); 530 ; 8 "EAST" DATA LFTREG(3); 531 ; 8 "NORTH" DATA LFTREG(4); 532 ; 8 "SOUTH" DATA LFTREG(5); 533 ; 8 "FAR EAST" DATA LFTREG(6); 534 ; 8 "SO. ASIA" DATA LIFTAB(7); 535 ;8 "SAME.LT" DATA LIFTAB(8); 536 ;8 "LOAD.LT" DATA SEXLAB(1); 537 ; 8 "FEMALES" DATA SEXLAB(2); 538 ; 8 "MALES" DATA SEXLAB(3); 539 ; 8 "BOTH" DATA AMORT(1); 540 ; 8 "MORT.EZ." DATA AMORT(2); 541 ; 8 "MORT.LV." DATA AMORTS(1); 542 ; 8 "CHILD.IM" DATA AMORTS(2); 543 ; 8 "ADULT.E5" DATA AMORTS(3); 544 ; 8 "CHILD.LV" DATA AMORTS(4); 545 ; 8 "ADULT.LV" DATA ARES(1); 546 ; 8 "RATIOS." DATA ARES(2); 547 ; 8 "SLOPE1." DATA ARES3(3); 548 ; 8 "SLOPE2." DATA BIGLAB(3,1)-(3-5); 549 ; 20 "TOTAL FOR BOTH SEXES" DATA AGELAB(1); 550 ; 8 0-4 DATA AGELAB(2); 551 ; 8 5-9 DATA AGELAB(3); 552 ; 8 10-14 DATA AGELAB(4); 553 ; 8 15-19 DATA AGELAB(5); 554 ; 8 20-24 DATA AGELAB(6); 555 ; 8 25-29 DATA AGELAB(7); 556 ;8 30-34 DATA AGELAB(8); 557 ;8 35-39 DATA AGELAB(9); 558 ;8 40-44 DATA AGELAB(10); 559 ;8 45-49 DATA AGELAB(11); 560 ; 8 50-54 DATA AGELAB(12); 561 ; 8 55-59 DATA AGELAB(13); 562 ; 8 60-64 DATA AGELAB(14); 563 ; 8 65-69 DATA AGELAB(15); 564 ; 8 70-74 DATA AGELAB(16); 565 ;8 75+ DATA AGELAB(17); 566 ;8 "TOTAL" DATA MASK; 567 ; 24 CON DATA SAMELT; 568 ; 4 "SAME" DATA STOPIT; 569 ; 4 HALT DATA ALOAD; 570 ; 4 "LOAD" DATA APLACE; 571 ; 8 "PLACE" DATA SUBHD1(1)-(3)/J; 572 ; 12 "FERTILITY" DATA FERMODS; 573 ; 12 "USING MODELS" DATA HDG(1); 574 ; 4 "E(0)" DATA HDG(2); 575 ; 4 "IMR" DATA HDG(3); 576 ; 4 "E(5)" DATA TIT(1)-(3)/J; 577 ; 12 "AGGREGATED" DATA ASFHED(1)-(4)/J; 578 ; 32 "AGE SPECIFIC FERTILITY SCHEDULE" DATA EPSMES(1)-(10)/J; 579 ; 40 "****AGE GROUPS <.05 ENCOUNTERED." DATA EPSMES(11)-(20)/J; 580 ; 40 "RAISED TO .05 TO CONTINUE PROCESSING." DATA ABC(1); 581 ; 4 "A" DATA ABC(2); 582 ; 4 "B" DATA ABC(3); 583 ; 4 "C" DATA ABC(4); 584 ; 4 "D" DATA ABC(5); 585 ; 4 "E" DATA ABC(6); 586 ; 4 "F" DATA NUMS(1); 587 ; 4 0 DATA NUMS(2); 588 ; 4 1 DATA NUMS(3); 589 ; 4 2 DATA NUMS(4); 590 ; 4 3 DATA NUMS(5); 591 ; 4 4 DATA NUMS(6); 592 ; 4 5 DATA NUMS(7); 593 ; 4 6 DATA NUMS(8); 594 ; 4 7 DATA NUMS(9); 595 ; 4 8 DATA NUMS(10); 596 ; 4 9 DATA YEARS; 597 ; 8 YEARS DATA AMIGLV; 598 ; 8 MIGLEVEL DATA AMEND; 599 ; 4 MEND DATA ATOTA ; 600 ; 8 TOTALONE DATA AGRP; 601 ; 8 GROUPS DATA AOLD; 602 ; 4 OLD. DATA AYR; 603 ; 4 YR. DATA AFERSH; 604 ; 8 FERDIST DATA FEND; 605 ; 8 FEND DATA ASEXR; 606 ; 8 MPERHUNDF DATA ARATES; 607 ; 8 RATES DATA SEND; 608 ; 8 SEND DATA AEND; 609 ; 4 AEND DATA ONETWO(1); 610 ; 4 ONE DATA ONETWO(2); 611 ; 4 TWO DATA ANRR; 612 ; 8 NRR DATA PROP7; 613 ; 8 PROP75+. DATA AGGEND; xxx ; 4 AGGEND DATA CLUSTR; xxx ; 8 CLUSTER. DATA MEMEND; 614 ; 4 MEMEND DATA TARPL & P; 615 ;8 TARGETPOP DATA AWEEK; 616 ; 8 .WEEK. DATA SOCTIT; 617 ; 8 TITLE. DATA ATOTAL; 618 ; 8 TOTAL. DATA NAMES1(1)/J; 619 ;4 YEAR DATA NAMES1(2); 620 ;4 DATE DATA NAMES1(3)/J; 621 ;4 INIT DATA NAMES1(4)/J; 622 ;4 SCAL DATA NAMES1(5)/J; 623 ;4 MORT DATA NAMES1(6); 624 ;4 MORT DATA NAMES1(7); 625 ;4 FERT DATA NAMES1(8); 626 ;4 SEXR DATA NAMES1(9); 627 ;4 MIGR DATA NAMES1(10); 628 ;4 STAB DATA NAMES1(11); 629 ;4 PROD DATA NAMES1(12); 630 ;4 REGR DATA NAMES1(13); 631 ;4 FIND DATA NAMES1(14); 632 ;4 SUBD DATA NAMES1(15); 633 ;4 AGES DATA NAMES1(16); 634 ;4 PUNC DATA NAMES1(17); 635 ;4 PUNC DATA NAMES1(18); 636 ;4 END DATA NAMES1(19); 637 ;4 REVE DATA NAMES1(20); 638 ;4 PRIN DATA NAMES1(21); 639 ;4 AGGR DATA NAMES1(22); 640 ;4 PYRA DATA NAMES1(23); 641 ;4 MEMO DATA NAMES1(24); xxx ;4 AGG. DATA NAMES2(1) ; 642 ;8 .TITLE DATA NAMES2(2) ; 643 ;8 .SHIFT DATA NAMES2(3) ; 644 ;8 .POP DATA NAMES2(4) ; 645 ;8 E DATA NAMES2(5) ; 646 ;8 ALITY DATA NAMES2(6) ; 647 ;8 .SPLIT DATA NAMES2(7) ; 648 ;8 ILITY DATA NAMES2(8) ; 649 ;8 ATIO DATA NAMES2(9) ; 650 ;8 ATION DATA NAMES2(10) ; 651 ;8 LEXTEND DATA NAMES2(11) ; 652 ;8 UCTION DATA NAMES2(12) ; 653 ;8 OUP DATA NAMES2(13) ; 654 ;8 MIGRATION DATA NAMES2(14) ; 655 ;8 IVIDE DATA NAMES2(15) ; 656 ;8 EXSPEC DATA NAMES2(16) ; 657 ;8 H.FIVE DATA NAMES2(17) ; 658 ;8 H.SINGLE DATA NAMES2(18) ; 659 ;8 PROJECTION DATA NAMES2(19) ; 660 ;8 RSE DATA NAMES2(20) ; 661 ;8 T PX DATA NAMES2(21) ; 662 ;8 EGATE DATA NAMES2(22) ; 663 ;8 MIDS DATA NAMES2(23) ; 664 ;8 DATA NAMES2(24) ; xxx ;8 TITLE DATA LFTREG(1); 665 ; 8 WEST DATA LFTREG(2); 666 ; 8 EAST DATA LFTREG(3); 667 ; 8 NORTH DATA LFTREG(4); 668 ; 8 SOUTH DATA LFTREG(5); 669 ; 8 FAR EAST DATA LFTREG(6); 670 ; 8 SO. ASIA DATA AMORT(1); 671 ; 8 MORT.EZ. DATA AMORT(2); 672 ; 8 MORT.LV. DATA AMORTS(1); 673 ; 8 CHILD.IM DATA AMORTS(2); 674 ; 8 ADULT.E5 DATA AMORTS(3); 675 ; 8 CHILD.LV DATA AMORTS(4); 676 ; 8 ADULT.LV DATA ARES(1); 677 ; 8 RATIOS. DATA ARES(2); 678 ; 8 SLOPE1. DATA ARES3(3); 679 ; 8 SLOPE2. DATA SAMELT; 680 ; 4 SAME DATA ALOAD; 681 ; 4 LOAD DATA APLACE; 682 ; 8 PLACE DATA ABC(1); 683 ; 4 A DATA ABC(2); 684 ; 4 B DATA ABC(3); 685 ; 4 C DATA ABC(4); 686 ; 4 D DATA ABC(5); 687 ; 4 E DATA ABC(6); 688 ; 4 F DATA FM(1); 689 ; 4 F DATA FM(2); 690 ; 4 M DATA ABC6 ; 691 ; 4 F DATA M ; 692 ; 4 M DATA ASTER ; 693 ;4 * DATA XWGT ; 694 ; 8 "WEIGHTED" DATA POPDOT ; 695 ; 4 POP. DATA YES(1); 696 ;2 "Y" DATA YES(2); 697 ;2 "y" DATA NO(1); 698 ;2 "N" DATA NO(2); 699 ;2 "n" DATA HALTL; 700 ;8 HALT DATA INIT; 701 ;4 "INIT" DATA TOTF-RT; 702 ;10 TOTAL.FERT DATA MIGRL; 703 ;4 "MIGR" DATA PLACE1; 704 ;8 "PLACEONE" DATA PLACE2; 705 ;8 "PLACETWO" DATA SLOPEL; 706 ;8 SLOPE DATA YRL; 707 ;4 "YEAR" DATA SLAB(1); 708 ;8 "FEMALE" DATA SLAB(2); 709 ;8 "MALE" DATA FISETH(1); 710 ;8 "first" DATA FISETH(2); 711 ;8 "second" DATA FISETH(3); 712 ;8 "third" DATA REQ/J; 713 ;2 "REQUIRED" DATA ALT/J; 714 ;2 "ALT" DATA OPT/J; 715 ; 2 "OPTIONAL" DATA YEARS; 716 ; 8 YEARS DATA AMIGLV; 717 ; 8 MIGLEVEL DATA AMEND; 718 ; 4 MEND DATA TOTAL1 ; 719 ; 8 TOTALONE DATA GROUPL; 720 ; 8 GROUPS DATA OLD; 721 ; 4 OLD. DATA FERDL; 722 ; 8 FERDIST DATA FEND; 723 ; 4 FEND DATA ASEXR; 724 ; 8 MPERHUND DATA RATES; 725 ; 8 RATES DATA SEND; 726 ; 4 SEND DATA AEND; 727 ; 4 AEND DATA NRRL; 728 ; 4 NRR DATA XAGEND; xxx ; 4 AGGEND DATA XCLUS; xxx ; 8 CLUSTER. DATA MEMEND; 729 ; 4 MEMEND DATA YR; 730 ; 2 YR DATA TARPL & P; 731 ;10 TARGETPOP DATA PROPPL; 732 ; 8 PROP75+ DATA AWEEK; 733 ; 4 WEEK DATA TITL; 734 ; 8 TITLE DATA TOTALL; 735 ; 8 TOTAL DATA SUBJ(1,1)/(2,1)/J; 736 ;16 YEAR.TITLE DATA SUBJ(1,2)/(2,2)/J; 737 ;16 INIT.POP DATA SUBJ(1,3)/(2,3)/J; 738 ;16 DATE.SHIFT DATA SUBJ(1,4)/(2,4)/J; 739 ;16 SCALE DATA SUBJ(1,5)/(2,5)/J; 740 ;16 MORTALITY DATA SUBJ(1,6)/(2,6)/J; 741 ;16 MORT.SPLIT DATA SUBJ(1,7)/(2,7)/J; 742 ;16 REVERSE DATA SUBJ(1,8)/(2,8)/J; 743 ;16 FERTILITY DATA SUBJ(1,9)/(2,9)/J; 744 ;16 SEXRATIO DATA SUBJ(1,10)/(2,10)/J; 745 ;16 PRINT PX DATA SUBJ(1,11)/(2,11)/J; 746 ;16 MIGRATION DATA SUBJ(1,12)/(2,12)/J; 747 ;16 FINDMIGRATION DATA SUBJ(1,13)/(2,13)/J; 748 ;16 STABLEXTEND DATA SUBJ(1,14)/(2,14)/J; 749 ;16 PRODUCTION DATA SUBJ(1,15)/(2,15)/J; 750 ;16 PUNCH.FIVE DATA SUBJ(1,16)/(2,16)/J; 751 ;16 REGROUP DATA SUBJ(1,17)/(2,17)/J; 752 ;16 PUNCH.SINGLE DATA SUBJ(1,18)/(2,18)/J; 753 ;16 SUBDIVIDE DATA SUBJ(1,19)/(2M19)/J; 754 ;16 AGESEXSPEC DATA SUBJ(1,20)/(2,20)/J; 755 ;16 AGGREGATE DATA SUBJ(1,21),(2,20)/J; 756 ;16 PYRAMIDS DATA SUBJ(1,22)/(2,22)/J; 757 ;16 MEMO DATA SUBJ(1,23)/(2,23)/J; 758 ;16 END PROJECTION DATA SUBJ(1,24)/(2,24)/J; xxx ;16 AGG.TITLE DATA LIFTAB(1); 759 ; 8 WEST DATA LIFTAB(2); 760 ; 8 EAST DATA LIFTAB(3); 761 ; 8 NORTH DATA LIFTAB(4); 762 ; 8 SOUTH DATA LIFTAB(5); 763 ; 8 FAR EAST DATA LIFTAB(6); 764 ; 8 SO. ASIA DATA LIFTAB(7); 765 ;8 SAME.LT DATA LIFTAB(8); 766 ;8 LOAD.LT DATA FM(1); 767 ; 2 F DATA FM(2); 768 ; 2 M DATA MORTL; 769 ; 4 MORT DATA EZ; 770 ; 2 EZ DATA LV; 771 ; 2 LV DATA CHILDL; 772 ; 8 CHILD DATA ADULTL; 773 ; 8 ADULT DATA IM; 774 ; 2 IM DATA E5; 775 ; 2 E5 DATA RATIOL; 776 ; 8 RATIOS DATA YES(1); 777 ;2 Y DATA YES(2); 778 ;2 y DATA NO(1); 779 ;2 N DATA NO(2); 780 ;2 n DATA INIT; 781 ;4 INIT DATA TOTF-RT; 782 ;10 TOTAL.FERT DATA MIGRL; 783 ;4 MIGR DATA PLACE1; 784 ;8 PLACEONE DATA PLACE2; 785 ;8 PLACETWO DATA YRL; 786 ;4 YEAR DATA MONTH; 787 "JANUARY" DATA MONTH; 788 "FEBRUARY" DATA MONTH; 789 "MARCH" DATA MONTH; 790 "APRIL" DATA MONTH; 791 "MAY" DATA MONTH; 792 "JUNE" DATA MONTH; 793 "JULY" DATA MONTH; 794 "AUGUST" DATA MONTH; 795 "SEPTEMBER" DATA MONTH; 796 "OCTOBER" DATA MONTH; 797 "NOVEMBER" DATA MONTH; 798 "DECEMBER"
Copyright ©2021 || Defacer Indonesia