Symbol Description Uses
Z 93


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1020 R8ADB4 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1079 R8ADB5 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1144 R8ADBG 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1306 R8FFTB1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1374 R8ADF2 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1403 R8ADF3 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1440 R8ADF4 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1495 R8ADF5 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 149 RADB5 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 14 RADB2 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1556 R8ADFG 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1724 R8FFTF1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1792 R8FFTI1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 216 RADBG 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 380 RFFTB1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 452 RADF2 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 47 RADB3 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 483 RADF3 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 522 RADF4 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 579 RADF5 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 642 RADFG 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 812 RFFTF1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 885 RFFTI1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 88 RADB4 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 952 R8ADB2 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 981 R8ADB3 
      implicit real*8 (A-H,O-Z)
./pkg/fizhi/fizhi_turb.F 2782 PHI 
      SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N)
./pkg/fizhi/fizhi_turb.F 2802 PHI 
      _RL PHIM(N),PHIH(N),Z(N)
./pkg/fizhi/fizhi_turb.F 2997 PHI 
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./pkg/fizhi/fizhi_turb.F 2998 PHI 
       IF(Z(I).GT.2. )IBIT2 = IBIT2 + 1
./pkg/fizhi/fizhi_turb.F 3004 PHI 
       ZSTAR(I)    = 100. * Z(I) - 14.
./pkg/fizhi/fizhi_turb.F 3009 PHI 
       TEMP1(I) = Z(I)*0.5
./pkg/fizhi/fizhi_turb.F 3010 PHI 
       IF( Z(I) .LE. 2. )TEMP1(I) = 1.
./pkg/fizhi/fizhi_turb.F 3013 PHI 
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./pkg/fizhi/fizhi_turb.F 3014 PHI 
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./pkg/fizhi/fizhi_turb.F 3052 PHI 
       ZSTAR(I) = -Z(I)
./pkg/fizhi/fizhi_turb.F 3057 PHI 
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 3065 PHI 
       IF( Z(I) .LT. 0.15 ) THEN
./pkg/fizhi/fizhi_turb.F 3066 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3120 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./pkg/fizhi/fizhi_turb.F 3166 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3172 PSI 
       Z(I) = -18. * Z(I)
./pkg/fizhi/fizhi_turb.F 3176 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3187 PSI 
       IF ( Z(I) .LT. 0.013 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3188 PSI 
     1        Z(I) * ( 0.25 -  0.09375 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3224 PSI 
       IF( Z(I) .LT. 0.0065 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3225 PSI 
     1       Z(I) * ( 0.5 -  0.625 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3274 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3285 PSI 
       Z1(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3288 PSI 
       IF ( Z(I) .GT. ZWM ) THEN
./pkg/fizhi/fizhi_turb.F 3290 PSI 
        Z2(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3305 PSI 
       IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) )
./pkg/fizhi/fizhi_turb.F 3351 PSI 
       Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2764 PHI 
      SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2784 PHI 
      _RL PHIM(N),PHIH(N),Z(N)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2979 PHI 
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2980 PHI 
       IF(Z(I).GT.2. )IBIT2 = IBIT2 + 1
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2986 PHI 
       ZSTAR(I)    = 100. * Z(I) - 14.
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2991 PHI 
       TEMP1(I) = Z(I)*0.5
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2992 PHI 
       IF( Z(I) .LE. 2. )TEMP1(I) = 1.
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2995 PHI 
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2996 PHI 
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3034 PHI 
       ZSTAR(I) = -Z(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3039 PHI 
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3047 PHI 
       IF( Z(I) .LT. 0.15 ) THEN
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3048 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3102 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3148 PSI 
        Z(indx) = VZZ(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3154 PSI 
       Z(I) = -18. * Z(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3158 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3169 PSI 
       IF ( Z(I) .LT. 0.013 ) ARG1(I) =
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3170 PSI 
     1        Z(I) * ( 0.25 -  0.09375 * Z(I) )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3206 PSI 
       IF( Z(I) .LT. 0.0065 ) ARG1(I) =
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3207 PSI 
     1       Z(I) * ( 0.5 -  0.625 * Z(I) )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3256 PSI 
        Z(indx) = VZZ(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3267 PSI 
       Z1(I) = Z(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3270 PSI 
       IF ( Z(I) .GT. ZWM ) THEN
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3272 PSI 
        Z2(I) = Z(I)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3287 PSI 
       IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3333 PSI 
       Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) )
./pkg/sphere/sphere.F 548 HELMHOLTZ 
      REAL Z(LMAXLMT)
./pkg/sphere/sphere.F 552 HELMHOLTZ 
      SAVE    LMAXOLD, ISECT, X, Y, Z
./pkg/sphere/sphere.F 565 HELMHOLTZ 
         CALL RECUR_Z(Z,LMAX)
./pkg/sphere/sphere.F 575 HELMHOLTZ 
            P(K) = Z(M) * CM
./pkg/sphere/sphere.F 599 RECUR_Z 
      SUBROUTINE RECUR_Z(Z,LMAX)
./pkg/sphere/sphere.F 606 RECUR_Z 
      REAL    Z(LMAX)
./pkg/sphere/sphere.F 614 RECUR_Z 
         Z(L) = SNGL(DSQRT(ZZ))