2017-09-01 16:10:35 -04:00
|
|
|
function stdmsg(msg0,bcontest,mygrid)
|
2013-03-11 15:43:06 -04:00
|
|
|
|
2017-09-01 16:10:35 -04:00
|
|
|
use iso_c_binding, only: c_bool
|
2015-04-22 13:48:03 -04:00
|
|
|
use packjt
|
2013-03-11 15:43:06 -04:00
|
|
|
character*22 msg0,msg
|
2017-09-01 16:10:35 -04:00
|
|
|
character*6 mygrid
|
2013-03-11 15:43:06 -04:00
|
|
|
integer dat(12)
|
2017-09-01 16:10:35 -04:00
|
|
|
logical(c_bool), value :: bcontest
|
|
|
|
|
logical(c_bool) :: stdmsg
|
2013-03-11 15:43:06 -04:00
|
|
|
|
2017-09-01 16:10:35 -04:00
|
|
|
call packmsg(msg0,dat,itype,logical(bcontest))
|
|
|
|
|
call unpackmsg(dat,msg,logical(bcontest),mygrid)
|
2017-09-01 01:11:57 -04:00
|
|
|
stdmsg=(msg.eq.msg0) .and. (itype.ge.0) .and. itype.ne.6
|
2013-03-11 15:43:06 -04:00
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end function stdmsg
|
