6 lines
123 B
Fortran
6 lines
123 B
Fortran
|
program batgen
|
||
|
|
open(unit=10,file='run1.bat',status='unknown')
|
||
|
|
do i=1,4
|
||
|
|
do j=1,4
|
||
|
|
do k=1,4
|
||
|
|
|