Révision 8 src/valid.f90

valid.f90 (revision 8)
106 106

  
107 107
      if (.NOT.Found) THEN
108 108
         IF (Tall) THEN
109
            WRITE(*,*) 'The option ',String, &
110
                 ' is not recognized'
111
            WRITE(*,*) 'Assigning value ',ValAll
109
            if (debug) THEN
110
               WRITE(*,*) 'The option ',String,' is not recognized.'
111
               WRITE(*,*) 'Assigning value ',ValAll
112
            END IF
112 113
            isValid=ValAll
113 114
         ELSE
114 115
            isValid=.FALSE.

Formats disponibles : Unified diff