Symbol Description Uses
A 101


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/autodiff/tamc.h 20 NO PROCEDURE 
THESE LINES ARE DELIBERAELY UNCOMMENTED AS A WARNING THAT
./pkg/fizhi/fizhi_utils.F 103 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 108 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 111 STRIPINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 118 PASTE 
      SUBROUTINE PASTE(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 121 PASTE 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 131 PASTE 
      A(I+OFFSET-1,J) = B(I,J)
./pkg/fizhi/fizhi_utils.F 136 PSTBMP 
      SUBROUTINE PSTBMP(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 139 PSTBMP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 149 PSTBMP 
      A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J)
./pkg/fizhi/fizhi_utils.F 154 STRINT 
      SUBROUTINE STRINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 157 STRINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 168 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 173 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 176 STRINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 60 STRIP 
      SUBROUTINE STRIP(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 63 STRIP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 652 GRD2MSC 
      SUBROUTINE GRD2MSC(A,IM,JM,IGRD,B,MXCHPS,NCHP)
./pkg/fizhi/fizhi_utils.F 657 GRD2MSC 
      _RL A(IM,JM), B(MXCHPS)
./pkg/fizhi/fizhi_utils.F 663 GRD2MSC 
         B(I) = A(IGRD(I),1)
./pkg/fizhi/fizhi_utils.F 672 MSC2GRD 
      SUBROUTINE MSC2GRD(IGRD,CHFR,B,MXCHPS,NCHP,FRACG,A,IM,JM)
./pkg/fizhi/fizhi_utils.F 680 MSC2GRD 
      _RL A(IM,JM), B(MXCHPS), CHFR(MXCHPS), FRACG(IM,JM)
./pkg/fizhi/fizhi_utils.F 695 MSC2GRD 
         A(I,1) = A(I,1)*(ONE-FRACG(I,1)) + VT1(I,1)
./pkg/fizhi/fizhi_utils.F 74 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 79 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 82 STRIP 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 89 STRIPINT 
      SUBROUTINE STRIPINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 92 STRIPINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_turb.F 4015 VTRI0 
      SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4019 VTRI0 
      _RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4025 VTRI0 
       A(I,1) = 1. / A(I,1)
./pkg/fizhi/fizhi_turb.F 4031 VTRI0 
        C(I,L) = C(I,L) * A(I,LM1)
./pkg/fizhi/fizhi_turb.F 4032 VTRI0 
        A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) )
./pkg/fizhi/fizhi_turb.F 4039 VTRI0 
       Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4046 VTRI1 
      SUBROUTINE VTRI1 ( A,B,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4050 VTRI1 
      _RL A(irun,K),B(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4056 VTRI1 
        Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4063 VTRI2 
      SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4067 VTRI2 
      _RL A(irun,K),B(irun,K),C(irun,K),F(irun,K)
./pkg/fizhi/fizhi_turb.F 4080 VTRI2 
        Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) *  A(I,L)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3997 VTRI0 
      SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4001 VTRI0 
      _RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4007 VTRI0 
       A(I,1) = 1. / A(I,1)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4013 VTRI0 
        C(I,L) = C(I,L) * A(I,LM1)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4014 VTRI0 
        A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) )
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4021 VTRI0 
       Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4028 VTRI1 
      SUBROUTINE VTRI1 ( A,B,Y,K,irun)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4032 VTRI1 
      _RL A(irun,K),B(irun,K),Y(irun,K+1)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4038 VTRI1 
        Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4045 VTRI2 
      SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4049 VTRI2 
      _RL A(irun,K),B(irun,K),C(irun,K),F(irun,K)
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 4062 VTRI2 
        Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) *  A(I,L)
./pkg/sphere/sphere.F 313 SHC2ZONE 
      REAL    A, B, E, F, Q, DA, DB, XLAT
./pkg/sphere/sphere.F 329 SHC2ZONE 
         A    = 0.0
./pkg/sphere/sphere.F 339 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 348 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 359 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 365 SHC2ZONE 
            HS(1) = A
./pkg/sphere/sphere.F 368 SHC2ZONE 
            HS(M+M  ) = A
./pkg/sphere/sphere.F 493 FRSBASE 
      SUBROUTINE FRSBASE(A,H,I,J)
./pkg/sphere/sphere.F 499 FRSBASE 
      REAL A
./pkg/sphere/sphere.F 512 FRSBASE 
      ARG    = A * DEG2RAD
./pkg/sphere/sphere.F 544 HELMHOLTZ 
      REAL A(0:LMAXLMT)
./pkg/sphere/sphere.F 583 HELMHOLTZ 
            A(M) = AK
./pkg/sphere/sphere.F 590 HELMHOLTZ 
               P(K) =(S*P(K-1)-P(K-2)*A(M))/AK
./pkg/sphere/sphere.F 591 HELMHOLTZ 
               A(M) = AK