Page MenuHomeHEPForge
Files F7879630

No OneTemporary
Actions

View Options

Index: trunk/src/stdhep/stdhep_dummy.f90
===================================================================
--- trunk/src/stdhep/stdhep_dummy.f90 (revision 5873)
+++ trunk/src/stdhep/stdhep_dummy.f90 (revision 5874)
@@ -1,28 +1,37 @@
! Dummy replacement routines
subroutine stdxwinit (filename, title, ntries, istream, lok)
integer, intent(in) :: istream, lok
integer, intent(in) :: ntries
character(*), intent(in) :: filename, title
write (0, "(A)") "*************************************************************"
write (0, "(A)") "*** STDHEP: Error: library not linked, WHIZARD terminates ***"
write (0, "(A)") "*************************************************************"
stop
end subroutine stdxwinit
subroutine stdxwrt (ilbl, istr, lok)
integer, intent(in) :: ilbl
integer, intent(in) :: istr, lok
write (0, "(A)") "*************************************************************"
write (0, "(A)") "*** STDHEP: Error: library not linked, WHIZARD terminates ***"
write (0, "(A)") "*************************************************************"
stop
end subroutine stdxwrt
+subroutine stdxrd (ilbl, istr, lok)
+ integer, intent(out) :: ilbl, lok
+ integer, intent(in) :: istr
+ write (0, "(A)") "*************************************************************"
+ write (0, "(A)") "*** STDHEP: Error: library not linked, WHIZARD terminates ***"
+ write (0, "(A)") "*************************************************************"
+ stop
+end subroutine stdxrd
+
subroutine stdxend (istr)
integer, intent(in) :: istr
write (0, "(A)") "*************************************************************"
write (0, "(A)") "*** STDHEP: Error: library not linked, WHIZARD terminates ***"
write (0, "(A)") "*************************************************************"
stop
end subroutine stdxend

File Metadata

Mime Type
text/x-diff
Expires
Tue, Nov 19, 8:39 PM (1 d, 4 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3806102
Default Alt Text
(1 KB)

Event Timeline