My Community

The numbers listed in DOSCR are, for example,

-47.427 0.2812E+01 0.2786E+01

I need more digitals in second and third column. For example, I need

-47.427 0.281255E+01 0.278634E+01

two or more digitals for them. Where is the format in source code ?

main.F

4166 WRITE(16,'(3X,F8.3,36E12.4)') &
4167 & EN,((DOSPAR(I,LPRO,NI,ISP),ISP=1,WDES%NCDIJ),LPRO=1,LPAR)

Thanks