@@ -625,57 +625,57 @@ attributes(device) real(8) function sinpi(x) bind(c,name='__nv_sinpi')
625625 end function
626626 end interface
627627
628- interface __double2ll_rn
629- attributes(device) integer (8 ) function __double2ll_rn (r) bind(c)
628+ interface __double2ll_rd
629+ attributes(device) integer (8 ) function __double2ll_rd (r) bind(c, name = ' __nv_double2ll_rd ' )
630630 ! dir$ ignore_tkr (d) r
631631 double precision , value :: r
632632 end function
633633 end interface
634634
635- interface __double2ll_rz
636- attributes(device) integer (8 ) function __double2ll_rz (r) bind(c)
635+ interface __double2ll_rn
636+ attributes(device) integer (8 ) function __double2ll_rn (r) bind(c, name = ' __nv_double2ll_rn ' )
637637 ! dir$ ignore_tkr (d) r
638638 double precision , value :: r
639639 end function
640640 end interface
641641
642642 interface __double2ll_ru
643- attributes(device) integer (8 ) function __double2ll_ru(r) bind(c)
643+ attributes(device) integer (8 ) function __double2ll_ru(r) bind(c, name = ' __nv_double2ll_ru ' )
644644 ! dir$ ignore_tkr (d) r
645645 double precision , value :: r
646646 end function
647647 end interface
648648
649- interface __double2ll_rd
650- attributes(device) integer (8 ) function __double2ll_rd (r) bind(c)
649+ interface __double2ll_rz
650+ attributes(device) integer (8 ) function __double2ll_rz (r) bind(c, name = ' __nv_double2ll_rz ' )
651651 ! dir$ ignore_tkr (d) r
652652 double precision , value :: r
653653 end function
654654 end interface
655655
656- interface __double2ull_rn
657- attributes(device) integer (8 ) function __double2ull_rn (r) bind(c)
656+ interface __double2ull_rd
657+ attributes(device) integer (8 ) function __double2ull_rd (r) bind(c, name = ' __nv_double2ull_rd ' )
658658 ! dir$ ignore_tkr (d) r
659659 double precision , value :: r
660660 end function
661661 end interface
662662
663- interface __double2ull_rz
664- attributes(device) integer (8 ) function __double2ull_rz (r) bind(c)
663+ interface __double2ull_rn
664+ attributes(device) integer (8 ) function __double2ull_rn (r) bind(c, name = ' __nv_double2ull_rn ' )
665665 ! dir$ ignore_tkr (d) r
666666 double precision , value :: r
667667 end function
668668 end interface
669669
670670 interface __double2ull_ru
671- attributes(device) integer (8 ) function __double2ull_ru(r) bind(c)
671+ attributes(device) integer (8 ) function __double2ull_ru(r) bind(c, name = ' __nv_double2ull_ru ' )
672672 ! dir$ ignore_tkr (d) r
673673 double precision , value :: r
674674 end function
675675 end interface
676676
677- interface __double2ull_rd
678- attributes(device) integer (8 ) function __double2ull_rd (r) bind(c)
677+ interface __double2ull_rz
678+ attributes(device) integer (8 ) function __double2ull_rz (r) bind(c, name = ' __nv_double2ull_rz ' )
679679 ! dir$ ignore_tkr (d) r
680680 double precision , value :: r
681681 end function
0 commit comments