diff options
| author | Rohit Goswami <rog32@hi.is> | 2021-09-19 17:01:16 +0000 |
|---|---|---|
| committer | Rohit Goswami <rog32@hi.is> | 2021-09-19 17:52:00 +0000 |
| commit | 156c005422b020b6fdcd27fc39211708f84f91cb (patch) | |
| tree | a07055cb48d9d70f70f388f7e539c3192e4abde3 /doc/source/f2py/code/string.f | |
| parent | 80c28d12a4500e12b194d62107c61d37703c0f93 (diff) | |
| download | numpy-156c005422b020b6fdcd27fc39211708f84f91cb.tar.gz | |
MAINT,DOC: Refactor, syntax highlighting for f2py
Diffstat (limited to 'doc/source/f2py/code/string.f')
| -rw-r--r-- | doc/source/f2py/code/string.f | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/doc/source/f2py/code/string.f b/doc/source/f2py/code/string.f new file mode 100644 index 000000000..9246f02e7 --- /dev/null +++ b/doc/source/f2py/code/string.f @@ -0,0 +1,21 @@ +C FILE: STRING.F + SUBROUTINE FOO(A,B,C,D) + CHARACTER*5 A, B + CHARACTER*(*) C,D +Cf2py intent(in) a,c +Cf2py intent(inout) b,d + PRINT*, "A=",A + PRINT*, "B=",B + PRINT*, "C=",C + PRINT*, "D=",D + PRINT*, "CHANGE A,B,C,D" + A(1:1) = 'A' + B(1:1) = 'B' + C(1:1) = 'C' + D(1:1) = 'D' + PRINT*, "A=",A + PRINT*, "B=",B + PRINT*, "C=",C + PRINT*, "D=",D + END +C END OF FILE STRING.F |