From e2cfb58950594a3ad6f9ee3f66f97ac3ce11711e Mon Sep 17 00:00:00 2001 From: HEBERT Alain Date: Sun, 26 Oct 2025 06:09:46 -0400 Subject: Resolve "Correct SFR geometry issues in module SALT:" --- Dragon/src/g2s_nodes.f90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'Dragon/src/g2s_nodes.f90') diff --git a/Dragon/src/g2s_nodes.f90 b/Dragon/src/g2s_nodes.f90 index 4d3bb19..17111b1 100644 --- a/Dragon/src/g2s_nodes.f90 +++ b/Dragon/src/g2s_nodes.f90 @@ -405,7 +405,6 @@ contains ! correction of plain CAR2D bug by Alain Hebert (May 2016) integer :: nbFile logical :: isOpen - logical,parameter :: drawMix = .true. real,parameter,dimension(2) :: zoomx = (/ 0.0, 1.0 /) ! no x zoom on postscript plot real,parameter,dimension(2) :: zoomy = (/ 0.0, 1.0 /) ! no y zoom on postscript plot @@ -425,14 +424,14 @@ contains nbFile = nbFile + 1 inquire(nbFile,opened=isOpen) if(isOpen) cycle - open(nbFile,file='errorMix.ps') + open(nbFile,file='errorMix.eps') exit enddo - call drawSegArc(nbFile,szSA,.false.,drawMix,zoomx,zoomy) + call drawSegArc(nbFile,szSA,2,zoomx,zoomy) close(nbFile) write(*,*) 'i,j,mixAv,mixAp : ',i,j,mixAv,mixAp call XABORT("G2S: internal problem for mix values. See the file & - &errorMix.ps") + &errorMix.eps") endif ! CS-IV : fin de la mise en commentaires de Alain indNodeAv=getNodeAv(i,j) ; indNodeAp=getNodeAp(i,j) -- cgit v1.2.3