D:/demona/2.0/manual/doc/2-31set/processor/run/RunPicard.f90
Go to the documentation of this file.00001 subroutine RunPicard 00002 00003 use global 00004 00005 implicit none 00006 00007 print*,'PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP' 00008 print*,'PICARD STARTS' 00009 print*,' ' 00010 00011 00012 call picard 00013 00014 00015 print*,' ' 00016 print*,'PICARD ENDS' 00017 print*,'PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP' 00018 00019 00020 end subroutine RunPicard
