FLECS VERSION 860214 27-MAR-87 11:27:10 PAGE 00001 LAMPFI,LAMPFI/-SP=[MP1Q.FLEALECOM]LAMPFI/CO:FLECS:VAX 00001 00000 C;+ 00002 00000 C - L A M P F I 00003 00000 C****NAME: SUBROUTINE LAMPFI 00004 00000 C IDENT: /850228/ 00005 00000 C FILE: LAMPFI.FLL 00006 00000 C 00007 00000 C****PURPOSE: INITIALIZE LAMPF VERSION OF FLECS 00008 00000 C 00009 00000 C****RESTRICTIONS: 00010 00000 C 00011 00000 C SYSTEM: RSX11M V4.1, VMS V4.0 00012 00000 C LANGUAGE: FLECS/FORTRAN 00013 00000 C AUTHOR: M. OOTHOUDT 00014 00000 C DATE: 14-FEB-80 00015 00000 C REVISIONS: 00016 00000 C 09-APR-80 (MAO) CONVERT FROM 11D TO 11M 00017 00000 C 07-MAR-83 (MAO) ADD CODE TO PUT FORT LINE #S IN FLL FILE 00018 00000 C 13-AUG-84 (MAO) USE /CO:VAX/PDP AND /CO:ALECS/FLECS 00019 00000 C 850215mao On the VAX open LUN 2 to TI: for message logging. 00020 00000 C 850228mao NO LONGER NEED LUN 2, SINCE MSGOUT USED FOR TI: MESSAGES. 00021 00000 C 00022 00000 C****CALLING SEQUENCE: CALL LAMPFI (ALE,CHC,CINLIN) 00023 00000 C 00024 00000 C INPUT: NONE 00025 00000 C 00026 00000 C OUTPUT: 00027 00000 C 00028 00000 C ALE =(L*2) .T. IF ALECS, .F. IF FLECS (USED BY FLERSX, ETC) 00029 00000 C CHC =(I*2) NUMERIC VALUE FOR COMMENT CHARACTER 00030 00000 C CINLIN=(I*2) NUMERIC VALUE FOR IN-LINE COMMENT CHARACTER 00031 00000 C 00032 00000 C CMN BLOCK I/O: /MACVAL/ 00033 00000 C 00034 00000 C RESOURCES: 00035 00000 C LIBRARIES: NONE 00036 00000 C OTHER SUBR: IRAD50 00037 00000 C DISK FILES: NONE 00038 00000 C DEVICES: NONE 00039 00000 C SGAS: NONE 00040 00000 C EVENT FLAGS: NONE 00041 00000 C SYSTEM DIR: NONE 00042 00000 C 00043 00000 C****NOTES: 00044 00000 C 1. WARNING--IN SEVERAL PLACES THE OCTAL VALUE OF A CHARACTER IS 00045 00000 C STORED IN AN INTEGER. IT MIGHT SEEM BETTER TO DO EG. "I=1HC"--THIS 00046 00000 C DOES NOT WORK!! "I=1HC" PUTS "20103 IN I WHEREAS "I="103" GIVES THE 00047 00000 C VALUE NECESSARY TO BE USED ELSEWHERE IN FLECS. 00048 00000 C 00049 00000 C 2. The variable CNTALL is set here. If it is .TRUE., all 00050 00000 C lines in the FORTRAN file should be counted to produce the FORTRAN 00051 00000 C line number in the FLL file. CNTALL should be true for all MACRO 00052 00000 C cases and for VMS F77. 00053 00000 C;- 00054 00001 SUBROUTINE LAMPFI (ALE,CHC,CINLIN) 00055 00001 FLECS VERSION 860214 27-MAR-87 11:27:10 PAGE 00002 LAMPFI,LAMPFI/-SP=[MP1Q.FLEALECOM]LAMPFI/CO:FLECS:VAX 00056 00001 .PASSUNLESS ALECS 00057 00001 .PASSUNLESS FLECS 00059 00001 .PASSEND 00060 00001 .PASSEND 00061 00001 00062 00001 .PASSUNLESS PDP 00063 00001 .PASSUNLESS VAX 00065 00001 .PASSEND 00066 00001 .PASSEND 00067 00001 C 00068 00001 C SUBROUTINE CALL DECLARATIONS 00069 00001 C 00070 00002 LOGICAL*2 ALE 00071 00003 INTEGER*2 CHC,CINLIN 00072 00003 00073 00003 C FOLLOWING FOR LAMPF VERSION OF FLECS 00074 00003 00075 00004 INTEGER*2 NUMLIN !830307 MAO 00076 00005 LOGICAL*2 CNTALL !830307 MAO 00077 00006 COMMON/FLINE/CNTALL,NUMLIN !830307 MAO 00078 00006 C 00079 00007 LOGICAL*2 ALECS,LSTFUL 00080 00008 INTEGER*2 TYPIN,TYPLST,TYPOUT,CHCMNT 00081 00009 COMMON/MACVAL/ALECS,TYPIN,TYPLST,TYPOUT,CHCMNT,LSTFUL 00082 00009 00083 00009 .PASSIF ALECS 00093 00009 .PASSEND 00094 00009 .PASSIF FLECS 00095 00009 C 00096 00009 C FLECS 00097 00009 C 00098 00010 CHCMNT="103 !COMMENT CHARACTER=C (SEE NOTE 1) 00099 00011 CINLIN="41 !IN-LINE COMMENT CHARACTER=! 00100 00012 CALL IRAD50(3,3HFLX,TYPIN) !INPUT FILE EXTENSION 00101 00013 CALL IRAD50(3,3HFLL,TYPLST) !LIST FILE EXTENSION 00102 00014 CALL IRAD50(3,3HFTN,TYPOUT) !OUTPUT FILE EXTENSION 00103 00015 ALECS=.FALSE. 00104 00015 .PASSEND 00105 00015 C 00106 00016 ALE=ALECS 00107 00017 CHC=CHCMNT 00108 00017 C 00109 00017 .PASSIF ALECS 00111 00017 .PASSEND 00112 00017 .PASSIF FLECS 00113 00017 .PASSIF PDP 00115 00017 .PASSEND 00116 00017 .PASSIF VAX 00117 00018 CNTALL=.TRUE. !COUNT ALL LINES FOR VMS FORTRAN !830307 00118 00018 .PASSEND 00119 00018 .PASSEND 00120 00018 C 00121 00019 RETURN 00122 00020 END FLECS VERSION 860214 27-MAR-87 11:27:10 PAGE 00003 LAMPFI,LAMPFI/-SP=[MP1Q.FLEALECOM]LAMPFI/CO:FLECS:VAX (FLECS VERSION 22.38)