blob: 4a0726e13e63d951b93122118881013c4b13efc9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
c******************************************************************************
c this simply is a "scratch" common block that holds arrays
c that are temporary and will be "recycled" for different
c internal calculation purposes.
c******************************************************************************
real*8 dummy1(100), dummy2(100), dummy3(5000), dummy4(5000)
common/dummy/dummy1, dummy2, dummy3, dummy4
|
