Symbol Description Uses
sw_name package on/off switch flag name 7



File Line number Procedure Code
./model/src/packages_unused_msg.F 108 PACKAGES_UNUSED_MSG
     &       ': ', sw_name(1:iLen1), '= F (set from "data.pkg")'
./model/src/packages_unused_msg.F 10 PACKAGES_UNUSED_MSG
      SUBROUTINE PACKAGES_UNUSED_MSG( sw_name, sr_name, df_sufx )
./model/src/packages_unused_msg.F 33 PACKAGES_UNUSED_MSG
      CHARACTER*(*) sw_name, sr_name, df_sufx
./model/src/packages_unused_msg.F 59 PACKAGES_UNUSED_MSG
      iLen1 = ILNBLNK(sw_name)
./model/src/packages_unused_msg.F 65 PACKAGES_UNUSED_MSG
        pkgLwc = sw_name(4:iLen1)
./model/src/packages_unused_msg.F 67 PACKAGES_UNUSED_MSG
        pkgUpc = sw_name(4:iLen1)
./model/src/packages_unused_msg.F 69 PACKAGES_UNUSED_MSG
          WRITE(data_file,'(2A)') 'data.', sw_name(4:iLen1)