File: pick-dir/wr_pow_arg.f90

    1       SUBROUTINE WR_POW_ARG(Zarg,Ipow,Argst,Powst,String)
    2       IMPLICIT NONE
    3 !
    4 ! Dummy arguments
    5 !
    6       CHARACTER(*) :: Argst , Powst , String
    7       INTEGER :: Ipow
    8       REAL :: Zarg
    9       INTENT (IN) Ipow , Zarg
   10       INTENT (OUT) String
   11       INTENT (INOUT) Argst , Powst
   12 !
   13 !-----------------------------------------------------------------------
   14 !
   15       IF ( Ipow==0 ) THEN
   16          WRITE (Argst,FMT=99001) Zarg
   17          CALL RMBLANK(Argst,Argst)
   18          CALL BLANK(Powst)
   19          String = TRIM(Argst)
   20       ELSE
   21          WRITE (Argst,FMT=99001) Zarg
   22          WRITE (Powst,FMT=99002) Ipow
   23          CALL RMBLANK(Argst,Argst)
   24          CALL RMBLANK(Powst,Powst)
   25          String = TRIM(Argst)//"x10^{'//TRIM(Powst)//"}'
   26       ENDIF
   27 !
   28 !-----------------------------------------------------------------------
   29 !
   30 99001 FORMAT (1p,g13.4)
   31 99002 FORMAT (i10)
   32       END SUBROUTINE WR_POW_ARG