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