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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |
|
|
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 |
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 |