diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Utilib/src/PSSREG.f | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Utilib/src/PSSREG.f')
| -rw-r--r-- | Utilib/src/PSSREG.f | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Utilib/src/PSSREG.f b/Utilib/src/PSSREG.f new file mode 100644 index 0000000..69a640d --- /dev/null +++ b/Utilib/src/PSSREG.f @@ -0,0 +1,45 @@ +*DECK PSSREG + SUBROUTINE PSSREG(ISPSP,NPTS,XYPTS) +C +C--------------------------- PSSREG --------------------------------- +C +C 1- PROGRAMME STATISTICS: +C NAME : PSSREG +C USE : DRAW REGION +C ADAPTED FROM PSPLOT ROUTINE FILRGNC +C +C 2- ROUTINE PARAMETERS: +C INPUT/OUTPUT +C ISPSP : PSP FILE UNIT I +C NPTS : NUMBER OF POINTS I +C YXPTS : POSITION (X,Y) OF LINE INTERSECTION R(2,NPTS) +C +C--------------------------- PSSREG -------------------------------- +C + IMPLICIT NONE + INTEGER ISPSP,NPTS + REAL XYPTS(2,NPTS) +C---- +C LOCAL VARIABLES +C---- + CHARACTER NAMSBR*6 + REAL CONVER + PARAMETER (NAMSBR='PSSREG',CONVER=72.0) + INTEGER IPT + CHARACTER CMDSTR*132 + CMDSTR='Np' + CALL PSCPUT(ISPSP,CMDSTR) + CMDSTR=' ' + WRITE(CMDSTR,'(2(F8.2,1X),A1)') + > XYPTS(1,1)*CONVER,XYPTS(2,1)*CONVER,'M' + CALL PSCPUT(ISPSP,CMDSTR) + DO 100 IPT=2,NPTS + CMDSTR=' ' + WRITE(CMDSTR,'(2(F8.2,1X),A1)') + > XYPTS(1,IPT)*CONVER,XYPTS(2,IPT)*CONVER,'L' + CALL PSCPUT(ISPSP,CMDSTR) + 100 CONTINUE + CMDSTR='Cs' + CALL PSCPUT(ISPSP,CMDSTR) + RETURN + END |