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/PSLINW.f | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Utilib/src/PSLINW.f')
| -rw-r--r-- | Utilib/src/PSLINW.f | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/Utilib/src/PSLINW.f b/Utilib/src/PSLINW.f new file mode 100644 index 0000000..546f8b4 --- /dev/null +++ b/Utilib/src/PSLINW.f @@ -0,0 +1,42 @@ +*DECK PSLINW + SUBROUTINE PSLINW(ISPSP,WLINE) +C +C--------------------------- PSLINW --------------------------------- +C +C 1- PROGRAMME STATISTICS: +C NAME : PSLINW +C USE : SET LINE WIDTH +C REPLACES PSPLOT ROUTINE SETLW +C +C 2- ROUTINE PARAMETERS: +C INPUT/OUTPUT +C ISPSP : PSP FILE UNIT I +C WLINE : WIDTH OF LINE R +C +C--------------------------- PSLINW -------------------------------- +C + IMPLICIT NONE + INTEGER ISPSP + REAL WLINE +C---- +C LOCAL VARIABLES +C---- + CHARACTER NAMSBR*6 + PARAMETER (NAMSBR='PSLINW') + CHARACTER CMDSTR*132 +C---- +C SET LINE WIDTH +C MINIMUM IS 0.00001 +C---- + CMDSTR=' ' + WRITE(CMDSTR,'(F7.3,1X,A5)') 0.0,'Sgray' + CALL PSCPUT(ISPSP,CMDSTR) + IF(ABS(WLINE).LT.1.E-5) THEN + CMDSTR='Slw0' + ELSE + CMDSTR=' ' + WRITE(CMDSTR,'(F7.3,1X,A3)') WLINE,'Slw' + ENDIF + CALL PSCPUT(ISPSP,CMDSTR) + RETURN + END |