/[MITgcm]/MITgcm/tools/OAD_support/ad_inline.F
ViewVC logotype

Diff of /MITgcm/tools/OAD_support/ad_inline.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jahn, Wed Apr 24 14:55:24 2013 UTC revision 1.5 by heimbach, Fri Jul 3 21:33:55 2015 UTC
# Line 267  C $OpenAD$ INLINE DECLS Line 267  C $OpenAD$ INLINE DECLS
267          double precision :: x          double precision :: x
268  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
269  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
270          write(standardmessageunit,*)'OAD: cp write x ', x          !write(standardmessageunit,*)'OAD: cp write x ', x
271  #endif  #endif
272          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
273        end subroutine        end subroutine
# Line 280  C $OpenAD$ INLINE DECLS Line 280  C $OpenAD$ INLINE DECLS
280  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
281          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
282  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
283          write(standardmessageunit,*)'OAD: cp read x ', x          !write(standardmessageunit,*)'OAD: cp read x ', x
284  #endif  #endif
285        end subroutine        end subroutine
286    
# Line 292  C $OpenAD$ INLINE DECLS Line 292  C $OpenAD$ INLINE DECLS
292          type(active) :: x          type(active) :: x
293  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
294  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
295          write(standardmessageunit,*)'OAD: cp write x ', x%v          !write(standardmessageunit,*)'OAD: cp write x ', x%v
296  #endif  #endif
297          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
298        end subroutine        end subroutine
# Line 306  C $OpenAD$ INLINE DECLS Line 306  C $OpenAD$ INLINE DECLS
306  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
307          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
308  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
309          write(standardmessageunit,*)'OAD: cp read x ', x%v          !write(standardmessageunit,*)'OAD: cp read x ', x%v
310  #endif  #endif
311        end subroutine        end subroutine
312    
# Line 317  C $OpenAD$ INLINE DECLS Line 317  C $OpenAD$ INLINE DECLS
317          double precision, dimension(:) :: x          double precision, dimension(:) :: x
318  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
319  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
320          write(standardmessageunit,*)'OAD: cp write x ', x(1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1)
321  #endif  #endif
322          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
323        end subroutine        end subroutine
# Line 330  C $OpenAD$ INLINE DECLS Line 330  C $OpenAD$ INLINE DECLS
330  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
331          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
332  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
333          write(standardmessageunit,*)'OAD: cp read x ', x(1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1)
334  #endif  #endif
335        end subroutine        end subroutine
336    
# Line 342  C $OpenAD$ INLINE DECLS Line 342  C $OpenAD$ INLINE DECLS
342          type(active), dimension(:) :: x          type(active), dimension(:) :: x
343  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
344  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
345          write(standardmessageunit,*)'OAD: cp write x ', x(1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1)%v
346  #endif  #endif
347          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
348        end subroutine        end subroutine
# Line 356  C $OpenAD$ INLINE DECLS Line 356  C $OpenAD$ INLINE DECLS
356  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
357          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
358  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
359          write(standardmessageunit,*)'OAD: cp read x ', x(1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1)%v
360  #endif  #endif
361        end subroutine        end subroutine
362    
# Line 367  C $OpenAD$ INLINE DECLS Line 367  C $OpenAD$ INLINE DECLS
367          double precision, dimension(:,:) :: x          double precision, dimension(:,:) :: x
368  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
369  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
370          write(standardmessageunit,*)'OAD: cp write x ', x(1,1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1)
371  #endif  #endif
372          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
373        end subroutine        end subroutine
# Line 380  C $OpenAD$ INLINE DECLS Line 380  C $OpenAD$ INLINE DECLS
380  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
381          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
382  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
383          write(standardmessageunit,*)'OAD: cp read x ', x(1,1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1)
384  #endif  #endif
385        end subroutine        end subroutine
386    
# Line 392  C $OpenAD$ INLINE DECLS Line 392  C $OpenAD$ INLINE DECLS
392          type(active), dimension(:,:) :: x          type(active), dimension(:,:) :: x
393  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
394  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
395          write(standardmessageunit,*)'OAD: cp write x ', x(1,1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1)%v
396  #endif  #endif
397          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
398        end subroutine        end subroutine
# Line 406  C $OpenAD$ INLINE DECLS Line 406  C $OpenAD$ INLINE DECLS
406  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
407          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
408  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
409          write(standardmessageunit,*)'OAD: cp read x ', x(1,1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1)%v
410  #endif  #endif
411        end subroutine        end subroutine
412    
# Line 417  C $OpenAD$ INLINE DECLS Line 417  C $OpenAD$ INLINE DECLS
417          double precision, dimension(:,:,:) :: x          double precision, dimension(:,:,:) :: x
418  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
419  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
420          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1)
421  #endif  #endif
422          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
423        end subroutine        end subroutine
# Line 430  C $OpenAD$ INLINE DECLS Line 430  C $OpenAD$ INLINE DECLS
430  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
431          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
432  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
433          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1)
434  #endif  #endif
435        end subroutine        end subroutine
436    
# Line 442  C $OpenAD$ INLINE DECLS Line 442  C $OpenAD$ INLINE DECLS
442          type(active), dimension(:,:,:) :: x          type(active), dimension(:,:,:) :: x
443  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
444  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
445          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1)%v
446  #endif  #endif
447          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
448        end subroutine        end subroutine
# Line 456  C $OpenAD$ INLINE DECLS Line 456  C $OpenAD$ INLINE DECLS
456  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
457          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
458  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
459          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1)%v
460  #endif  #endif
461        end subroutine        end subroutine
462    
# Line 467  C $OpenAD$ INLINE DECLS Line 467  C $OpenAD$ INLINE DECLS
467          double precision, dimension(:,:,:,:) :: x          double precision, dimension(:,:,:,:) :: x
468  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
469  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
470          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1)
471  #endif  #endif
472          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
473        end subroutine        end subroutine
# Line 480  C $OpenAD$ INLINE DECLS Line 480  C $OpenAD$ INLINE DECLS
480  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
481          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
482  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
483          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1)
484  #endif  #endif
485        end subroutine        end subroutine
486    
# Line 492  C $OpenAD$ INLINE DECLS Line 492  C $OpenAD$ INLINE DECLS
492          type(active), dimension(:,:,:,:) :: x          type(active), dimension(:,:,:,:) :: x
493  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
494  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
495          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1)%v
496  #endif  #endif
497          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
498        end subroutine        end subroutine
# Line 506  C $OpenAD$ INLINE DECLS Line 506  C $OpenAD$ INLINE DECLS
506  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
507          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
508  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
509          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1)%v
510  #endif  #endif
511        end subroutine        end subroutine
512    
# Line 517  C $OpenAD$ INLINE DECLS Line 517  C $OpenAD$ INLINE DECLS
517          double precision, dimension(:,:,:,:,:) :: x          double precision, dimension(:,:,:,:,:) :: x
518  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
519  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
520          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1)
521  #endif  #endif
522          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
523        end subroutine        end subroutine
# Line 530  C $OpenAD$ INLINE DECLS Line 530  C $OpenAD$ INLINE DECLS
530  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
531          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
532  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
533          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1)
534  #endif  #endif
535        end subroutine        end subroutine
536    
# Line 542  C $OpenAD$ INLINE DECLS Line 542  C $OpenAD$ INLINE DECLS
542          type(active), dimension(:,:,:,:,:) :: x          type(active), dimension(:,:,:,:,:) :: x
543  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
544  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
545          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1)%v
546  #endif  #endif
547          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
548        end subroutine        end subroutine
# Line 556  C $OpenAD$ INLINE DECLS Line 556  C $OpenAD$ INLINE DECLS
556  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
557          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
558  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
559          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1)%v
560  #endif  #endif
561        end subroutine        end subroutine
562    
# Line 567  C $OpenAD$ INLINE DECLS Line 567  C $OpenAD$ INLINE DECLS
567          double precision, dimension(:,:,:,:,:,:) :: x          double precision, dimension(:,:,:,:,:,:) :: x
568  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
569  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
570          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1,1)
571  #endif  #endif
572          write(unit=cp_io_unit) x          write(unit=cp_io_unit) x
573        end subroutine        end subroutine
# Line 580  C $OpenAD$ INLINE DECLS Line 580  C $OpenAD$ INLINE DECLS
580  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
581          read(unit=cp_io_unit) x          read(unit=cp_io_unit) x
582  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
583          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1,1)
584  #endif  #endif
585        end subroutine        end subroutine
586    
# Line 592  C $OpenAD$ INLINE DECLS Line 592  C $OpenAD$ INLINE DECLS
592          type(active), dimension(:,:,:,:,:,:) :: x          type(active), dimension(:,:,:,:,:,:) :: x
593  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
594  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
595          write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp write x ', x(1,1,1,1,1,1)%v
596  #endif  #endif
597          write(unit=cp_io_unit) x%v          write(unit=cp_io_unit) x%v
598        end subroutine        end subroutine
# Line 606  C $OpenAD$ INLINE DECLS Line 606  C $OpenAD$ INLINE DECLS
606  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
607          read(unit=cp_io_unit) x%v          read(unit=cp_io_unit) x%v
608  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
609          write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1,1)%v          !write(standardmessageunit,*)'OAD: cp read x ', x(1,1,1,1,1,1)%v
610  #endif  #endif
611        end subroutine        end subroutine
612    
# Line 618  C $OpenAD$ INLINE DECLS Line 618  C $OpenAD$ INLINE DECLS
618          integer :: i          integer :: i
619  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
620  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
621          write(standardmessageunit,*)'OAD: cp write i ', i          !write(standardmessageunit,*)'OAD: cp write i ', i
622  #endif  #endif
623          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
624        end subroutine        end subroutine
# Line 631  C $OpenAD$ INLINE DECLS Line 631  C $OpenAD$ INLINE DECLS
631  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
632          read(unit=cp_io_unit) i          read(unit=cp_io_unit) i
633  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
634          write(standardmessageunit,*)'OAD: cp read i ', i          !write(standardmessageunit,*)'OAD: cp read i ', i
635  #endif  #endif
636        end subroutine        end subroutine
637    
# Line 642  C $OpenAD$ INLINE DECLS Line 642  C $OpenAD$ INLINE DECLS
642          integer, dimension(:) :: i          integer, dimension(:) :: i
643  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
644  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
645          write(standardmessageunit,*)'OAD: cp write i ', i(1)          !write(standardmessageunit,*)'OAD: cp write i ', i(1)
646  #endif  #endif
647          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
648        end subroutine        end subroutine
# Line 655  C $OpenAD$ INLINE DECLS Line 655  C $OpenAD$ INLINE DECLS
655  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
656          read(unit=cp_io_unit) i          read(unit=cp_io_unit) i
657  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
658          write(standardmessageunit,*)'OAD: cp read i ', i(1)          !write(standardmessageunit,*)'OAD: cp read i ', i(1)
659  #endif  #endif
660        end subroutine        end subroutine
661    
# Line 666  C $OpenAD$ INLINE DECLS Line 666  C $OpenAD$ INLINE DECLS
666          integer, dimension(:,:) :: i          integer, dimension(:,:) :: i
667  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
668  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
669          write(standardmessageunit,*)'OAD: cp write i ', i(1,1)          !write(standardmessageunit,*)'OAD: cp write i ', i(1,1)
670  #endif  #endif
671          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
672        end subroutine        end subroutine
# Line 679  C $OpenAD$ INLINE DECLS Line 679  C $OpenAD$ INLINE DECLS
679  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
680          read(unit=cp_io_unit) i          read(unit=cp_io_unit) i
681  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
682          write(standardmessageunit,*)'OAD: cp read i ', i(1,1)          !write(standardmessageunit,*)'OAD: cp read i ', i(1,1)
683  #endif  #endif
684        end subroutine        end subroutine
685    
# Line 690  C $OpenAD$ INLINE DECLS Line 690  C $OpenAD$ INLINE DECLS
690          integer, dimension(:,:,:) :: i          integer, dimension(:,:,:) :: i
691  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
692  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
693          write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1)          !write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1)
694  #endif  #endif
695          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
696        end subroutine        end subroutine
# Line 703  C $OpenAD$ INLINE DECLS Line 703  C $OpenAD$ INLINE DECLS
703  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
704          read(unit=cp_io_unit) i          read(unit=cp_io_unit) i
705  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
706          write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1)          !write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1)
707  #endif  #endif
708        end subroutine        end subroutine
709    
# Line 714  C $OpenAD$ INLINE DECLS Line 714  C $OpenAD$ INLINE DECLS
714          integer, dimension(:,:,:,:) :: i          integer, dimension(:,:,:,:) :: i
715  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
716  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
717          write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1,1)          !write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1,1)
718  #endif  #endif
719          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
720        end subroutine        end subroutine
# Line 727  C $OpenAD$ INLINE DECLS Line 727  C $OpenAD$ INLINE DECLS
727  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
728          read(unit=cp_io_unit) i          read(unit=cp_io_unit) i
729  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
730          write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1,1)          !write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1,1)
731  #endif  #endif
732        end subroutine        end subroutine
733    
# Line 738  C $OpenAD$ INLINE DECLS Line 738  C $OpenAD$ INLINE DECLS
738          integer, dimension(:,:,:,:,:) :: i          integer, dimension(:,:,:,:,:) :: i
739  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
740  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
741          write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp write i ', i(1,1,1,1,1)
742  #endif  #endif
743          write(unit=cp_io_unit) i          write(unit=cp_io_unit) i
744        end subroutine        end subroutine
# Line 751  C $OpenAD$ INLINE DECLS Line 751  C $OpenAD$ INLINE DECLS
751  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
752          read (unit=cp_io_unit) i          read (unit=cp_io_unit) i
753  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
754          write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1,1,1)          !write(standardmessageunit,*)'OAD: cp read i ', i(1,1,1,1,1)
755  #endif  #endif
756        end subroutine        end subroutine
757    
# Line 763  C $OpenAD$ INLINE DECLS Line 763  C $OpenAD$ INLINE DECLS
763        character*(80) :: s        character*(80) :: s
764  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
765  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
766          write(standardmessageunit,*)'OAD: cp write s ', s          !write(standardmessageunit,*)'OAD: cp write s ', s
767  #endif  #endif
768          write(unit=cp_io_unit) s          write(unit=cp_io_unit) s
769        end subroutine        end subroutine
# Line 776  C $OpenAD$ INLINE DECLS Line 776  C $OpenAD$ INLINE DECLS
776  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
777          read (unit=cp_io_unit) s          read (unit=cp_io_unit) s
778  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
779          write(standardmessageunit,*)'OAD: cp read s ', s          !write(standardmessageunit,*)'OAD: cp read s ', s
780  #endif  #endif
781        end subroutine        end subroutine
782    
# Line 788  C $OpenAD$ INLINE DECLS Line 788  C $OpenAD$ INLINE DECLS
788          logical :: b          logical :: b
789  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
790  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
791          write(standardmessageunit,*)'OAD: cp write b ', b          !write(standardmessageunit,*)'OAD: cp write b ', b
792  #endif  #endif
793          write(unit=cp_io_unit) b          write(unit=cp_io_unit) b
794        end subroutine        end subroutine
# Line 801  C $OpenAD$ INLINE DECLS Line 801  C $OpenAD$ INLINE DECLS
801  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
802          read (unit=cp_io_unit) b          read (unit=cp_io_unit) b
803  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
804          write(standardmessageunit,*)'OAD: cp read b ', b          !write(standardmessageunit,*)'OAD: cp read b ', b
805  #endif  #endif
806        end subroutine        end subroutine
807    
# Line 812  C $OpenAD$ INLINE DECLS Line 812  C $OpenAD$ INLINE DECLS
812          logical, dimension(:,:) :: b          logical, dimension(:,:) :: b
813  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
814  #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
818        end subroutine        end subroutine
# Line 825  C $OpenAD$ INLINE DECLS Line 825  C $OpenAD$ INLINE DECLS
825  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
826          read(unit=cp_io_unit) b          read(unit=cp_io_unit) b
827  #ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
828          write(standardmessageunit,*)'OAD: cp read b ', b(1,1)          !write(standardmessageunit,*)'OAD: cp read b ', b(1,1)
829  #endif  #endif
830          end subroutine
831    
832    C adjoints of active reals ----------------------------------
833          subroutine cp_arg_store_real_scalar_a_d(x)
834    C $OpenAD$ INLINE DECLS
835            use OAD_active
836            use OAD_cp
837            implicit none
838            type(active) :: x
839    C $OpenAD$ END DECLS
840    #ifdef OAD_DEBUG_CP
841            !write(standardmessageunit,*)'OAD: cp write x%d ', x%d
842    #endif
843            write(unit=cp_io_unit) x%d
844          end subroutine
845    
846          subroutine cp_arg_restore_real_scalar_a_d(x)
847    C $OpenAD$ INLINE DECLS
848            use OAD_active
849            use OAD_cp
850            implicit none
851            type(active) :: x
852    C $OpenAD$ END DECLS
853            read(unit=cp_io_unit) x%d
854    #ifdef OAD_DEBUG_CP
855            !write(standardmessageunit,*)'OAD: cp read x%d ', x%d
856    #endif
857          end subroutine
858    
859          subroutine cp_arg_store_real_vector_a_d(x)
860    C $OpenAD$ INLINE DECLS
861            use OAD_active
862            use OAD_cp
863            implicit none
864            type(active), dimension(:) :: x
865    C $OpenAD$ END DECLS
866    #ifdef OAD_DEBUG_CP
867            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1)%d
868    #endif
869            write(unit=cp_io_unit) x%d
870          end subroutine
871    
872          subroutine cp_arg_restore_real_vector_a_d(x)
873    C $OpenAD$ INLINE DECLS
874            use OAD_active
875            use OAD_cp
876            implicit none
877            type(active), dimension(:) :: x
878    C $OpenAD$ END DECLS
879            read(unit=cp_io_unit) x%d
880    #ifdef OAD_DEBUG_CP
881            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1)%d
882    #endif
883          end subroutine  
884    
885          subroutine cp_arg_store_real_matrix_a_d(x)
886    C $OpenAD$ INLINE DECLS
887            use OAD_active
888            use OAD_cp
889            implicit none
890            type(active), dimension(:,:) :: x
891    C $OpenAD$ END DECLS
892    #ifdef OAD_DEBUG_CP
893            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1,1)%d
894    #endif
895            write(unit=cp_io_unit) x%d
896          end subroutine
897    
898          subroutine cp_arg_restore_real_matrix_a_d(x)
899    C $OpenAD$ INLINE DECLS
900            use OAD_active
901            use OAD_cp
902            implicit none
903            type(active), dimension(:,:) :: x
904    C $OpenAD$ END DECLS
905            read(unit=cp_io_unit) x%d
906    #ifdef OAD_DEBUG_CP
907            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1,1)%d
908    #endif
909          end subroutine
910    
911          subroutine cp_arg_store_real_three_tensor_a_d(x)
912    C $OpenAD$ INLINE DECLS
913            use OAD_active
914            use OAD_cp
915            implicit none
916            type(active), dimension(:,:,:) :: x
917    C $OpenAD$ END DECLS
918    #ifdef OAD_DEBUG_CP
919            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1,1,1)%d
920    #endif
921            write(unit=cp_io_unit) x%d
922        end subroutine        end subroutine
923    
924          subroutine cp_arg_restore_real_three_tensor_a_d(x)
925    C $OpenAD$ INLINE DECLS
926            use OAD_active
927            use OAD_cp
928            implicit none
929            type(active), dimension(:,:,:) :: x
930    C $OpenAD$ END DECLS
931            read(unit=cp_io_unit) x%d
932    #ifdef OAD_DEBUG_CP
933            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1,1,1)%d
934    #endif
935          end subroutine
936    
937          subroutine cp_arg_store_real_four_tensor_a_d(x)
938    C $OpenAD$ INLINE DECLS
939            use OAD_active
940            use OAD_cp
941            implicit none
942            type(active), dimension(:,:,:,:) :: x
943    C $OpenAD$ END DECLS
944    #ifdef OAD_DEBUG_CP
945            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1,1,1,1)%d
946    #endif
947            write(unit=cp_io_unit) x%d
948          end subroutine
949    
950          subroutine cp_arg_restore_real_four_tensor_a_d(x)
951    C $OpenAD$ INLINE DECLS
952            use OAD_active
953            use OAD_cp
954            implicit none
955            type(active), dimension(:,:,:,:) :: x
956    C $OpenAD$ END DECLS
957            read(unit=cp_io_unit) x%d
958    #ifdef OAD_DEBUG_CP
959            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1,1,1,1)%d
960    #endif
961          end subroutine
962    
963          subroutine cp_arg_store_real_five_tensor_a_d(x)
964    C $OpenAD$ INLINE DECLS
965            use OAD_active
966            use OAD_cp
967            implicit none
968            type(active), dimension(:,:,:,:,:) :: x
969    C $OpenAD$ END DECLS
970    #ifdef OAD_DEBUG_CP
971            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1,1,1,1,1)%d
972    #endif
973            write(unit=cp_io_unit) x%d
974          end subroutine
975    
976          subroutine cp_arg_restore_real_five_tensor_a_d(x)
977    C $OpenAD$ INLINE DECLS
978            use OAD_active
979            use OAD_cp
980            implicit none
981            type(active), dimension(:,:,:,:,:) :: x
982    C $OpenAD$ END DECLS
983            read(unit=cp_io_unit) x%d
984    #ifdef OAD_DEBUG_CP
985            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1,1,1,1,1)%d
986    #endif
987          end subroutine
988    
989          subroutine cp_arg_store_real_six_tensor_a_d(x)
990    C $OpenAD$ INLINE DECLS
991            use OAD_active
992            use OAD_cp
993            implicit none
994            type(active), dimension(:,:,:,:,:,:) :: x
995    C $OpenAD$ END DECLS
996    #ifdef OAD_DEBUG_CP
997            !write(standardmessageunit,*)'OAD: cp write x%d ', x(1,1,1,1,1,1)%d
998    #endif
999            write(unit=cp_io_unit) x%d
1000          end subroutine
1001    
1002          subroutine cp_arg_restore_real_six_tensor_a_d(x)
1003    C $OpenAD$ INLINE DECLS
1004            use OAD_active
1005            use OAD_cp
1006            implicit none
1007            type(active), dimension(:,:,:,:,:,:) :: x
1008    C $OpenAD$ END DECLS
1009            read(unit=cp_io_unit) x%d
1010    #ifdef OAD_DEBUG_CP
1011            !write(standardmessageunit,*)'OAD: cp read x%d ', x(1,1,1,1,1,1)%d
1012    #endif
1013          end subroutine  
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22