Commit 8c8d3f6c authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

refmet uses FREE lines of 90 characters length

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.
now they are appropriately written to disc file


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 3880
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent c3faf971
......@@ -42,7 +42,7 @@ c
& dt, tred, cl_vlevel, cl_debug, lev2)
c
integer MSL, SL, ME, NE, sff_maxfree, sff_nfree
character*80 sff_free(sff_maxfree), basename
character*(*) sff_free(sff_maxfree), basename
character outunits*(*), selstring*(*)
complex*16 VFz(MSL, ME), VFr(MSL, ME), VFphi(MSL, ME)
complex*16 VNz(MSL, ME), VNr(MSL, ME), VNphi(MSL, ME)
......@@ -214,7 +214,7 @@ c
& dt, tred, cl_vlevel, cl_debug, lev2)
c
integer MSL, SL, ME, NE, sff_maxfree, sff_nfree
character*80 sff_free(sff_maxfree), basename
character*(*) sff_free(sff_maxfree), basename
character outunits*(*), selstring*(*)
complex*16 VFz(MSL, ME), VFr(MSL, ME), VFphi(MSL, ME)
complex*16 VNz(MSL, ME), VNr(MSL, ME), VNphi(MSL, ME)
......@@ -319,7 +319,7 @@ c
& V1, V2, doadd, exten, compo)
c
integer MSL, SL, ME, NE, sff_maxfree, sff_nfree
character*80 sff_free(sff_maxfree), basename
character*(*) sff_free(sff_maxfree), basename
character outunits*(*)
complex*16 V1(MSL, ME), V2(MSL, ME)
real fdata(MSL)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment