I have recently installed FTN95 Ver 7.0 I am getting an access violation on the second call to export_image@, where the file name has a .png suffix.
Actually the first returns an error code = 0; not sure why this would happen .png DUMP file dump019.png Size : 1468 x 943 (error= 0)
Subroutine Dump_jpg_func (message, prefix, ext)
!
! dumps a jpg file from active selected region
!
! use mswin
include <clearwin.ins>
!
character message*(*), prefix*(*), ext*4
!
integer*4 error_jpg, file_nn, nx, ny
character file_jpg*80
data file_nn / 0 /
!
! develop a screen dump file name
!
call get_next_dump_file (file_nn, file_jpg, prefix, ext)
if (file_nn > 999) then
error_jpg = -999
goto 100
end if
write (*,*) 'Dumping screen to ',trim (file_jpg)
!
error_jpg = export_image@ (file_jpg)
!
100 call get_graphical_resolution@ ( nx, ny )
write (98,1000) ext,file_jpg, nx, ny, error_jpg
1000 format (a,' DUMP file ',a, &
' Size : ',i0,' x ',i0,' (error=',i4,')')
!
if (error_jpg > 0) then
message = ext//' dump to '//file_jpg
else if (error_jpg == -999) then
message = 'Unable to open '//file_jpg
else
message = 'Unable to use '//file_jpg
end if
!
end subroutine Dump_jpg_func
I shall revert to Ver 6.36, built on 1st April 13 and see if the problem occurred then.
John