Home Reference Manuals Return Up
if_then_char_init CalcType .eq. FRESP .or.
CalcType .eq. MODAL .or.
CalcType .eq. TSIM
pre_process= 'sed "s!runf/Master.tsimf!$CURRENT_FILE!" npickf/flex_car.npickf > npickf/$IDENT.npickf'
pre_process= 'npick npickf/$IDENT.npickf'
endif
In the end if the input data file read the results from program NPICK
if_then_char_init CalcType .eq. FRESP .or.
CalcType .eq. MODAL .or.
CalcType .eq. TSIM
if_then_char_init CalcType .ne. NPICK
insert file npickr/$IDENT.npickr
endif
endif