Almost Converted, but a few more questions.. 1

[jamez05]

This has been an interesting first Fortran assignement.

I'm down to one function that needs to be converted before I can test this section.

Some of the code appears to be doing bit operations:

	SABUFF(1)='00000000'X
	SABUFF(2)='00000000'X
	DO I=1,NUMATM+NUMRNG-1
	   IF(BNDUSE(I).NE.0) THEN
	       ISPOST = I
	       ISWORD = 1
	       IF(ISPOST.GT.32) THEN
	          ISWORD = 2
	          ISPOST = ISPOST - 32
	       ENDIF
	       SABUFF(ISWORD) = IOR(SABUFF(ISWORD),SAMASK(ISPOST))
	   ENDIF
	ENDDO

I'm trying to get an idea on what sabuff actually is or what this is supposed to be doing. Any insight or pointers that can lead me in the right direction would be appreciated.

Thanks

James

 

[xwb]

That is hexadecimal - hexadecimal format isn't standard across all versions of Fortran. It can be in one of the following forms

X'C0FFEE'
Z'C0FFEE'
'C0FFEE'X
'COFFEE'Z
16#COFFEE

There may be others but these are the ones I've seen.

sabuff is probably an integer. Do you have something like

IMPLICIT INTEGER (S-Y)

If you do, it means all identifiers beginning with letters between S and Y are integers. By default I-N is integer, everything else is real.