Symbol Description Uses
Shap_funct define which Shapiro Filter function is used 44



File Line number Procedure Code
./pkg/shap_filt/SHAP_FILT.h 33 NO PROCEDURE
      INTEGER  Shap_funct, nShapT, nShapS, nShapUV 
./pkg/shap_filt/SHAP_FILT.h 36 NO PROCEDURE
     &         Shap_funct, nShapT, nShapS, nShapTrPhys, 
./pkg/shap_filt/shap_filt_apply_ts.F 109 SHAP_FILT_APPLY_TS
          IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
./pkg/shap_filt/shap_filt_apply_ts.F 124 SHAP_FILT_APPLY_TS
          IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4
./pkg/shap_filt/shap_filt_apply_ts.F 134 SHAP_FILT_APPLY_TS
          IF (Shap_funct.EQ.1) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 138 SHAP_FILT_APPLY_TS
          ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20
./pkg/shap_filt/shap_filt_apply_ts.F 139 SHAP_FILT_APPLY_TS
     &                            .OR. Shap_funct.EQ.21) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 143 SHAP_FILT_APPLY_TS
          ELSEIF (Shap_funct.EQ.4) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 158 SHAP_FILT_APPLY_TS
          IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
./pkg/shap_filt/shap_filt_apply_ts.F 173 SHAP_FILT_APPLY_TS
          IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4
./pkg/shap_filt/shap_filt_apply_ts.F 85 SHAP_FILT_APPLY_TS
          IF (Shap_funct.EQ.1) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 89 SHAP_FILT_APPLY_TS
          ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20
./pkg/shap_filt/shap_filt_apply_ts.F 90 SHAP_FILT_APPLY_TS
     &                            .OR. Shap_funct.EQ.21) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 94 SHAP_FILT_APPLY_TS
          ELSEIF (Shap_funct.EQ.4) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 107 SHAP_FILT_APPLY_UV
        ELSEIF (Shap_funct.EQ.21) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 118 SHAP_FILT_APPLY_UV
        IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
./pkg/shap_filt/shap_filt_apply_uv.F 132 SHAP_FILT_APPLY_UV
        IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
./pkg/shap_filt/shap_filt_apply_uv.F 91 SHAP_FILT_APPLY_UV
        IF (Shap_funct.EQ.1) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 95 SHAP_FILT_APPLY_UV
        ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 99 SHAP_FILT_APPLY_UV
        ELSEIF (Shap_funct.EQ.4) THEN
./pkg/shap_filt/shap_filt_readparms.F 111 SHAP_FILT_READPARMS
      IF (Shap_funct.EQ.20) THEN
./pkg/shap_filt/shap_filt_readparms.F 118 SHAP_FILT_READPARMS
      IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4
./pkg/shap_filt/shap_filt_readparms.F 119 SHAP_FILT_READPARMS
     &     .OR. Shap_funct.EQ.21
./pkg/shap_filt/shap_filt_readparms.F 123 SHAP_FILT_READPARMS
      IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4
./pkg/shap_filt/shap_filt_readparms.F 129 SHAP_FILT_READPARMS
      CALL WRITE_0D_I( Shap_funct, INDEX_NONE,
./pkg/shap_filt/shap_filt_readparms.F 152 SHAP_FILT_READPARMS
      IF (Shap_funct.EQ.2) THEN
./pkg/shap_filt/shap_filt_readparms.F 220 SHAP_FILT_READPARMS
       IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4 ) THEN
./pkg/shap_filt/shap_filt_readparms.F 222 SHAP_FILT_READPARMS
     &           'does not work with Shap_funct=', Shap_funct
./pkg/shap_filt/shap_filt_readparms.F 225 SHAP_FILT_READPARMS
       ELSEIF ( Shap_funct.EQ.21 .AND. nShapUV.GT.0
./pkg/shap_filt/shap_filt_readparms.F 230 SHAP_FILT_READPARMS
         WRITE(msgBuf,'(A,I3,A)') ' Shap_funct=', Shap_funct,
./pkg/shap_filt/shap_filt_readparms.F 43 SHAP_FILT_READPARMS
     &   Shap_funct, shap_filt_uvStar, shap_filt_TrStagg,
./pkg/shap_filt/shap_filt_readparms.F 76 SHAP_FILT_READPARMS
      Shap_funct = 2