Added documenntation to the docs folder and edited the mac bash script in response to tests

This commit is contained in:
Slater-Victoroff
2013-05-30 10:11:14 -04:00
parent 4335d7a208
commit 8b6bdb92c2
4381 changed files with 1098763 additions and 11 deletions

View File

@@ -0,0 +1,17 @@
C FILE: ARRAY.F
SUBROUTINE FOO(A,N,M)
C
C INCREMENT THE FIRST ROW AND DECREMENT THE FIRST COLUMN OF A
C
INTEGER N,M,I,J
REAL*8 A(N,M)
Cf2py intent(in,out,copy) a
Cf2py integer intent(hide),depend(a) :: n=shape(a,0), m=shape(a,1)
DO J=1,M
A(1,J) = A(1,J) + 1D0
ENDDO
DO I=1,N
A(I,1) = A(I,1) - 1D0
ENDDO
END
C END OF FILE ARRAY.F