Skip to content

Instantly share code, notes, and snippets.

@plus7
Created March 1, 2011 06:38
Show Gist options
  • Save plus7/848730 to your computer and use it in GitHub Desktop.
Save plus7/848730 to your computer and use it in GitHub Desktop.
自動変換してるので所々おかしいのはしょうがない
module m_CGBase
implicit none
type :: t_CGBase
character :: CLASS
integer :: na
integer :: nonzer
integer :: niter
double precision :: shift
double precision :: rcond
double precision :: zeta_verify_value
integer :: nz
integer :: naa
integer :: nzz
integer :: firstrow
integer :: lastrow
integer :: firstcol
integer :: lastcol
integer, allocatable :: colidx(0:)
integer, allocatable :: rowstr(:)
integer, allocatable :: iv(:)
integer, allocatable :: arow(:)
integer, allocatable :: acol(:)
double precision, allocatable :: v(:)
double precision, allocatable :: aelt(:)
double precision, allocatable :: a(:)
double precision, allocatable :: x(:)
double precision, allocatable :: z(:)
double precision, allocatable :: p(:)
double precision, allocatable :: q(:)
double precision, allocatable :: r(:)
double precision :: alpha
double precision :: beta
character(*), allocatable :: t_names(:)
double precision :: timer_read
logical :: timeron
class(t_CGWorker), allocatable :: worker(:)
class(t_CG), allocatable :: master
integer :: num_threads
double precision, allocatable :: dmaster(:)
double precision, allocatable :: rhomaster(:)
double precision, allocatable :: rnormmaster(:)
contains
procedure :: setupThreads => CGBase_setupThreads
end type t_CGBase
contains
(後略)
@plus7
Copy link
Author

plus7 commented Mar 1, 2011

CGBase.f90(18): error #6689: An assumed-shape array must be declared as a dummy argument. [COLIDX]
integer, allocatable :: colidx(0:)
----------------------------^
CGBase.f90(18): error #6646: ALLOCATABLE or POINTER attribute dictates a deferred-shape-array [COLIDX]
integer, allocatable :: colidx(0:)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment