mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-21 06:25:21 -04:00
97f303e6f8
automatically be expanded to include useful information about the checkin (including the file's revision number). With the switch over to SVN this was lost because SVN only does this expansion if you explicitly ask for it (for every single file). I have added a script to the contrib directory that sets the appropriate property to get SVN to do this expansion. This script will make it easy to do this every time new source files are added. It is called svn_expand_Id, the script contains some comments that explain the issue and how it addresses this. This checkin sets this property for a subset of the relevant files (trying to commit all files at once failed with svn crashing). In future the script will only affect those files for which the property was not set before.
22 lines
911 B
Fortran
22 lines
911 B
Fortran
C This is a simple program to determine the units of the Fortran
|
|
c direct access record length. It writes 2 records of 512 units
|
|
c each. Simply run this program and check the size resulting file
|
|
c 'da_rec_size.test' (in bytes) using 'ls' and divide by 1024 units.
|
|
C
|
|
Program da_rec_size
|
|
C$Id$
|
|
Implicit NONE
|
|
Integer RecLen
|
|
Parameter (RecLen = 512)
|
|
Integer A(1), I
|
|
Open(1, FILE='da_rec_size.test', ACCESS='DIRECT', RECL=RecLen)
|
|
Do I = 1, 2
|
|
Write (1, REC=I) A
|
|
EndDo
|
|
Write (6, *) 'This program has written two 512-unit records in'
|
|
Write (6, *) 'the file da_rec_size.test. To determine the size'
|
|
Write (6, *) 'of the record length unit, divide the length of'
|
|
Write (6, *) 'the file in bytes by 1024. The most common sizes'
|
|
Write (6, *) 'for record size units are bytes and integer words.'
|
|
Stop
|
|
End
|