Skip to content

Commit fc42d32

Browse files
pmoczpmocz
committed
reverting some : to *
1 parent 7930cca commit fc42d32

15 files changed

+54
-54
lines changed

‎astero/private/astero_run_support.f90‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -535,7 +535,7 @@ end subroutine do_scan_grid
535535

536536
subroutine bobyqa_fun(n,x,f)
537537
integer, intent(in) :: n
538-
double precision, intent(in) :: x(:)
538+
double precision, intent(in) :: x(*)
539539
double precision, intent(out) :: f
540540

541541
character(len=256) :: filename
@@ -560,7 +560,7 @@ end subroutine bobyqa_fun
560560

561561
subroutine newuoa_fun(n,x,f)
562562
integer, intent(in) :: n
563-
double precision, intent(in) :: x(:)
563+
double precision, intent(in) :: x(*)
564564
double precision, intent(out) :: f
565565

566566
character(len=256) :: filename
@@ -585,7 +585,7 @@ end subroutine newuoa_fun
585585

586586
subroutine bobyqa_or_newuoa_fun(n,x,f)
587587
integer, intent(in) :: n
588-
double precision, intent(in) :: x(:)
588+
double precision, intent(in) :: x(*)
589589
double precision, intent(out) :: f
590590
integer :: ierr, prev_sample_number, i
591591
include 'formats'

‎atm/private/atm_t_tau_uniform.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -447,17 +447,17 @@ subroutine build_solout( &
447447
integer, intent(in) :: nr, n, lrpar, lipar
448448
real(dp), intent(in) :: xold, x
449449
real(dp), intent(inout) :: y(:)
450-
real(dp), intent(inout), target :: rwork_y(:)
451-
integer, intent(inout), target :: iwork_y(:)
450+
real(dp), intent(inout), target :: rwork_y(*)
451+
integer, intent(inout), target :: iwork_y(*)
452452
integer, intent(inout), pointer :: ipar(:)
453453
real(dp), intent(inout), pointer :: rpar(:)
454454
interface
455455
real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
456456
use const_def, only: dp
457457
integer, intent(in) :: i
458458
real(dp), intent(in) :: s
459-
real(dp), intent(inout), target :: rwork_y(:)
460-
integer, intent(inout), target :: iwork_y(:)
459+
real(dp), intent(inout), target :: rwork_y(*)
460+
integer, intent(inout), target :: iwork_y(*)
461461
integer, intent(out) :: ierr
462462
end function interp_y
463463
end interface

‎atm/private/atm_t_tau_varying.f90‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -483,17 +483,17 @@ subroutine eval_solout( &
483483
integer, intent(in) :: nr, n, lrpar, lipar
484484
real(dp), intent(in) :: xold, x
485485
real(dp), intent(inout) :: y(:)
486-
real(dp), intent(inout), target :: rwork_y(:)
487-
integer, intent(inout), target :: iwork_y(:)
486+
real(dp), intent(inout), target :: rwork_y(*)
487+
integer, intent(inout), target :: iwork_y(*)
488488
integer, intent(inout), pointer :: ipar(:)
489489
real(dp), intent(inout), pointer :: rpar(:)
490490
interface
491491
real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
492492
use const_def, only: dp
493493
integer, intent(in) :: i
494494
real(dp), intent(in) :: s
495-
real(dp), intent(inout), target :: rwork_y(:)
496-
integer, intent(inout), target :: iwork_y(:)
495+
real(dp), intent(inout), target :: rwork_y(*)
496+
integer, intent(inout), target :: iwork_y(*)
497497
integer, intent(out) :: ierr
498498
end function interp_y
499499
end interface
@@ -712,17 +712,17 @@ subroutine build_solout( &
712712
integer, intent(in) :: nr, n, lrpar, lipar
713713
real(dp), intent(in) :: xold, x
714714
real(dp), intent(inout) :: y(:)
715-
real(dp), intent(inout), target :: rwork_y(:)
716-
integer, intent(inout), target :: iwork_y(:)
715+
real(dp), intent(inout), target :: rwork_y(*)
716+
integer, intent(inout), target :: iwork_y(*)
717717
integer, intent(inout), pointer :: ipar(:)
718718
real(dp), intent(inout), pointer :: rpar(:)
719719
interface
720720
real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
721721
use const_def, only: dp
722722
integer, intent(in) :: i
723723
real(dp), intent(in) :: s
724-
real(dp), intent(inout), target :: rwork_y(:)
725-
integer, intent(inout), target :: iwork_y(:)
724+
real(dp), intent(inout), target :: rwork_y(*)
725+
integer, intent(inout), target :: iwork_y(*)
726726
integer, intent(out) :: ierr
727727
end function interp_y
728728
end interface

‎mtx/private/mtx_support.f90‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -910,9 +910,9 @@ subroutine write_hbcode1(iounit, nrow, ncol, nnzero, values, rowind, colptr, ier
910910
INTEGER TOTCRD, PTRCRD, INDCRD, VALCRD, RHSCRD, &
911911
iounit, NROW , NCOL , NNZERO, NELTVL
912912

913-
INTEGER COLPTR (:), ROWIND (:), ierr
913+
INTEGER COLPTR (*), ROWIND (*), ierr
914914

915-
REAL(dp) VALUES (:)
915+
REAL(dp) VALUES (*)
916916

917917
integer :: i
918918

‎net/test/src/mod_one_zone_burn.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -810,8 +810,8 @@ real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
810810
use const_def, only: dp
811811
integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
812812
real(dp), intent(in) :: s ! interpolation x value (between xold and x).
813-
real(dp), intent(inout), target :: rwork_y(:)
814-
integer, intent(inout), target :: iwork_y(:)
813+
real(dp), intent(inout), target :: rwork_y(*)
814+
integer, intent(inout), target :: iwork_y(*)
815815
integer, intent(out) :: ierr
816816
ierr = 0
817817
interp_y = 0
@@ -1007,8 +1007,8 @@ subroutine burn_solout( &
10071007
integer, intent(in) :: step, n, lrpar, lipar
10081008
real(dp), intent(in) :: told, time
10091009
real(dp), intent(inout) :: x(:)
1010-
real(dp), intent(inout), target :: rwork_y(:)
1011-
integer, intent(inout), target :: iwork_y(:)
1010+
real(dp), intent(inout), target :: rwork_y(*)
1011+
integer, intent(inout), target :: iwork_y(*)
10121012
integer, intent(inout), pointer :: ipar(:) ! (lipar)
10131013
real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
10141014
real(dp) :: lgt, lgrho

‎num/test/src/sample_ode_solver.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -246,17 +246,17 @@ subroutine vdpol_solout(nr, xold, x, n, y, rwork, iwork, interp_y, lrpar, rpar,
246246
integer, intent(in) :: nr, n, lrpar, lipar
247247
real(dp), intent(in) :: xold, x
248248
real(dp), intent(inout) :: y(:) ! (n)
249-
real(dp), intent(inout), target :: rwork(:)
250-
integer, intent(inout), target :: iwork(:)
249+
real(dp), intent(inout), target :: rwork(*)
250+
integer, intent(inout), target :: iwork(*)
251251
integer, intent(inout), pointer :: ipar(:) ! (lipar)
252252
real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
253253
interface
254254
real(dp) function interp_y(i, s, rwork, iwork, ierr)
255255
use const_def, only: dp
256256
integer, intent(in) :: i
257257
real(dp), intent(in) :: s
258-
real(dp), intent(inout), target :: rwork(:)
259-
integer, intent(inout), target :: iwork(:)
258+
real(dp), intent(inout), target :: rwork(*)
259+
integer, intent(inout), target :: iwork(*)
260260
integer, intent(out) :: ierr
261261
end function interp_y
262262
end interface

‎num/test/src/test_beam.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -77,8 +77,8 @@ subroutine beam_solout(nr,xold,x,n,y,rwork,iwork,interp_y,lrpar,rpar,lipar,ipar,
7777
integer, intent(in) :: nr, n, lrpar, lipar
7878
real(dp), intent(in) :: xold, x
7979
real(dp), intent(inout) :: y(:) ! (n)
80-
real(dp), intent(inout), target :: rwork(:)
81-
integer, intent(inout), target :: iwork(:)
80+
real(dp), intent(inout), target :: rwork(*)
81+
integer, intent(inout), target :: iwork(*)
8282
integer, intent(inout), pointer :: ipar(:) ! (lipar)
8383
real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
8484
interface
@@ -88,8 +88,8 @@ real(dp) function interp_y(i,s,rwork,iwork,ierr)
8888
use const_def, only: dp
8989
integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
9090
real(dp), intent(in) :: s ! interpolation x value (between xold and x).
91-
real(dp), intent(inout), target :: rwork(:)
92-
integer, intent(inout), target :: iwork(:)
91+
real(dp), intent(inout), target :: rwork(*)
92+
integer, intent(inout), target :: iwork(*)
9393
integer, intent(out) :: ierr
9494
end function interp_y
9595
end interface

‎num/test/src/test_bobyqa.f90‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ end subroutine do_test_bobyqa
4141
subroutine calfun(n, x, f)
4242
use const_def, only: dp
4343
integer, intent(in) :: n
44-
real(dp), intent(in) :: x(:)
44+
real(dp), intent(in) :: x(*)
4545
real(dp), intent(out) :: f
4646
integer :: i, j, iw, np
4747
real(dp) :: sum
@@ -75,7 +75,7 @@ end subroutine CALFUN
7575

7676
subroutine xCALFUN(N, X, F)
7777
integer, intent(in) :: n
78-
real(dp), intent(in) :: x(:)
78+
real(dp), intent(in) :: x(*)
7979
real(dp), intent(out) :: f
8080
integer :: i, j
8181
real(dp) :: temp

‎num/test/src/test_chemakzo.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -77,8 +77,8 @@ subroutine chemakzo_solout(nr,xold,x,n,y,rwork,iwork,interp_y,lrpar,rpar,lipar,i
7777
integer, intent(in) :: nr, n, lrpar, lipar
7878
real(dp), intent(in) :: xold, x
7979
real(dp), intent(inout) :: y(:) ! (n)
80-
real(dp), intent(inout), target :: rwork(:)
81-
integer, intent(inout), target :: iwork(:)
80+
real(dp), intent(inout), target :: rwork(*)
81+
integer, intent(inout), target :: iwork(*)
8282
integer, intent(inout), pointer :: ipar(:) ! (lipar)
8383
real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
8484
interface
@@ -88,8 +88,8 @@ real(dp) function interp_y(i,s,rwork,iwork,ierr)
8888
use const_def, only: dp
8989
integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
9090
real(dp), intent(in) :: s ! interpolation x value (between xold and x).
91-
real(dp), intent(inout), target :: rwork(:)
92-
integer, intent(inout), target :: iwork(:)
91+
real(dp), intent(inout), target :: rwork(*)
92+
integer, intent(inout), target :: iwork(*)
9393
integer, intent(out) :: ierr
9494
end function interp_y
9595
end interface

‎num/test/src/test_diffusion.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -145,8 +145,8 @@ subroutine diffusion_solout(nr,xold,x,n,y,rwork,iwork,interp_y,lrpar,rpar,lipar,
145145
integer, intent(in) :: nr, n, lrpar, lipar
146146
real(dp), intent(in) :: xold, x
147147
real(dp), intent(inout) :: y(:) ! (n)
148-
real(dp), intent(inout), target :: rwork(:)
149-
integer, intent(inout), target :: iwork(:)
148+
real(dp), intent(inout), target :: rwork(*)
149+
integer, intent(inout), target :: iwork(*)
150150
integer, intent(inout), pointer :: ipar(:) ! (lipar)
151151
real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
152152
interface
@@ -156,8 +156,8 @@ real(dp) function interp_y(i,s,rwork,iwork,ierr)
156156
use const_def, only: dp
157157
integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
158158
real(dp), intent(in) :: s ! interpolation x value (between xold and x).
159-
real(dp), intent(inout), target :: rwork(:)
160-
integer, intent(inout), target :: iwork(:)
159+
real(dp), intent(inout), target :: rwork(*)
160+
integer, intent(inout), target :: iwork(*)
161161
integer, intent(out) :: ierr
162162
end function interp_y
163163
end interface

0 commit comments

Comments
 (0)