20-Nov-1990 18:07:16 VAX FORTRAN V5.4-79 Page 1 4-Jun-1990 09:32:11 LIB4:[ADDASYS.SOURCE]ADDA_INIT.FOR;5 0001 SUBROUTINE ADDA_INIT() 0002 C 0003 C ************************************************************************** 0004 C ** PROGRAM AUTHOR: WILLIAM BAKER 0005 C 0006 C ** PROGRAM DESCRIPTION: INITIALIAZES DATA ARRAYS FOR IO SYSTEM. 0007 C ** 0008 C 0009 C ** ADDA_INIT.FOR 0010 C ----------------------- 0011 C 0012 INTEGER*4 STATUS_I, CEFN 0013 C 0014 C ** INCLUDE THE DATABASE DEFINITIONS. 0015 C 0016 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC' 0158 C 0159 C ** INCLUDE DEFINITIONS NEEDED BY PROGRAM TO MAP DATA 0160 C 0161 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_MAP.INC' 0205 C 0206 C ** DEFINE THE EVENT FLAG USED FOR THE ASYNCHRONOUS DATA READ 0207 C ** BY THE PROGRAM. THE EVENT FLAG IS SET BY THE RETURNING 0208 C ** ENQUEUE OF THE DEVICE, SO WE KNOW WHEN A DATA POINT IS RETURNED. 0209 C 0210 AD_EFN = 70 + IDV - 1 0211 DA_EFN = 70 + IDV + 1 0212 C 0213 C ** CHECK IF DEVICE IS AXA0. 0214 C 0215 IF (IDV .EQ. 1) THEN 0216 C 0217 C ** DEFINE THE ARRAY POINTERS TO INITIAL CONDITIONS. 0218 C 0219 PRV_PNTR1 = 0 0220 CUR_PNTR1 = 1 0221 C 0222 C ** DEFINE THE CONTROLLING LOGICALS TO FALSE. 0223 C 0224 START_STOP1 = .FALSE. 0225 USE_LOGICAL1 = .FALSE. 0226 C 0227 C ** INITIALIZE THE DATA ARRAYS TO ZERO. 0228 C 0229 DO II = 1,16 0230 C 0231 C ** INITIALIZING THE READ BUFFER. 0232 C 0233 AD1_BUFFER(II) = 0 0234 C 0235 DO JJ = 1,120 0236 C 0237 C ** INITIALIZING THE STORAGE ARRAYS. 0238 C 0239 AD1_DATA1(JJ,II) = 0 0240 AD1_DATA2(JJ,II) = 0 0241 C ADDA_INIT 20-Nov-1990 18:07:16 VAX FORTRAN V5.4-79 Page 2 4-Jun-1990 09:32:11 LIB4:[ADDASYS.SOURCE]ADDA_INIT.FOR;5 0242 ENDDO 0243 ENDDO 0244 C 0245 C ** INITIALIZING THE OUTPUT BUFFER. 0246 C 0247 DA1_BUFFER(1) = 0 0248 DA1_BUFFER(2) = 0 0249 C 0250 C ** CHECK IF DEVICE IS AXB0. 0251 C 0252 ELSE IF (IDV .EQ. 2) THEN 0253 C 0254 C ** DEFINE THE ARRAY POINTERS TO INITIAL CONDITIONS. 0255 C 0256 PRV_PNTR2 = 0 0257 CUR_PNTR2 = 1 0258 C 0259 C ** DECLARE CONTROLLING LOGICALS TO BE FALSE. 0260 C 0261 START_STOP2 = .FALSE. 0262 USE_LOGICAL2 = .FALSE. 0263 C 0264 C 0265 C ** INITIALIZE THE DATA ARRAYS TO ZERO. 0266 C 0267 DO II = 1,16 0268 C 0269 C ** INITIALIZING THE READ BUFFER. 0270 C 0271 AD2_BUFFER(II) = 0 0272 C 0273 DO JJ = 1,120 0274 C 0275 C ** INITIALIZING THE STORAGE ARRAYS 0276 C 0277 AD2_DATA1(JJ,II) = 0 0278 AD2_DATA2(JJ,II) = 0 0279 C 0280 ENDDO 0281 ENDDO 0282 C 0283 C ** INITIALIZING THE OUTPUT BUFFERS 0284 C 0285 DA2_BUFFER(1) = 0 0286 DA2_BUFFER(2) = 0 0287 C 0288 ENDIF 0289 C 0290 C ** EXIT SUBROUTINE. 0291 C 0292 RETURN 0293 END ADDA_INIT 20-Nov-1990 18:07:16 VAX FORTRAN V5.4-79 Page 3 01 4-Jun-1990 09:32:11 LIB4:[ADDASYS.SOURCE]ADDA_INIT.FOR;5 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 282 PIC CON REL LCL SHR EXE RD NOWRT LONG 2 $LOCAL 24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 3 ADDA_DATA 17352 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 ADDA_STORE 8656 PIC OVR REL GBL SHR NOEXE RD WRT LONG 5 ADDA_PNTRS 24 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 ADDA_LOGIC 20 PIC OVR REL GBL SHR NOEXE RD WRT LONG 7 ADDA_NMBR 2924 PIC OVR REL GBL SHR NOEXE RD WRT LONG 8 ADDA_MAP 228 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 29510 ENTRY POINTS Address Type Name 0-00000000 ADDA_INIT VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name 5-00000008 I*4 AD1_PNTR 5-00000014 I*4 AD2_PNTR 4-000010E0 I*4 AD8_PNTR 4-000021C8 I*4 AD9_PNTR 8-000000B4 I*4 AD_EFN 8-000000A4 I*4 AD_ID 8-00000040 I*4 AD_NMBR 8-000000A0 L*4 AD_STRT 2-00000004 I*4 CEFN 8-000000A8 I*4 CLK_ID 7-00000000 R*4 CLK_RATE 6-00000010 L*4 CLK_READY 5-00000004 I*4 CUR_PNTR1 5-00000010 I*4 CUR_PNTR2 7-00000018 I*4 CUR_TIME 8-000000E0 I*4 DA_EFN 8-0000004C I*4 DA_NMBR 8-000000B0 CHAR DEVICE 8-000000AC I*4 IDV 2-00000010 I*4 II 2-00000014 I*4 JJ 8-000000DC L*4 LOG_DATA_OK 7-00000014 I*4 NEWOPT 5-00000000 I*4 PRV_PNTR1 5-0000000C I*4 PRV_PNTR2 6-00000000 L*4 START_STOP1 6-00000008 L*4 START_STOP2 2-00000000 I*4 STATUS_I 2-0000000C I*4 SYS$BINTIM 2-00000008 I*4 SYS$SETIMR 8-000000B8 L*4 USE_CLOCK 6-00000004 L*4 USE_LOGICAL1 6-0000000C L*4 USE_LOGICAL2 4-000010E4 L*4 USE_LOGICAL8 4-000021CC L*4 USE_LOGICAL9 ARRAYS Address Type Name Bytes Dimensions 3-00001E00 I*2 AD1_BUFFER 32 (16) 3-00000000 I*2 AD1_DATA1 3840 (120, 16) 3-00000F00 I*2 AD1_DATA2 3840 (120, 16) 3-00001E24 I*4 AD1_TIME1 480 (120) 3-00002004 I*4 AD1_TIME2 480 (120) 3-00003FE4 I*2 AD2_BUFFER 32 (16) 3-000021E4 I*2 AD2_DATA1 3840 (120, 16) 3-000030E4 I*2 AD2_DATA2 3840 (120, 16) 3-00004008 I*4 AD2_TIME1 480 (120) 3-000041E8 I*4 AD2_TIME2 480 (120) 4-00000000 I*2 AD8_DATA1 3840 (120, 16) 4-00000F00 I*4 AD8_TIME1 480 (120) 4-000010E8 I*2 AD9_DATA1 3840 (120, 16) 4-00001FE8 I*4 AD9_TIME1 480 (120) 8-000000BC I*2 AD_BUFFER 32 (16) ADDA_INIT 20-Nov-1990 18:07:16 VAX FORTRAN V5.4-79 Page 4 01 4-Jun-1990 09:32:11 LIB4:[ADDASYS.SOURCE]ADDA_INIT.FOR;5 8-00000000 I*4 AD_CHAN 64 (16) 8-00000050 I*4 AD_GAIN 64 (16) 7-00000004 I*4 AD_NUMBR 8 (2) 3-00001E20 I*2 DA1_BUFFER 4 (2) 3-00004004 I*2 DA2_BUFFER 4 (2) 8-00000044 I*4 DA_CHAN 8 (2) 8-00000098 I*4 DA_DEV 8 (2) 8-00000090 I*4 DA_FRM 8 (2) 7-0000000C I*4 DA_NUMBR 8 (2) RECORD ARRAYS Address Name Structure Bytes Dimensions 7-0000001C AD_CHNL AD_LIST 2560 (2, 16) 7-00000A1C DA_CHNL DA_LIST 336 (2, 2) COMMAND QUALIFIERS FOR/LIS/NOOPT/EXTEND ADDA_INIT /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW) /DEBUG=(NOSYMBOLS,TRACEBACK) /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS) /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE) /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX) /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN) /CONTINUATIONS=19 /NOCROSS_REFERENCE /NOD_LINES /EXTEND_SOURCE /F77 /NOG_FLOATING /I4 /NOMACHINE_CODE /NOOPTIMIZE /NOPARALLEL /NOANALYSIS_DATA /NODIAGNOSTICS /LIST=LIB4:[ADDASYS.SOURCE]ADDA_INIT.LIS;22 /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_INIT.OBJ;1 COMPILATION STATISTICS Run Time: 2.56 seconds Elapsed Time: 3.86 seconds Page Faults: 672 Dynamic Memory: 508 pages