Commit f3ab7cb6 authored by ulrich_y's avatar ulrich_y

Follow-up to c1fba5b8

parent c1fba5b8
......@@ -57,7 +57,6 @@ SetRoutine[gs_,name_,vars_]:=StringRiffle[Join[{
<>ToString@N@Re[(-1)^(1/3)]<>","<>ToString@N[Im[(-1)^(1/3)],10]<>")",
" complex(kind=prec), parameter :: degm60 = ("
<>ToString@N@Re[-(-1)^(2/3)]<>","<>ToString@N[Im[-(-1)^(2/3)],10]<>")",
" complex(kind=prec) d_qnan",
" complex(kind=prec) :: "<>StringRiffle[vars,","],
" complex(kind=prec) :: args("<>ToString@Length[gs]<>","<>ToString@Max[Length/@gs]<>")",
" args = 1.e15",
......
......@@ -386,8 +386,8 @@ CONTAINS
pargs(:,:,i) = inimuone(cmplx(x), cmplx(y))
enddo
cargs(1181,:,:)=cargs(1181,:,:)/0
fargs(367,:,:)=fargs(367,:,:)/0
cargs(1181,:,:)=1.e15
fargs(367,:,:)=1.e15
open(unit=9, file="stats.txt")
......
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