Changeset 69 for palm/trunk/UTIL

Timestamp:

Mar 18, 2007 11:44:44 PM (18 years ago)

Author:

raasch

Message:

scripts are running under pdksh

File:

• palm/trunk/UTIL/interpret_config.f90 (modified) (2 diffs)

palm/trunk/UTIL/interpret_config.f90

@@ -37 +37 @@
     LOGICAL ::  found
 
-    CALL local_getenv( 'cond1', 5, cond1, icond1 )
-    CALL local_getenv( 'cond2', 5, cond2, icond2 )
-    CALL local_getenv( 'config_file', 11, config_file, il )
-    CALL local_getenv( 'do_remote', 9, do_remote, dummy )
-    CALL local_getenv( 'do_trace', 8, do_trace, dummy )
-    CALL local_getenv( 'host', 4, host, ihost )
-    CALL local_getenv( 'input_list', 10, input_list, iinput_list )
-    CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
-    CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
-    CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
+    NAMELIST /mrun_environment/  cond1, cond2, config_file, do_remote, do_trace, &
+                                 host, input_list, icf, localhost, output_list
+
+
+    OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' )
+    READ ( 1, mrun_environment )
+
+    icond1       = LEN_TRIM( cond1 )
+    icond2       = LEN_TRIM( cond2 )
+    il           = LEN_TRIM( config_file )
+    ihost        = LEN_TRIM( host )
+    iinput_list  = LEN_TRIM( input_list )
+    iicf         = LEN_TRIM( icf )
+    ilocalhost   = LEN_TRIM( localhost )
+    ioutput_list = LEN_TRIM( output_list )
+
+!    CALL local_getenv( 'cond1', 5, cond1, icond1 )
+!    CALL local_getenv( 'cond2', 5, cond2, icond2 )
+!    CALL local_getenv( 'config_file', 11, config_file, il )
+!    CALL local_getenv( 'do_remote', 9, do_remote, dummy )
+!    CALL local_getenv( 'do_trace', 8, do_trace, dummy )
+!    CALL local_getenv( 'host', 4, host, ihost )
+!    CALL local_getenv( 'input_list', 10, input_list, iinput_list )
+!    CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
+!    CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
+!    CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
     iolist = input_list(1:iinput_list) // output_list(1:ioutput_list)
 
@@ -85 +101 @@
 !--       Achtung: Auf hpmuk und vpp sind nur die Variablen bekannt, die
 !--       von MRUN exportiert wurden!
-          CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
+!          CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
+          value_mrun = ''
+          ivalue_mrun = 1
 
 !