Changeset 274 for palm/trunk/SOURCE/fft_xy.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/fft_xy.f90 (modified) (4 diffs)

palm/trunk/SOURCE/fft_xy.f90

@@ -361 +361 @@
 #endif
        ELSE
-          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" not available'
           CALL message( 'fft_x', 'PA0189', 1, 2, 0, 6, 0 )
 
@@ -543 +544 @@
        ELSE
 
-          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" not available'
           CALL message( 'fft_y', 'PA0189', 1, 2, 0, 6, 0 )
 
@@ -678 +680 @@
        ELSE
 
-          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" not available'
           CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
 
@@ -813 +816 @@
        ELSE
          
-          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" not available'
           CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )