
                                                                19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   1
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00001   C    THIS PROGRAM COMPUTES THE IWDM PREDICTED MAXIMUM SUSTAINED
00002   C    SURFACE WIND (MSSW) AS A FUNCTION OF TIME BASED UPON A
00003   C    USER SPECFIED STORM TRACK. THE PROGRAM CAN COMPUTE THE MSSW
00004   C    EITHER WITH OR WITHOUT THE DISTANCE TO LAND CORRECTION.
00005   C
00006   C
00007         PARAMETER (NPOS=50)
00008         PARAMETER (NOBS=1000)
00009         DIMENSION RLAT(0:NPOS), RLON(0:NPOS), DTPRED(0:NOBS)
00010   C
00011         CALL RDBEST(RLAT,RLON,IDTBST,I)            
00012         CALL PRDWND(RLAT,RLON,IDTBST,I)
00013         CALL GETWND()
00014   C
00015         STOP
00016         END
%FORT-I-VARUNUSED, Variable was declared but not used
	[DTPRED] in module IWDMPT$MAIN 





PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   40   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  2 $LOCAL                                 464   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD

    Total Space Allocated                  504


ENTRY POINTS

    Address  Type  Name          

  0-00000000       IWDMPT$MAIN   


VARIABLES

    Address  Type  Name              Address  Type  Name          

  2-0000019C  I*4  I               2-00000198  I*4  IDTBST        


ARRAYS

    Address  Type  Name                Bytes  Dimensions

      **      R*4  DTPRED               4004  (0:1000)
  2-00000000  R*4  RLAT                  204  (0:50)
  2-000000CC  R*4  RLON                  204  (0:50)

IWDMPT$MAIN                                                     19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   2
01                                                              19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name          

        GETWND                PRDWND                RDBEST        

                                                                19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   3
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00001   C
00002   C     THIS SUBROUTINE READS IN BEST TRACK STORM POSTIONS 
00003   C
00004         SUBROUTINE RDBEST(RLAT,RLON,IDTBST,I)            
00005         PARAMETER (npos=50)
00006         DIMENSION RLAT(0:NPOS), RLON(0:NPOS)
00007         CHARACTER*1 RDPOS
00008   C
00009         I = 0
00010      10 WRITE(6,11)
00011      11 FORMAT(1X,'ENTER TIME RESOLUTION OF BEST TRACK DATA (HR)')       
00012         READ(6,*)IDTBST
00013      15 WRITE(6,20)
00014      20 FORMAT(1X,'DO YOU WISH TO ENTER ANOTHER STORM POSTION(Y/N)')
00015         READ(6,30)RDPOS
00016      30 FORMAT(A1)
00017         IF(RDPOS.EQ.'Y'. OR. RDPOS.EQ.'y')THEN
00018             WRITE(6,40)
00019      40     FORMAT(1X,
00020        1           'ENTER LAT (DEG N) AND LON (DEG W) STORM LOCATION')
00021             READ(6,*)RLAT(I),RLON(I)
00022             I = I + 1
00023             GO TO 15
00024         ELSE
00025             I = I - 1 
00026         ENDIF
00027   C
00028         RETURN 
00029         END

RDBEST                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   4
01                                                              19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  235   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 158   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                                  52   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD

    Total Space Allocated                  445


ENTRY POINTS

    Address  Type  Name          

  0-00000000       RDBEST        


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name          

 AP-00000010@ I*4  I              AP-0000000C@ I*4  IDTBST          2-00000000  CHAR RDPOS         


ARRAYS

    Address  Type  Name                Bytes  Dimensions

 AP-00000004@ R*4  RLAT                  204  (0:50)
 AP-00000008@ R*4  RLON                  204  (0:50)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

      **      10        1-00000000  11'       0-0000005C  15        1-00000032  20'       1-00000066  30'       1-00000069  40'     

                                                                19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   5
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00001   C
00002   C     SUBROUTINE PRDWND(RLAT,RLON,IDTBST,I)
00003   C     THIS SUBROUTINE PREDICTS THE MSSW USING THE IWDM EQUATIONS
00004   C     AND EITHER CORRECTING OR NOT CORRECTING FOR THE DISTANCE
00005   C     A STORM IS INLAND
00006   C
00007         SUBROUTINE PRDWND(RLAT,RLON,IDTBST,I)
00008   C
00009         PARAMETER (npos=50)
00010         PARAMETER (NOBS=1000)
00011         DIMENSION RLAT(0:NPOS), RLON(0:NPOS)
00012         DIMENSION VMXNCR(0:NOBS), VMXWCR(0:NOBS), DTPRED(0:NOBS)
00013         DATA Vb/26.7/ , R/0.9/, ALPHA/0.095/, c1/0.0109 /, d1/-0.0503/ 
00014         DATA D0/1.0/, T0/50./, VMX/107./
00015   c       DATA Vb/29.6/ , R/0.9/, ALPHA/0.187/, c1/0.1384 /, d1/-0.5059/ 
00016   c       DATA D0/1.0/, T0/12./, VMX/100./
00017   C
00018   C
00019   C      OPEN(UNIT=30,STATUS='NEW',NAME='IWDM_BERTHA_NDTL.DAT')
00020   C      OPEN(UNIT=35,STATUS='NEW',NAME='IWDM_BERTHA_WDTL.DAT')
00021   C
00022         NDTLND = 0
00023         NOVRLN = 0 
00024         SUMDTL = 0.0 
00025         RMNPHR = 60.
00026         TIMRES = 10.
00027         MAXH20 = 0
00028         NUMH20 = 0
00029         IFLAG  = 0
00030   C
00031   C     
00032         WRITE(6,*)
00033         WRITE(6,10)
00034      10 FORMAT(1X,'ENTER MAXIMUM SUSTAINED WIND AT LANDFALL IN KT')
00035         READ(6,*)VMX
00036   C
00037         NTSTEP    = INT( (FLOAT(IDTBST)*RMNPHR)/TIMRES)
00038         VMXNCR(0) = VMX                            
00039         VMXWCR(0) = VMX
00040         DTPRED(0) = 0.
00041   C      
00042         NMX = I - 1
00043         DO 40  J=0, NMX
00044              IF(J.LT.NMX)THEN
00045                  NINC = NTSTEP - 1
00046              ELSEIF(J.EQ.NMX)THEN
00047                  NINC = NTSTEP
00048              ENDIF
00049              WRITE(6,*)'J=',J,'I=',I,'NMX=',NMX,'NTSTEP=',NTSTEP
00050        1              ,'NINC=',NINC,'RLAT(J)=',RLAT(J),'RLON(J)=',
00051        2              RLON(J),'RLAT(J+1)=',RLAT(J+1),'RLON(J+1)=',
00052        3              RLON(J+1)
00053              DO 20 K=0,NINC
00054                   NDTLND = NDTLND + 1
00055                   DTLAT  = (RLAT(J+1) - RLAT(J))/FLOAT(NTSTEP)
00056                   DTLON  = (RLON(J+1) - RLON(J))/FLOAT(NTSTEP)
00057                   CKLAT  = RLAT(J) + DTLAT*FLOAT(K)

PRDWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   6
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00058                   CKLONN = -( RLON(J) + DTLON*FLOAT(K) )
00059                   CALL ALAND(CKLONN,CKLAT,CKDIST)
00060                   Write(6,*)'cklonn=',cklonn,'cklat=',cklat,
00061        1               'ckdist=',ckdist
00062   C
00063   C     TREAT OVER-WATER TC AS IF IT WERE STILL OVERLAND UNTIL IT HAS BEEN
00064   C       OVER WATER FOR >1 HOUR (NUMH20=7).THIS IS CONSISTENT WITH THE 
00065   C       REASONING USED IN THE BSTTRK.FOR AND FITCRV.FOR PROGRAMS
00066   C       WHEN TRYING TO DECIDE WHEN A STORM SHOULD BE CONSIDERED
00067   C       TO BE OVERLAND.
00068   C 
00069                   IF(CKDIST.GT.0 .AND. NOVRLN.GT.0)THEN
00070                       NUMH20 = NUMH20 + 1
00071                       IF(NUMH20.LE.MAXH20)THEN
00072                           IFLAG = 1 
00073                          WRITE(6,*)'CKDIST=',CKDIST,'NUMH20=',NUMH20,
00074        1                 'IFLAG=',IFLAG
00075                       ELSEIF(NUMH20.GT.MAXH20)THEN
00076                           IFLAG = 0
00077                           WRITE(6,*)'CKDIST=',CKDIST,'NUMH20=',NUMH20,
00078        1                  'IFLAG=',IFLAG
00079                           RETURN
00080                       ENDIF
00081                   ENDIF
00082                   IF(CKDIST.LT.0. OR. IFLAG.EQ.1)THEN
00083                       IF(NOVRLN.EQ.0)THEN
00084                           DTLAND = FLOAT(NDTLND - 1)*TIMRES
00085                       WRITE(6,*)'LANDFALL LAT=',CKLAT,'LANDFALL LON='
00086                       WRITE(6,*)CKLONN,'DISTANCE INLAND=',CKDIST
00087                       WRITE(6,*)'K= ',K,' NDTLND= ',NDTLND
00088                       WRITE(6,*)'TIME ELAPSED BEFORE LANDFALL=',DTLAND
00089                       ENDIF
00090                       NOVRLN = NOVRLN + 1
00091                       WRITE(6,*)'J=',J,'K=',K
00092                       WRITE(6,*)'CKLAT=',CKLAT,'CKLONN=',CKLONN
00093                       WRITE(6,*)'CKDIST=',CKDIST,'NOVRLN=',NOVRLN
00094                       SUMDTL = SUMDTL + CKDIST
00095                       TELAPS = (TIMRES*(FLOAT(NOVRLN-1)))/60.
00096                       IF(TELAPS.LT.T0)THEN
00097                           DTCORR = TELAPS
00098                       ELSEIF(TELAPS.GT.T0)THEN
00099                           DTCORR = T0
00100                       ENDIF
00101                       AVGDTL = -(SUMDTL/FLOAT(NOVRLN))
00102                       IF(AVGDTL.LT.1.)AVGDTL=1.0
00103                       S = c1*DTCORR*(T0-DTCORR)
00104                       b = d1*DTCORR*(T0-DTCORR)
00105                       C = S*ALOG(AVGDTL/D0) + b
00106                       VMXNCR(NOVRLN) = ((R*VMX)- Vb)*EXP(-ALPHA*TELAPS)
00107        1                               + Vb
00108                       VMXWCR(NOVRLN) = VMXNCR(NOVRLN) - C
00109   c                    IF(NOVRLN.EQ.1)THEN
00110   c                    WRITE(6,*)'SUMDTL=',SUMDTL,'NOVRLN=',NOVRLN
00111   c                    WRITE(6,*)'AVGDTL=',AVGDTL,'C1=',C1,'D1=',D1
00112   c                    WRITE(6,*)'TELAPS=',TELAPS,'S=',S,'B=',B,'C=',C
00113   c                    WRITE(6,*)'VMXNCR(NOVRLN)=',VMXNCR(NOVRLN)
00114   c                    WRITE(6,*)'VMXWCR(NOVRLN)=',VMXWCR(NOVRLN)                    

PRDWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   7
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00115   c                    ENDIF
00116                        DTPRED(NOVRLN) = TELAPS
00117                        IF(DTPRED(NOVRLN).EQ.0.0)THEN
00118                            VMXNCR(NOVRLN) = VMXNCR(0)
00119                            VMXWCR(NOVRLN) = VMXWCR(0)
00120                        ENDIF
00121                        WRITE(6,*)'NOVRLN=',NOVRLN,'TELAPS=',TELAPS
00122                        WRITE(6,*)'DTPRED= ',DTPRED(NOVRLN),'VMXNCR='
00123        1                         ,VMXNCR(NOVRLN)
00124                        WRITE(6,*)'DTPRED= ',DTPRED(NOVRLN),'VMXWCR= '
00125        1                         ,VMXWCR(NOVRLN)
00126   C
00127                        WRITE(30,15)DTPRED(NOVRLN),VMXNCR(NOVRLN)
00128                        WRITE(35,15)DTPRED(NOVRLN),VMXWCR(NOVRLN)                      
00129      15                   FORMAT(1X,2(F6.2,1X))
00130                   ENDIF
00131      20 CONTINUE
00132      40 CONTINUE
00133         IF(NOVRLND.EQ.0)THEN
00134             WRITE(6,*)'STORM DID NOT MAKE LANDFALL '                
00135         ENDIF
00136     100 RETURN
00137         END
%FORT-W-USEUNIVAR, Use of uninitialized variable
	[NOVRLND] in module PRDWND at line 133





PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                 1811   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 323   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                               12428   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD

    Total Space Allocated                14562


ENTRY POINTS

    Address  Type  Name          

  0-00000000       PRDWND        


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

  2-00002EF4  R*4  ALPHA               **      R*4  AVGDTL              **      R*4  B                   **      R*4  C             
  2-00002EF8  R*4  C1              2-00002F20  R*4  CKDIST          2-00002F18  R*4  CKLAT           2-00002F1C  R*4  CKLONN        
  2-00002F00  R*4  D0              2-00002EFC  R*4  D1              2-00002F24  R*4  DTCORR              **      R*4  DTLAND        
      **      R*4  DTLAT               **      R*4  DTLON          AP-00000010@ I*4  I              AP-0000000C@ I*4  IDTBST        
      **      I*4  IFLAG               **      I*4  J                   **      I*4  K                   **      I*4  MAXH20        

PRDWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   8
01                                                              19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

      **      I*4  NDTLND          2-00002F10  I*4  NINC                **      I*4  NMX                 **      I*4  NOVRLN        
  2-00002F28  I*4  NOVRLND             **      I*4  NTSTEP              **      I*4  NUMH20          2-00002EF0  R*4  R             
      **      R*4  RMNPHR              **      R*4  S                   **      R*4  SUMDTL          2-00002F04  R*4  T0            
      **      R*4  TELAPS              **      R*4  TIMRES          2-00002EEC  R*4  VB              2-00002F08  R*4  VMX           


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00001F48  R*4  DTPRED               4004  (0:1000)
 AP-00000004@ R*4  RLAT                  204  (0:50)
 AP-00000008@ R*4  RLON                  204  (0:50)
  2-00000000  R*4  VMXNCR               4004  (0:1000)
  2-00000FA4  R*4  VMXWCR               4004  (0:1000)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  1-00000000  10'       1-00000033  15'           **      20            **      40            **      100     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name            Type  Name            Type  Name          

        ALAND            R*4  ALOG             R*4  EXP              R*4  FLOAT            I*4  INT           

                                                                19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page   9
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00001   C
00002   C SUBROUTINE GETWND
00003   C     THIS SUBROUTINE READS THE FILE NEEDED TO RUN THE IWDM SWATH MODEL
00004   C     AND EXTRACTS THE MSSW AND GUST AND THEN COMPUTES THE TIME THESE
00005   C     WINDS WERE OBSERVED AFTER LANDFALL BASED ON A SPECIFIED LANDFALL
00006   C     TIME.
00007   C    
00008         SUBROUTINE GETWND()     
00009   C    
00010   C
00011         PARAMETER (NOBS=1000)
00012         DIMENSION ITYP(NOBS), RDAY(NOBS), ITIM(NOBS), RLAT(NOBS)  
00013         DIMENSION RLON(NOBS), RPRS(NOBS), RMSW(NOBS)
00014         DIMENSION RGST(NOBS), ZANM(NOBS), ZD(NOBS), Z0(NOBS)
00015         DIMENSION DTALND(NOBS)
00016         CHARACTER*1  PRFLAG(NOBS), ANMFLG(NOBS)
00017         CHARACTER*1  SWFLAG(NOBS), WGFLAG(NOBS), WNDTYP(NOBS)
00018         DATA RTILND/1650./
00019   C
00020         OPEN(UNIT=20,STATUS='OLD',
00021        1    NAME='d11:[HRD.KAPLAN.IWDM]ERIN_PAN_ADJST.IWDMPT')
00022         OPEN(UNIT=40,STATUS='NEW',
00023        2    NAME='D11:[HRD.KAPLAN.IWDM]MSSW_TEST.DAT')
00024         OPEN(UNIT=50,STATUS='NEW',
00025        3     NAME='D11:[HRD.KAPLAN.IWDM]GST_TEST.DAT')    
00026   C
00027   C
00028         IERR = 1
00029   C
00030         I = 0
00031      30 I = I +1     
00032         IF(I.EQ.1)THEN
00033             READ(20,35)ITIMDY
00034             WRITE(6,*)ITIMDY
00035         ENDIF
00036         READ(20,40,ERR=900,END=80)ITYP(I),RDAY(I),ITIM(I),
00037        1            RLAT(I),RLON(I),RPRS(I),RMSW(I),RGST(I),
00038        2            ZANM(I),ZD(I),Z0(I),SWFLAG(I),WGFLAG(I), 
00039        3            PRFLAG(I),ANMFLG(I),WNDTYP(I) 
00040   C      WRITE(6,40)ITYP(I),RDAY(I),ITIM(I),
00041   C     1            RLAT(I),RLON(I),RPRS(I),RMSW(I),RGST(I),
00042   C     2            ZANM(I),ZD(I),Z0(I),SWFLAG(I),WGFLAG(I), 
00043   C     3            PRFLAG(I),ANMFLG(I),WNDTYP(I) 
00044      35 FORMAT(I8)
00045         WRITE(6,*)'I=',I,'ITYP(I)=',ITYP(I),'ITIM=',ITIM(I)
00046      40 FORMAT(I2,1X,F7.0,1X,I4,1X,2(F7.3,1X),F6.1,1X,2(F6.1,1X),
00047        1       F7.2,1X,F5.1,1X,F6.1,1X,5(A1))
00048         GO TO 30
00049   C
00050      80 I = I - 1
00051         WRITE(6,*)'I=',I
00052         IERR = 0
00053         DO 100 J=1,I
00054             RTIM      = FLOAT(ITIM(J))       
00055             IHRTIM    = INT(RTIM/100.)      
00056             RDMTIM    = (RTIM - ((FLOAT(IHRTIM))*100.))/60.
00057             RDCTIM    = FLOAT(IHRTIM) + RDMTIM          

GETWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page  10
                                                                19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

00058             IHRLND    = INT((RTILND)/100.)      
00059             RDMLND    = (RTILND - ((FLOAT(IHRLND))*100.))/60.
00060             RDCLND    = FLOAT(IHRLND) + RDMLND          
00061             DTALND(J) = RDCTIM - RDCLND  
00062             IF(DTALND(J).LT.0)DTALND(J) = 0.
00063             IF(J.EQ.1)THEN
00064                WRITE(6,*)'RTIM=',RTIM,'IHRTIM=',IHRTIM,'RDMTIM='
00065                WRITE(6,*)RDMTIM,'RDCTIM=',RDCTIM,'IHRLND=',IHRLND
00066                WRITE(6,*)'RDMLND=',RDMLND,'RDCLND=',RDCLND
00067                WRITE(6,*)'DTALND=',DTALND(J)
00068             ENDIF
00069             WRITE(40,90)DTALND(J),RMSW(J)
00070             WRITE(50,90)DTALND(J),RGST(J)      
00071      90     FORMAT(1X,F5.2,1X,F5.1)
00072     100 CONTINUE
00073         CLOSE(UNIT=20)
00074     900 IF(IERR.EQ.1)THEN
00075            WRITE(6,*)'ERROR READING INPUT FILE AT LINE# ',I
00076         ENDIF
00077         RETURN
00078         END    




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                 1203   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 290   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                               53260   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD

    Total Space Allocated                54753


ENTRY POINTS

    Address  Type  Name          

  0-00000000       GETWND        


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

      **      I*4  I                   **      I*4  IERR                **      I*4  IHRLND              **      I*4  IHRTIM        
  2-0000CF0C  I*4  ITIMDY              **      I*4  J                   **      R*4  RDCLND              **      R*4  RDCTIM        
      **      R*4  RDMLND              **      R*4  RDMTIM          2-0000CF08  R*4  RTILND              **      R*4  RTIM          

GETWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page  11
01                                                              19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-0000BF68  CHAR ANMFLG               1000  (1000)
  2-0000ABE0  R*4  DTALND               4000  (1000)
  2-00001F40  I*4  ITIM                 4000  (1000)
  2-00000000  I*4  ITYP                 4000  (1000)
  2-0000BB80  CHAR PRFLAG               1000  (1000)
  2-00000FA0  R*4  RDAY                 4000  (1000)
  2-00006D60  R*4  RGST                 4000  (1000)
  2-00002EE0  R*4  RLAT                 4000  (1000)
  2-00003E80  R*4  RLON                 4000  (1000)
  2-00005DC0  R*4  RMSW                 4000  (1000)
  2-00004E20  R*4  RPRS                 4000  (1000)
  2-0000C350  CHAR SWFLAG               1000  (1000)
  2-0000C738  CHAR WGFLAG               1000  (1000)
  2-0000CB20  CHAR WNDTYP               1000  (1000)
  2-00009C40  R*4  Z0                   4000  (1000)
  2-00007D00  R*4  ZANM                 4000  (1000)
  2-00008CA0  R*4  ZD                   4000  (1000)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  0-0000002C  30        1-00000000  35'       1-00000003  40'       0-000002A0  80        1-00000040  90'           **      100     
  0-00000489  900     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name          

   R*4  FLOAT            I*4  INT           

GETWND                                                          19-Apr-2004 16:00:35	DEC Fortran V6.2-108                Page  12
01                                                              19-Apr-2004 16:00:33	HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.FOR;160    

COMMAND QUALIFIERS

  FOR/CHECK/LIST IWDMPT

  /ASSUME=(ACCURACY_SENSITIVE,NODUMMY_ALIASES)
  /BLAS=(INLINE,MAPPED)
  /CHECK=(ALIGNMENT,ASSERTIONS,BOUNDS,OVERFLOW,UNDERFLOW)
  /DEBUG=(PARAMETERS=USED,NOSYMBOLS,TRACEBACK)
  /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS)
  /DIRECTIVES=(DEPENDENCE)
  /MATH_LIBRARY=(ACCURATE,NOV5)
  /PARALLEL=(NOAUTOMATIC,NOMANUAL)
  /SHOW=(NODATA_DEPENDENCES,NODICTIONARY,NOINCLUDE,NOLOOPS,MAP,NOPREPROCESSOR,SINGLE)
  /STANDARD=(NOMIA,NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NOALIGNMENT,NOAlpha_AXP,NODECLARATIONS,GENERAL,NOINLINE,NOTRUNCATED_SOURCE,
             NOULTRIX,UNCALLED,UNINITIALIZED,UNUSED,USAGE,NOVAXELN)
  /CONVERT=NATIVE  /NOCROSS_REFERENCE  /NOD_LINES  /ERROR_LIMIT=30  /NOEXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE=LEVEL=3
  /NORECURSIVE  /NOSYNCHRONOUS_EXCEPTIONS  /TERMINAL=NOSTATISTICS  /NOVECTOR
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.LIS;10                                                             
  /OBJECT=HRD$DISK:[HRD.KAPLAN.IWDM]IWDMPT.OBJ;164                                                            


COMPILATION STATISTICS

  Run Time:           0.60 seconds
  Elapsed Time:       1.17 seconds
  Page Faults:        1101
  Dynamic Memory:     896 pages
