procedure to write filedata to file filename
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | filename | |||
character(len=*), | intent(in) | :: | filedata(:) |
subroutine filewrite(filename,filedata)
character(len=*),intent(in) :: filename
character(len=*),intent(in) :: filedata(:)
integer :: lun, i, ios
character(len=256) :: message
call fileopen(filename,lun)
if(lun/=-1)then ! program currently stops on error on open, but might
! want it to continue so -1 (unallowed LUN) indicates error
! write file
do i=1,size(filedata)
write(lun,'(a)',iostat=ios,iomsg=message)trim(filedata(i))
if(ios/=0)then
call fpm_stop(5,'*filewrite*:'//filename//':'//trim(message))
endif
enddo
endif
! close file
call fileclose(lun)
end subroutine filewrite