[UP]


Manual Reference Pages  - sign (7)

NAME

sign(7f) - [FORTRAN:IO] option to force optional plus sign on output values (LICENSE:PD)

SYNOPSIS

DESCRIPTION

EXAMPLE

Program showing control of plus sign on positive numeric output

      implicit none
      complex :: x=(123.456,987.654)
      integer :: i=789
      real    :: a=12.3456
      integer :: j
      namelist /nlist/ i,a,x
      open(unit=6,sign=’plus’)
      write(*,*)’PASS WHERE FILE HAS SIGN="PLUS"’
      do j=1,2
         write(*,*) ’LIST DIRECTED ’,a,i,x
         write(*,’(*(g0:,1x))’) ’GENERAL FORMATTED’,a,i,x
         write(*,’(*(ss,g0:,1x))’) ’GENERAL FORMATTED EXPLICIT SUPPRESS’,a,i,x
         write(*,’(*(sp,g0:,1x))’) ’GENERAL FORMATTED EXPLICIT PLUS’,a,i,x
         write(*,’(a,1x,f8.4,1x,i4,1x,f9.4,1x,f9.4)’) ’FORMATTED’,a,i,x
         write(*,’(a,1x,f8.4,1x,i4,1x,f9.4,1x,f9.4)’) ’FORMATTED’,a,i,x
         write(*,nlist)
         if(j.eq.2)exit
         write(*,*)
         open(unit=6,sign=’suppress’)
         write(*,*)’PASS WHERE FILE HAS SIGN="SUPPRESS"’
      enddo
      end


sign (7) March 11, 2021
Generated by manServer 1.08 from 76656569-fa7e-4552-95bf-7e88783560a5 using man macros.