PROGRAM VOACAPW ( )

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)

SUBROUTINE SET_MAGNETIC_POLE ( )

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