!
! Message error subroutines:
!
!  1. error in reading
!  2. matrix size exceeded
!  3. Grid already loaded
!  4. No Grid is in memory
!  5. Lat. Lon. Range error.
!  6. Array size limit reached
!  7. Input is not valid number
!  8. Input is not valid number, default value used.
!  9. No basemap is in memory
! 10. Contour option error
! 11. Application type error
!
! subroutine error1: error reading in input file
! 
subroutine error1
use global
use dflib
integer(4) iret
character(len=512) msg0, msg1
msg0 = ' error reading input file ' //feg_inp//' 'C
msg1 = ' error reading file 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error1

!
! subroutine error2: matrix size exceeded
!
subroutine error2(varname,size, mxsize)
use dflib
integer(4) iret
integer size, mxsize
character(*) varname
character(50) sizedif
character(len=512) msg0, msg1
! write(sizedif,*) size-mxsize
write(sizedif, *) size
msg0 = 'Increase maximum size of '//varname//' to '//trim(sizedif) //' !!'C
msg1 = ' Preallocated Array Size Exceeded! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error2


!
! subroutine error3: Grid already loaded
!
subroutine error3
use dflib
integer(4) iret
character(len=512) msg0, msg1
msg0 = ' Grid is already loaded ' //' !!'C
msg1 = ' General Error!! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error3

!
! subroutine error4: No Grid is in Memory
!
subroutine error4
use dflib
integer(4) iret
character(512) msg0, msg1
msg0 = ' No Grid is in Memory '//' !!'C
msg1 = ' General Error!! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error4

!
! subroutine error5: lat, lon range error
!
subroutine error5(msg)
use dflib
character*(*) msg
character(512) msg0, msg1
if (trim(msg) == "lat") then
   msg0 = ' Latitude has to be in the range (-90, 90) !'C
elseif(trim(msg)== "lon") then
   msg0 = ' Lontitude has to be in the range (-180.0, 180.0) !'C
elseif(trim(msg)== "shallow dip") then
   msg0 = ' dip angle has to be in the range (0, 90) !'C
elseif(trim(msg)== "steep dip") then
   msg0 = ' dip angle has to be in the range (0, 90) !'C
end if
msg1 = ' Input data out of range! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
end subroutine error5

!
! subroutine error6: Size limit of array reached!
!
subroutine error6(varname, mxsize)
use dflib
integer(4) iret
integer mxsize
character(*) varname
character(50) mxsize_str
character(len=512) msg0, msg1
write(mxsize_str,*) mxsize
msg0 = 'Maximum of '//trim(mxsize_str)//' '//varname//'s has been reached !!'C
msg1 = ' Size error!! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error6

!
! subroutine error7: Input is not a valid number!
! 
subroutine error7
use dflib
integer(4) iret
character(512) msg0, msg1
msg0 = ' input is not valid number, CHECK!!! '//' !!'C
msg1 = ' General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error7

!
! subroutine error8: Input is not a valid number, default value used!
! 
subroutine error8(default)
use dflib
integer(4) iret
character*(*) default
character(512) msg0, msg1
msg0 = 'Input is not a valid number, so default value '//default//' was used !!'C
msg1 = 'General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error8

!
! subroutine error9: No Basemap / Grid is in Memory
!
subroutine error9(keyword)
use dflib
integer(4) iret
character*(*) keyword
character(512) msg0, msg1
msg0 = ' No ' // trim(keyword) // ' is loaded ' // ' !!'C
msg1 = ' General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error9

!
! subroutine error10: contour option error!
!
subroutine error10
use dflib
integer(4) iret
character(512) msg0, msg1
msg0 = 'Data option has to be within (1, 4) '//' !!'C
msg1 = 'General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error10

!
! subroutine error11: Not thin-shell type error!
!
subroutine error11(progrmtype)
use dflib
integer progrmtype
integer(4) iret
character(512) msg0, msg1
if(progrmtype == 2) then
  msg0 = 'Restore2/NeoKinema Format, No fault or per element data allowed!'C
elseif(progrmtype == 3) then
  msg0 = 'Restore3 Format, (per element data but no fault allowed!)'C
endif
msg1 = 'General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error11

!
! subroutine error12: No valid last value in callback SUBR setEQCM
!
subroutine error12
use dflib
integer(4) iret
character(512) msg0, msg1
msg0 = 'No valid value. Click left mousebutton to enter the value first.'C
msg1 = 'General Error!! 'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error12

!
! subroutine error13: error when selecting block_set_value_mode before selecting
!                     Elevation/Q/Crust/Mantle
!
subroutine error13
use dflib
integer(4) iret
character(512) msg0, msg1
msg0 = 'You should select Elevation/Q/Crust/Mantle command first before using this block mode.'C
msg1 = 'General Error!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error13

!
! subroutine error14: Size limit of array reached!
!
subroutine error14(varname, mxsize)
use dflib
integer(4) iret
integer mxsize
character(*) varname
character(50) mxsize_str
character(len=512) msg0, msg1
write (mxsize_str,*) mxsize
msg0 = 'Maximum of ' // trim(mxsize_str) // ' ' // varname // 's has been reached! &
       &File/SaveGrid, Exit, and re-start Orbwin!!'C
msg1 = 'The memory limit you specified has been reached!!'C
iret = messageboxqq(msg0, msg1, MB$ICONEXCLAMATION.OR.MB$OK)
return
end subroutine error14