Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by utke, Fri Dec 21 16:18:40 2012 UTC | revision 1.4 by jahn, Wed Apr 24 14:55:24 2013 UTC | |
---|---|---|
# | Line 811 C $OpenAD$ INLINE DECLS | Line 811 C $OpenAD$ INLINE DECLS |
811 | implicit none | implicit none |
812 | logical, dimension(:,:) :: b | logical, dimension(:,:) :: b |
813 | C $OpenAD$ END DECLS | C $OpenAD$ END DECLS |
814 | u#ifdef OAD_DEBUG_CP | #ifdef OAD_DEBUG_CP |
815 | write(standardmessageunit,*)'OAD: cp write b ', b(1,1) | write(standardmessageunit,*)'OAD: cp write b ', b(1,1) |
816 | #endif | #endif |
817 | write(unit=cp_io_unit) b | write(unit=cp_io_unit) b |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |