ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JSOC/proj/rings/apps/ring_pass.f90
Revision: 1.1
Committed: Sat Aug 21 02:17:32 2010 UTC (13 years, 1 month ago) by rick
Branch: MAIN
CVS Tags: Ver_6-0, Ver_6-1, Ver_6-2, Ver_6-3, Ver_6-4, Ver_9-1, Ver_5-14, Ver_5-13, Ver_5-12, Ver_5-11, Ver_5-10, Ver_LATEST, Ver_9-3, Ver_9-41, Ver_9-2, Ver_8-8, Ver_8-2, Ver_8-3, Ver_8-0, Ver_8-1, Ver_8-6, Ver_8-7, Ver_8-4, Ver_8-5, Ver_7-1, Ver_7-0, Ver_9-5, Ver_9-4, Ver_8-10, Ver_8-11, Ver_8-12, Ver_9-0, HEAD
Log Message:
added for 5.9

File Contents

# Content
1 module ring_pass
2 implicit none
3 integer, parameter :: sle = 4
4 integer, parameter :: dle = 8
5 real(kind=dle) :: dk, dnu
6 integer :: istk, iendk, ni, nj, npj, v, ntot
7 end module ring_pass