lxsd / fvn

Download as
Browse Code ยป

Commit 204ded3d3d92e08d9797a75b142068868985be7d

Authored by William Daniau
1 parent a2360e2fa7
Exists in master and in 1 other branch geevx_2020

Suppression de conversions implicites.

Showing 1 changed file with 8 additions and 8 deletions Side-by-side Diff

fvn_linear/fvn_linear.f90
Diff comments   View file @ 204ded3
... ... @@ -1409,8 +1409,8 @@
1409 1409  
1410 1410 ! query workspace size
1411 1411 call dgels('N',np,deg+1,1,mat,np,bmat,np,twork,-1,info)
1412   -lwork=twork(1)
1413   -allocate(work(int(lwork)))
  1412 +lwork=int(twork(1))
  1413 +allocate(work(lwork))
1414 1414 ! real(kind=sp_kind) call
1415 1415 call dgels('N',np,deg+1,1,mat,np,bmat,np,work,lwork,info)
1416 1416  
... ... @@ -1465,8 +1465,8 @@
1465 1465  
1466 1466 ! query workspace size
1467 1467 call sgels('N',np,deg+1,1,mat,np,bmat,np,twork,-1,info)
1468   -lwork=twork(1)
1469   -allocate(work(int(lwork)))
  1468 +lwork=int(twork(1))
  1469 +allocate(work(lwork))
1470 1470 ! real(kind=sp_kind) call
1471 1471 call sgels('N',np,deg+1,1,mat,np,bmat,np,work,lwork,info)
1472 1472  
... ... @@ -1528,8 +1528,8 @@
1528 1528  
1529 1529 ! query workspace size
1530 1530 call dgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,twork,-1,info)
1531   -lwork=twork(1)
1532   -allocate(work(int(lwork)))
  1531 +lwork=int(twork(1))
  1532 +allocate(work(lwork))
1533 1533 ! real(kind=sp_kind) call
1534 1534 call dgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,work,lwork,info)
1535 1535  
... ... @@ -1584,8 +1584,8 @@
1584 1584  
1585 1585 ! query workspace size
1586 1586 call sgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,twork,-1,info)
1587   -lwork=twork(1)
1588   -allocate(work(int(lwork)))
  1587 +lwork=int(twork(1))
  1588 +allocate(work(lwork))
1589 1589 ! real(kind=sp_kind) call
1590 1590 call sgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,work,lwork,info)
1591 1591