Searched refs:mformat (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 811 character*20 mformat local
816 write(mformat,'((A6)(I1)(A7))')'((2I)(',rn2,'E14.3))'
817 mformat = trim(mformat)
821 write(264,mformat)
839 character*20 mformat local
846 write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
847 mformat=trim(mformat)
854 write(264,mformat)ii,(rarray(i,j),j=1,rn2)
869 character*20 mformat local
876 write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
[all …]
|