blob: d7b65ab9de0fae3a6c9f93d1d4c4129ca7a86d98 (
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
|
c IMDEL -- Delete an image.
c
c usage: imdel imagename
c ----------------------------------------------------------------------
program imdel
integer ier
character*80 image, errmsg
c --- Get the name of the image to be deleted.
call clargc (1, image, ier)
if (ier .ne. 0) then
write (*, '('' enter image name: '',$)')
read (*,*) image
endif
c --- Delete the image.
call imdele (image, ier)
if (ier .ne. 0) goto 91
stop
c --- Error exit.
91 call imemsg (ier, errmsg)
write (*, '('' Error: '', a80)') errmsg
stop
end
|
