#!perl #
# # Perl script file 'mod.pl' to modify FORTRAN77 source code files # 'model.for', 'parm.for', 'val.for' and 'fit.for', # containing the model routines required when solving forward # problems, in order to yield FORTRAN77 source code files # 'modelv.for', 'parmv.for', 'valv.for' and 'fitv.for', # containing the model routines required when solving inverse # problems. # require 'go.pl'; # &RUN("clean","'model.for' 'modelv.for' '*V' ' ' /"); &RUN("clean","'parm.for' 'parmv.for' '*V' ' ' /"); &RUN("clean","'val.for' 'valv.for' '*V' ' ' /"); &RUN("clean","'fit.for' 'fitv.for' '*V' ' ' /"); # # ---------------------------------------------------------------------- # # 'model.for', 'parm.for', 'val.for' and 'fit.for' are used, e.g., by # (A) the 'grid.for' program, # (B) the 'sec.for' program, # (C) the 'intf.for' program, # (D) the complete ray tracing program. # # The derived files 'modelv.for', 'parmv.for', 'valv.for' and # 'fitv.for' are used, e.g., by # (I) the 'invtt.for' program of the CRT package, generating the # linearized system of equations for model parameters. # # The derived files 'modelv.for', 'parmv.for', 'valv.for' and # 'fitv.for' have all the functionality of files 'model.for', # 'parm.for', 'val.for' and 'fit.for' for the purposes of forward # modelling, and many inverse modelling functions on # the top of it if linked with 'var.for'. On the other hand, are # slower. # The derived files 'modelv.for', 'parmv.for', 'valv.for' and # 'fitv.for' with 'varnul.for' instead of 'var.for' are # very close to 'model.for', 'parm.for', 'val.for' and 'fit.for' # in performance, see the table in the file 'var.for'. # # ====================================================================== 1; #