Description voacap.f winapp 80000,260000 + (filein,fileout,areach)
Source file: voacapw.f
I/O Operations: Unit ID Unit No Access Form Operation * SEQ FMTD W 21 SEQ FMTD OR 21 SEQ A 21 C 61 SEQ FMTD OR 61 SEQ A LU5 SEQ FMTD OR LU5 SEQ A LU5 C 38 SEQ FMTD OR 38 SEQ A LU6 SEQ FMTD O LU6 SEQ A LU15 SEQ FMTD O LU35 SEQ FMTD O LU15 SEQ A LU35 SEQ A 48 SEQ FMTD O 48 SEQ A 49 DIR UNF O 18 C LU15 C LU35 C LU6 C 71 SEQ FMTD OR 71 SEQ A 71 C Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called INTEGER INDEX SUBROUTINE EXIT
External Functions and Subroutines Called INTEGER IT_EXIST, LCOUNT, LENCHAR REAL TRIM SUBROUTINE ANTCALC, AREAMAP, BATCH, BATCH_S SUBROUTINE CANCEL_BATCH, COUNT_BATCH SUBROUTINE CPU_TIME, DEL_ABT, EXIT SUBROUTINE GET_COMMAND_ARGUMENT, GET_RUN, HFMUFS SUBROUTINE HFMUFS2, READ_ASC, SET_MAGNETIC_POLE SUBROUTINE SET_RUN, UNLINK
Parameter Variables Used CHARACTER*3 COMPILER (COMPILER = 'w32') CHARACTER*6 VOACAPL_VERSION (VOACAPL_VERSION = '0.4')
Local Variables (+ indicates altered content) CHARACTER*80 +ALF CHARACTER*8 +ALF_ELAPSED_TIME CHARACTER*50 +ALF_FILEOUT CHARACTER*4 +ALF_IAREA_BATCH, +ALF_NAREA_BATCH CHARACTER*30 +AREAFILE CHARACTER +AREA_METH, +DUM CHARACTER*64 +FILEIN, +FILEOUT, FILE_BATCH CHARACTER +ICH CHARACTER*300 +PROGRAM CHARACTER*50 RUN INTEGER +ARGCTR, +FILENUMCTR, +I INTEGER +IABORT, +ICIRCUIT, +IDONE, +IERASE INTEGER +IIA(6), +IIB(6), +IOS INTEGER +IPROCESS_CTRL, ISTAT, NAREA_BATCH INTEGER +NCH, +NCH2, +NCH3, +NCHD INTEGER +NCHF, +NCH_BATCH, +NCH_IN, +NCH_OUT INTEGER +NCH_RUN LOGICAL*1 +DOESIT REAL +ELAPSED REAL*8 END_TIME, START_TIME
Referenced Common Block Variables (+ indicates altered content) CAREACH CHARACTER +AREACH CCANCEL_BATCH INTEGER +ICANCEL_BATCH CCIRAF_TP INTEGER +NTP CDISTANCE INTEGER +IHR, +NDISTANCE CHARRIS INTEGER +IHARRIS CLISTING CHARACTER +FORMFEED, +LISTING CMODEL CHARACTER*8 +MODEL CPROGRESS CHARACTER*80 +ALF_LABEL CPROGRESS INTEGER +IAREA_BATCH CQUIET INTEGER +IQUIET CROUND INTEGER +IROUND CRUN_DIRECTORY CHARACTER*50 +RUN_DIRECTORY CTIME INTEGER +NTIME CVERSN CHARACTER*8 +VERSN C_S_TO_I INTEGER +I_S_TO_I DATR INTEGER +NPL, +NT DATR REAL +TWDIV, +XNPL FILES INTEGER LU15, LU35 FILES INTEGER LU5, LU6 ONE INTEGER +IA(6), +IB(6) TWO REAL +F2D(16,6,6)
Description This sets the location of the geomagnetic north pole The default is (78.5N, 69.0W) = (78.5, -69.0)
Source file: voacapw.f
I/O Operations: Unit ID Unit No Access Form Operation LU SEQ FMTD OR LU SEQ A LU C Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called INTEGER LCOUNT
Local Variables (+ indicates altered content) INTEGER +LU, +NCH_RUN REAL +GLAT, +GLON
Referenced Common Block Variables (+ indicates altered content) CNORTH_POLE REAL +G_MAGNETIC_LAT CNORTH_POLE REAL +G_MAGNETIC_LON CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY