blob: 09e151fd0b1ad4026203ddd79aaf80a08605488c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
C----------------------------------------------------------------------
subroutine ftr2f(val,dec,cval,status)
C convert real value to F20.* format character string
C val r input value to be converted
C dec i number of decimal places to display in output string
C cval c output character string
C status i output error status (0 = OK)
real val
integer dec,status
character*20 cval,form*8
if (status .gt. 0)return
if (dec .ge. 0 .and. dec .le. 9)then
write(form,2000)dec
2000 format('(f20.',i1,')')
else if (dec .ge. 10 .and. dec .lt.18)then
write(form,2001)dec
2001 format('(f20.',i2,')')
else
status=411
call ftpmsg('Error in FTR2F: number of decimal places '
& //'is less than 0 or greater than 18.')
return
endif
write(cval,form,err=900)val
if (cval(1:1) .eq. '*')go to 900
return
900 status=402
call ftpmsg('Error in FTR2F converting real to F20. string.')
end
|
