SVN r8568

2018-03-17 12:56:24 -04:00
parent 587950f372
commit 45cc6416c1
633 changed files with 186 additions and 366401 deletions
@@ -1,16 +0,0 @@
-function stdmsg(msg0,bcontest,mygrid)
-
-  use iso_c_binding, only: c_bool
-  use packjt
-  character*22 msg0,msg
-  character*6 mygrid
-  integer dat(12)
-  logical(c_bool), value :: bcontest
-  logical(c_bool) :: stdmsg
-
-  call packmsg(msg0,dat,itype,logical(bcontest))
-  call unpackmsg(dat,msg,logical(bcontest),mygrid)
-  stdmsg=(msg.eq.msg0) .and. (itype.ge.0) .and. itype.ne.6
-
-  return
-end function stdmsg