Changeset 69 for palm/trunk/UTIL


Ignore:
Timestamp:
Mar 18, 2007 11:44:44 PM (17 years ago)
Author:
raasch
Message:

scripts are running under pdksh

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/interpret_config.f90

    r21 r69  
    3737    LOGICAL ::  found
    3838
    39     CALL local_getenv( 'cond1', 5, cond1, icond1 )
    40     CALL local_getenv( 'cond2', 5, cond2, icond2 )
    41     CALL local_getenv( 'config_file', 11, config_file, il )
    42     CALL local_getenv( 'do_remote', 9, do_remote, dummy )
    43     CALL local_getenv( 'do_trace', 8, do_trace, dummy )
    44     CALL local_getenv( 'host', 4, host, ihost )
    45     CALL local_getenv( 'input_list', 10, input_list, iinput_list )
    46     CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
    47     CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
    48     CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
     39    NAMELIST /mrun_environment/  cond1, cond2, config_file, do_remote, do_trace, &
     40                                 host, input_list, icf, localhost, output_list
     41
     42
     43    OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' )
     44    READ ( 1, mrun_environment )
     45
     46    icond1       = LEN_TRIM( cond1 )
     47    icond2       = LEN_TRIM( cond2 )
     48    il           = LEN_TRIM( config_file )
     49    ihost        = LEN_TRIM( host )
     50    iinput_list  = LEN_TRIM( input_list )
     51    iicf         = LEN_TRIM( icf )
     52    ilocalhost   = LEN_TRIM( localhost )
     53    ioutput_list = LEN_TRIM( output_list )
     54
     55!    CALL local_getenv( 'cond1', 5, cond1, icond1 )
     56!    CALL local_getenv( 'cond2', 5, cond2, icond2 )
     57!    CALL local_getenv( 'config_file', 11, config_file, il )
     58!    CALL local_getenv( 'do_remote', 9, do_remote, dummy )
     59!    CALL local_getenv( 'do_trace', 8, do_trace, dummy )
     60!    CALL local_getenv( 'host', 4, host, ihost )
     61!    CALL local_getenv( 'input_list', 10, input_list, iinput_list )
     62!    CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
     63!    CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
     64!    CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
    4965    iolist = input_list(1:iinput_list) // output_list(1:ioutput_list)
    5066
     
    85101!--       Achtung: Auf hpmuk und vpp sind nur die Variablen bekannt, die
    86102!--       von MRUN exportiert wurden!
    87           CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
     103!          CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
     104          value_mrun = ''
     105          ivalue_mrun = 1
    88106
    89107!
Note: See TracChangeset for help on using the changeset viewer.