| Back to the "Multiple platform build/check report" | A B C D E F G H [I] J K L M N O P Q R S T U V W X Y Z |
This page was generated on 2016-09-21 03:52:53 -0700 (Wed, 21 Sep 2016).
| Package 599/1257 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | |||||
| iClusterPlus 1.9.0 Qianxing Mo
| zin1 | Linux (Ubuntu 16.04 LTS) / x86_64 | NotNeeded | OK | OK |  | |||||
| moscato1 | Windows Server 2008 R2 Standard (64-bit) / x64 | NotNeeded | OK | OK | OK | | |||||
| morelia | Mac OS X Mavericks (10.9.5) / x86_64 | NotNeeded | OK | [ WARNINGS ] | OK | |
| Package: iClusterPlus |
| Version: 1.9.0 |
| Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --no-vignettes --timings iClusterPlus_1.9.0.tar.gz |
| StartedAt: 2016-09-20 08:01:54 -0700 (Tue, 20 Sep 2016) |
| EndedAt: 2016-09-20 08:03:38 -0700 (Tue, 20 Sep 2016) |
| EllapsedTime: 104.1 seconds |
| RetCode: 0 |
| Status: WARNINGS |
| CheckDir: iClusterPlus.Rcheck |
| Warnings: 1 |
##############################################################################
##############################################################################
###
### Running command:
###
### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --no-vignettes --timings iClusterPlus_1.9.0.tar.gz
###
##############################################################################
##############################################################################
* using log directory ‘/Users/biocbuild/bbs-3.4-bioc/meat/iClusterPlus.Rcheck’
* using R version 3.3.1 (2016-06-21)
* using platform: x86_64-apple-darwin13.4.0 (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘iClusterPlus/DESCRIPTION’ ... OK
* this is package ‘iClusterPlus’ version ‘1.9.0’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘iClusterPlus’ can be installed ... WARNING
Found the following significant warnings:
newGLMnet.f90:2086:0: warning: control reaches end of non-void function [-Wreturn-type]
See ‘/Users/biocbuild/bbs-3.4-bioc/meat/iClusterPlus.Rcheck/00install.out’ for details.
* checking installed package size ... NOTE
installed size is 22.2Mb
sub-directories of 1Mb or more:
data 17.9Mb
doc 3.9Mb
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... NOTE
Malformed Description field: should contain one or more complete sentences.
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking dependencies in R code ... NOTE
Package in Depends field not imported from: ‘parallel’
These packages need to be imported from (in the NAMESPACE file)
for when this namespace is loaded but not attached.
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
CNregions: no visible binding for global variable ‘chromosome’
CNregions: no visible binding for global variable ‘num.mark’
CNregions: no visible global function definition for ‘GRanges’
CNregions: no visible global function definition for ‘IRanges’
CNregions: no visible global function definition for ‘findOverlaps’
CNregions: no visible global function definition for ‘tail’
CNregions: no visible global function definition for ‘quantile’
CNregions : get.medoid: no visible global function definition for ‘pam’
classError: no visible global function definition for ‘mapClass’
compute.pod: no visible global function definition for ‘model.matrix’
iCluster: no visible global function definition for ‘kmeans’
iCluster2: no visible global function definition for ‘kmeans’
iClusterPlus: no visible global function definition for ‘rnorm’
iClusterPlus: no visible global function definition for ‘kmeans’
plotHeatmap: no visible global function definition for ‘bluered’
plotHeatmap : my.panel.levelplot: no visible global function definition
for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot: no visible global function definition
for ‘panel.abline’
plotHeatmap: no visible global function definition for ‘quantile’
plotHeatmap: no visible global function definition for ‘cor’
plotHeatmap: no visible global function definition for ‘hclust’
plotHeatmap: no visible global function definition for ‘as.dist’
plotHeatmap : my.panel.levelplot.2: no visible global function
definition for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot.2: no visible global function
definition for ‘panel.abline’
plotHeatmap : scale.fn: no visible binding for global variable ‘sd’
plotHeatmap: no visible global function definition for ‘levelplot’
plotRI: no visible global function definition for ‘plot’
plotRI: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘image’
plotiCluster: no visible global function definition for ‘gray’
plotiCluster: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘mtext’
plotiCluster: no visible global function definition for ‘box’
predict.kmeans: no visible global function definition for ‘dist’
tune.iCluster2: no visible global function definition for ‘data’
tune.iCluster2: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible global function definition for ‘data’
tune.iClusterPlus: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible global function definition for ‘mclapply’
Undefined global functions or variables:
GRanges IRanges as.dist axis bluered box chromosome cor data dist
findOverlaps glp gray hclust image kmeans levelplot mapClass mclapply
model.matrix mtext num.mark pam panel.abline panel.levelplot plot
quantile rnorm sd tail
Consider adding
importFrom("grDevices", "gray")
importFrom("graphics", "axis", "box", "image", "mtext", "plot")
importFrom("stats", "as.dist", "cor", "dist", "hclust", "kmeans",
"model.matrix", "quantile", "rnorm", "sd")
importFrom("utils", "data", "tail")
to your NAMESPACE file.
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking line endings in Makefiles ... OK
* checking compilation flags in Makevars ... OK
* checking for GNU extensions in Makefiles ... OK
* checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
* checking compiled code ... OK
* checking sizes of PDF files under ‘inst/doc’ ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
Running ‘runTests.R’
OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE
Status: 1 WARNING, 4 NOTEs
See
‘/Users/biocbuild/bbs-3.4-bioc/meat/iClusterPlus.Rcheck/00check.log’
for details.
iClusterPlus.Rcheck/00install.out:
* installing *source* package ‘iClusterPlus’ ...
This package has only been tested with gfortran.
So some checks are needed.
R_HOME is /Library/Frameworks/R.framework/Resources
Attempting to determine R_ARCH...
R_ARCH is
Attempting to detect how R was configured for Fortran 90....
R configured for gfortran; Good!
configure: creating ./config.status
config.status: creating src/Makevars
** libs
clang -I/Library/Frameworks/R.framework/Resources/include -DNDEBUG -I/usr/local/include -I/usr/local/include/freetype2 -I/opt/X11/include -fPIC -Wall -mtune=core2 -g -O2 -c iClusterPlus.c -o iClusterPlus.o
iClusterPlus.c:1098:60: warning: unused variable 'tempm3' [-Wunused-variable]
double *btp,*btpb, *EXZt,*tempX,*tempm0,*tempm1,*tempm2,*tempm3,*BOld,*PhivecOld, *XtXdiag;
^
1 warning generated.
gfortran-4.8 -fdefault-real-8 -ffixed-form -fPIC -Wall -g -O2 -c newGLMnet.f90 -o newGLMnet.o
newGLMnet.f90:519.72:
subroutine elnet (ka,parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:521.72:
real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:522.72:
real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:523.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:525.72:
if(maxval(vp) .gt. 0.0)goto 10021
1
Warning: Line truncated at (1)
newGLMnet.f90:526.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:527.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:528.72:
10021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:529.72:
allocate(vq(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:530.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:531.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:532.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:533.72:
if(ka .ne. 1)goto 10041
1
Warning: Line truncated at (1)
newGLMnet.f90:534.72:
call elnetu (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd
1
Warning: Line truncated at (1)
newGLMnet.f90:536.72:
goto 10051
1
Warning: Line truncated at (1)
newGLMnet.f90:537.72:
10041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:538.72:
call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd,
1
Warning: Line truncated at (1)
newGLMnet.f90:540.72:
10051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:541.72:
10031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:542.72:
deallocate(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:543.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:544.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:545.72:
subroutine elnetu (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t
1
Warning: Line truncated at (1)
newGLMnet.f90:547.72:
real x(no,ni),y(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:548.72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:549.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:552.72:
allocate(g(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:553.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:554.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:555.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:556.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:557.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:558.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:559.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:560.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:561.72:
allocate(vlam(1:nlam),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:562.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:563.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:564.72:
call chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:565.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:566.72:
if(maxval(ju) .gt. 0)goto 10071
1
Warning: Line truncated at (1)
newGLMnet.f90:567.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:568.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:569.72:
10071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:570.72:
call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:571.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:572.72:
if(flmin.ge.1.0) vlam=ulam/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:573.72:
call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x
1
Warning: Line truncated at (1)
newGLMnet.f90:575.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:576.72:
10080 do 10081 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:577.72:
alm(k)=ys*alm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:578.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:579.72:
10090 do 10091 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:580.72:
ca(l,k)=ys*ca(l,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:581.72:
10091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:582.72:
10092 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:583.72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:584.72:
10081 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:585.72:
10082 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:586.72:
deallocate(xm,xs,g,ju,xv,vlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:587.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:588.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:589.72:
subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:590.72:
real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:591.72:
integer ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:593.72:
allocate(v(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:594.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:595.72:
w=w/sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:596.72:
v=sqrt(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:597.72:
10100 do 10101 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:598.72:
if(ju(j).eq.0)goto 10101
1
Warning: Line truncated at (1)
newGLMnet.f90:599.72:
xm(j)=dot_product(w,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:600.72:
x(:,j)=v*(x(:,j)-xm(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:601.72:
xv(j)=dot_product(x(:,j),x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:602.72:
if(isd.gt.0) xs(j)=sqrt(xv(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:603.72:
10101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:604.72:
10102 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:605.72:
if(isd .ne. 0)goto 10121
1
Warning: Line truncated at (1)
newGLMnet.f90:606.72:
xs=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:607.72:
goto 10131
1
Warning: Line truncated at (1)
newGLMnet.f90:608.72:
10121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:609.72:
10140 do 10141 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:610.72:
if(ju(j).eq.0)goto 10141
1
Warning: Line truncated at (1)
newGLMnet.f90:611.72:
x(:,j)=x(:,j)/xs(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:612.72:
10141 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:613.72:
10142 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:614.72:
xv=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:615.72:
10131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:616.72:
10111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:617.72:
ym=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:618.72:
y=v*(y-ym)
1
Warning: Line truncated at (1)
newGLMnet.f90:619.72:
ys=sqrt(dot_product(y,y))
1
Warning: Line truncated at (1)
newGLMnet.f90:620.72:
y=y/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:621.72:
g=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:622.72:
10150 do 10151 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:623.72:
if(ju(j).ne.0) g(j)=dot_product(y,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:624.72:
10151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:625.72:
10152 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:626.72:
deallocate(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:627.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:628.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:629.72:
subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr,
1
Warning: Line truncated at (1)
newGLMnet.f90:631.72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:633.72:
real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(
1
Warning: Line truncated at (1)
newGLMnet.f90:635.72:
integer ju(ni),ia(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:640.72:
allocate(a(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:641.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:642.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:643.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:644.72:
allocate(da(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:645.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:646.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:647.72:
bta=beta
1
Warning: Line truncated at (1)
newGLMnet.f90:648.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:649.72:
if(flmin .ge. 1.0)goto 10171
1
Warning: Line truncated at (1)
newGLMnet.f90:650.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:651.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:652.72:
10171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:653.72:
rsq=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:654.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:655.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:656.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:657.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:658.72:
iz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:659.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:660.72:
10180 do 10181 m=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:661.72:
if(flmin .lt. 1.0)goto 10201
1
Warning: Line truncated at (1)
newGLMnet.f90:662.72:
alm=ulam(m)
1
Warning: Line truncated at (1)
newGLMnet.f90:663.72:
goto 10191
1
Warning: Line truncated at (1)
newGLMnet.f90:664.72:
10201 if(m .le. 2)goto 10211
1
Warning: Line truncated at (1)
newGLMnet.f90:665.72:
alm=alm*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:666.72:
goto 10191
1
Warning: Line truncated at (1)
newGLMnet.f90:667.72:
10211 if(m .ne. 1)goto 10221
1
Warning: Line truncated at (1)
newGLMnet.f90:668.72:
alm=big
1
Warning: Line truncated at (1)
newGLMnet.f90:669.72:
goto 10231
1
Warning: Line truncated at (1)
newGLMnet.f90:670.72:
10221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:671.72:
alm=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:672.72:
10240 do 10241 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:673.72:
if(ju(j).eq.0)goto 10241
1
Warning: Line truncated at (1)
newGLMnet.f90:674.72:
if(vp(j).le.0.0)goto 10241
1
Warning: Line truncated at (1)
newGLMnet.f90:675.72:
alm=max(alm,abs(g(j))/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:676.72:
10241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:677.72:
10242 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:678.72:
alm=alf*alm/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:679.72:
10231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:680.72:
10191 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:681.72:
dem=alm*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:682.72:
ab=alm*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:683.72:
rsq0=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:684.72:
jz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:685.72:
10250 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:686.72:
10251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:687.72:
if(iz*jz.ne.0) go to 10260
1
Warning: Line truncated at (1)
newGLMnet.f90:688.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:689.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:690.72:
10270 do 10271 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:691.72:
if(ju(k).eq.0)goto 10271
1
Warning: Line truncated at (1)
newGLMnet.f90:692.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:693.72:
u=g(k)+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:694.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:695.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:696.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:697.72:
if(a(k).eq.ak)goto 10271
1
Warning: Line truncated at (1)
newGLMnet.f90:698.72:
if(mm(k) .ne. 0)goto 10291
1
Warning: Line truncated at (1)
newGLMnet.f90:699.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:700.72:
if(nin.gt.nx)goto 10272
1
Warning: Line truncated at (1)
newGLMnet.f90:701.72:
10300 do 10301 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:702.72:
if(ju(j).eq.0)goto 10301
1
Warning: Line truncated at (1)
newGLMnet.f90:703.72:
if(mm(j) .eq. 0)goto 10321
1
Warning: Line truncated at (1)
newGLMnet.f90:704.72:
c(j,nin)=c(k,mm(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:705.72:
goto 10301
1
Warning: Line truncated at (1)
newGLMnet.f90:706.72:
10321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:707.72:
if(j .ne. k)goto 10341
1
Warning: Line truncated at (1)
newGLMnet.f90:708.72:
c(j,nin)=xv(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:709.72:
goto 10301
1
Warning: Line truncated at (1)
newGLMnet.f90:710.72:
10341 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:711.72:
c(j,nin)=dot_product(x(:,j),x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:712.72:
10301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:713.72:
10302 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:714.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:715.72:
ia(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:716.72:
10291 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:717.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:718.72:
rsq=rsq+del*(2.0*g(k)-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:719.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:720.72:
10350 do 10351 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:721.72:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del
1
Warning: Line truncated at (1)
newGLMnet.f90:722.72:
10351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:723.72:
10352 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:724.72:
10271 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:725.72:
10272 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:726.72:
if(dlx.lt.thr)goto 10252
1
Warning: Line truncated at (1)
newGLMnet.f90:727.72:
if(nin.gt.nx)goto 10252
1
Warning: Line truncated at (1)
newGLMnet.f90:728.72:
if(nlp .le. maxit)goto 10371
1
Warning: Line truncated at (1)
newGLMnet.f90:729.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:730.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:731.72:
10371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:732.72:
10260 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:733.72:
iz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:734.72:
da(1:nin)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:735.72:
10380 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:736.72:
10381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:737.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:738.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:739.72:
10390 do 10391 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:740.72:
k=ia(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:741.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:742.72:
u=g(k)+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:743.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:744.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:745.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:746.72:
if(a(k).eq.ak)goto 10391
1
Warning: Line truncated at (1)
newGLMnet.f90:747.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:748.72:
rsq=rsq+del*(2.0*g(k)-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:749.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:750.72:
10400 do 10401 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:751.72:
g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del
1
Warning: Line truncated at (1)
newGLMnet.f90:752.72:
10401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:753.72:
10402 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:754.72:
10391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:755.72:
10392 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:756.72:
if(dlx.lt.thr)goto 10382
1
Warning: Line truncated at (1)
newGLMnet.f90:757.72:
if(nlp .le. maxit)goto 10421
1
Warning: Line truncated at (1)
newGLMnet.f90:758.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:759.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:760.72:
10421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:761.72:
goto 10381
1
Warning: Line truncated at (1)
newGLMnet.f90:762.72:
10382 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:763.72:
da(1:nin)=a(ia(1:nin))-da(1:nin)
1
Warning: Line truncated at (1)
newGLMnet.f90:764.72:
10430 do 10431 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:765.72:
if(mm(j).ne.0)goto 10431
1
Warning: Line truncated at (1)
newGLMnet.f90:766.72:
if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:767.72:
10431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:768.72:
10432 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:769.72:
jz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:770.72:
goto 10251
1
Warning: Line truncated at (1)
newGLMnet.f90:771.72:
10252 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:772.72:
if(nin .le. nx)goto 10451
1
Warning: Line truncated at (1)
newGLMnet.f90:773.72:
jerr=-10000-m
1
Warning: Line truncated at (1)
newGLMnet.f90:774.72:
goto 10182
1
Warning: Line truncated at (1)
newGLMnet.f90:775.72:
10451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:776.72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:777.72:
kin(m)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:778.72:
rsqo(m)=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:779.72:
almo(m)=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:780.72:
lmu=m
1
Warning: Line truncated at (1)
newGLMnet.f90:781.72:
if(m.lt.mnl)goto 10181
1
Warning: Line truncated at (1)
newGLMnet.f90:782.72:
if(flmin.ge.1.0)goto 10181
1
Warning: Line truncated at (1)
newGLMnet.f90:783.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:784.72:
10460 do 10461 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:785.72:
if(ao(j,m).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:786.72:
10461 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:787.72:
10462 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:788.72:
if(me.gt.ne)goto 10182
1
Warning: Line truncated at (1)
newGLMnet.f90:789.72:
if(rsq-rsq0.lt.sml*rsq)goto 10182
1
Warning: Line truncated at (1)
newGLMnet.f90:790.72:
if(rsq.gt.rsqmax)goto 10182
1
Warning: Line truncated at (1)
newGLMnet.f90:791.72:
10181 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:792.72:
10182 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:793.72:
deallocate(a,mm,c,da)
1
Warning: Line truncated at (1)
newGLMnet.f90:794.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:795.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:796.72:
subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th
1
Warning: Line truncated at (1)
newGLMnet.f90:798.72:
real vp(ni),x(no,ni),y(no),w(no),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:799.72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:800.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:803.72:
allocate(xm(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:804.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:805.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:806.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:807.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:808.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:809.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:810.72:
allocate(vlam(1:nlam),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:811.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:812.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:813.72:
call chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:814.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:815.72:
if(maxval(ju) .gt. 0)goto 10481
1
Warning: Line truncated at (1)
newGLMnet.f90:816.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:817.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:818.72:
10481 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:819.72:
call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:820.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:821.72:
if(flmin.ge.1.0) vlam=ulam/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:822.72:
call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x
1
Warning: Line truncated at (1)
newGLMnet.f90:824.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:825.72:
10490 do 10491 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:826.72:
alm(k)=ys*alm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:827.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:828.72:
10500 do 10501 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:829.72:
ca(l,k)=ys*ca(l,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:830.72:
10501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:831.72:
10502 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:832.72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:833.72:
10491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:834.72:
10492 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:835.72:
deallocate(xm,xs,ju,xv,vlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:836.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:837.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:838.72:
subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:839.72:
real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:840.72:
integer ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:842.72:
allocate(v(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:843.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:844.72:
w=w/sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:845.72:
v=sqrt(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:846.72:
10510 do 10511 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:847.72:
if(ju(j).eq.0)goto 10511
1
Warning: Line truncated at (1)
newGLMnet.f90:848.72:
xm(j)=dot_product(w,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:849.72:
x(:,j)=v*(x(:,j)-xm(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:850.72:
xv(j)=dot_product(x(:,j),x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:851.72:
if(isd.gt.0) xs(j)=sqrt(xv(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:852.72:
10511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:853.72:
10512 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:854.72:
if(isd .ne. 0)goto 10531
1
Warning: Line truncated at (1)
newGLMnet.f90:855.72:
xs=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:856.72:
goto 10541
1
Warning: Line truncated at (1)
newGLMnet.f90:857.72:
10531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:858.72:
10550 do 10551 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:859.72:
if(ju(j).eq.0)goto 10551
1
Warning: Line truncated at (1)
newGLMnet.f90:860.72:
x(:,j)=x(:,j)/xs(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:861.72:
10551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:862.72:
10552 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:863.72:
xv=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:864.72:
10541 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:865.72:
10521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:866.72:
ym=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:867.72:
y=v*(y-ym)
1
Warning: Line truncated at (1)
newGLMnet.f90:868.72:
ys=sqrt(dot_product(y,y))
1
Warning: Line truncated at (1)
newGLMnet.f90:869.72:
y=y/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:870.72:
deallocate(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:871.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:872.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:873.72:
subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m
1
Warning: Line truncated at (1)
newGLMnet.f90:875.72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:877.72:
real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(
1
Warning: Line truncated at (1)
newGLMnet.f90:879.72:
integer ju(ni),ia(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:882.72:
allocate(a(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:883.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:884.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:885.72:
allocate(g(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:886.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:887.72:
allocate(ix(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:888.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:889.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:890.72:
bta=beta
1
Warning: Line truncated at (1)
newGLMnet.f90:891.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:892.72:
ix=0
1
Warning: Line truncated at (1)
newGLMnet.f90:893.72:
if(flmin .ge. 1.0)goto 10571
1
Warning: Line truncated at (1)
newGLMnet.f90:894.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:895.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:896.72:
10571 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:897.72:
rsq=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:898.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:899.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:900.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:901.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:902.72:
iz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:903.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:904.72:
alm=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:905.72:
10580 do 10581 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:906.72:
if(ju(j).eq.0)goto 10581
1
Warning: Line truncated at (1)
newGLMnet.f90:907.72:
g(j)=abs(dot_product(y,x(:,j)))
1
Warning: Line truncated at (1)
newGLMnet.f90:908.72:
10581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:909.72:
10582 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:910.72:
10590 do 10591 m=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:911.72:
alm0=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:912.72:
if(flmin .lt. 1.0)goto 10611
1
Warning: Line truncated at (1)
newGLMnet.f90:913.72:
alm=ulam(m)
1
Warning: Line truncated at (1)
newGLMnet.f90:914.72:
goto 10601
1
Warning: Line truncated at (1)
newGLMnet.f90:915.72:
10611 if(m .le. 2)goto 10621
1
Warning: Line truncated at (1)
newGLMnet.f90:916.72:
alm=alm*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:917.72:
goto 10601
1
Warning: Line truncated at (1)
newGLMnet.f90:918.72:
10621 if(m .ne. 1)goto 10631
1
Warning: Line truncated at (1)
newGLMnet.f90:919.72:
alm=big
1
Warning: Line truncated at (1)
newGLMnet.f90:920.72:
goto 10641
1
Warning: Line truncated at (1)
newGLMnet.f90:921.72:
10631 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:922.72:
alm0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:923.72:
10650 do 10651 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:924.72:
if(ju(j).eq.0)goto 10651
1
Warning: Line truncated at (1)
newGLMnet.f90:925.72:
if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:926.72:
10651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:927.72:
10652 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:928.72:
alm0=alm0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:929.72:
alm=alf*alm0
1
Warning: Line truncated at (1)
newGLMnet.f90:930.72:
10641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:931.72:
10601 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:932.72:
dem=alm*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:933.72:
ab=alm*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:934.72:
rsq0=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:935.72:
jz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:936.72:
tlam=bta*(2.0*alm-alm0)
1
Warning: Line truncated at (1)
newGLMnet.f90:937.72:
10660 do 10661 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:938.72:
if(ix(k).eq.1)goto 10661
1
Warning: Line truncated at (1)
newGLMnet.f90:939.72:
if(ju(k).eq.0)goto 10661
1
Warning: Line truncated at (1)
newGLMnet.f90:940.72:
if(g(k).gt.tlam*vp(k)) ix(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:941.72:
10661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:942.72:
10662 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:943.72:
10670 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:944.72:
10671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:945.72:
if(iz*jz.ne.0) go to 10260
1
Warning: Line truncated at (1)
newGLMnet.f90:946.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:947.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:948.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:949.72:
10690 do 10691 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:950.72:
if(ix(k).eq.0)goto 10691
1
Warning: Line truncated at (1)
newGLMnet.f90:951.72:
gk=dot_product(y,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:952.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:953.72:
u=gk+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:954.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:955.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:956.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:957.72:
if(a(k).eq.ak)goto 10691
1
Warning: Line truncated at (1)
newGLMnet.f90:958.72:
if(mm(k) .ne. 0)goto 10711
1
Warning: Line truncated at (1)
newGLMnet.f90:959.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:960.72:
if(nin.gt.nx)goto 10692
1
Warning: Line truncated at (1)
newGLMnet.f90:961.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:962.72:
ia(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:963.72:
10711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:964.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:965.72:
rsq=rsq+del*(2.0*gk-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:966.72:
y=y-del*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:967.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:968.72:
10691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:969.72:
10692 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:970.72:
if(nin.gt.nx)goto 10672
1
Warning: Line truncated at (1)
newGLMnet.f90:971.72:
if(dlx .ge. thr)goto 10731
1
Warning: Line truncated at (1)
newGLMnet.f90:972.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:973.72:
10740 do 10741 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:974.72:
if(ix(k).eq.1)goto 10741
1
Warning: Line truncated at (1)
newGLMnet.f90:975.72:
if(ju(k).eq.0)goto 10741
1
Warning: Line truncated at (1)
newGLMnet.f90:976.72:
g(k)=abs(dot_product(y,x(:,k)))
1
Warning: Line truncated at (1)
newGLMnet.f90:977.72:
if(g(k) .le. ab*vp(k))goto 10761
1
Warning: Line truncated at (1)
newGLMnet.f90:978.72:
ix(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:979.72:
ixx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:980.72:
10761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:981.72:
10741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:982.72:
10742 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:983.72:
if(ixx.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:984.72:
goto 10672
1
Warning: Line truncated at (1)
newGLMnet.f90:985.72:
10731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:986.72:
if(nlp .le. maxit)goto 10781
1
Warning: Line truncated at (1)
newGLMnet.f90:987.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:988.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:989.72:
10781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:990.72:
10260 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:991.72:
iz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:992.72:
10790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:993.72:
10791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:994.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:995.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:996.72:
10800 do 10801 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:997.72:
k=ia(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:998.72:
gk=dot_product(y,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:999.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1000.72:
u=gk+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1001.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:1002.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1003.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:1004.72:
if(a(k).eq.ak)goto 10801
1
Warning: Line truncated at (1)
newGLMnet.f90:1005.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:1006.72:
rsq=rsq+del*(2.0*gk-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1007.72:
y=y-del*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1008.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:1009.72:
10801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1010.72:
10802 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1011.72:
if(dlx.lt.thr)goto 10792
1
Warning: Line truncated at (1)
newGLMnet.f90:1012.72:
if(nlp .le. maxit)goto 10821
1
Warning: Line truncated at (1)
newGLMnet.f90:1013.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1014.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1015.72:
10821 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1016.72:
goto 10791
1
Warning: Line truncated at (1)
newGLMnet.f90:1017.72:
10792 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1018.72:
jz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1019.72:
goto 10671
1
Warning: Line truncated at (1)
newGLMnet.f90:1020.72:
10672 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1021.72:
if(nin .le. nx)goto 10841
1
Warning: Line truncated at (1)
newGLMnet.f90:1022.72:
jerr=-10000-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1023.72:
goto 10592
1
Warning: Line truncated at (1)
newGLMnet.f90:1024.72:
10841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1025.72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1026.72:
kin(m)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1027.72:
rsqo(m)=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:1028.72:
almo(m)=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:1029.72:
lmu=m
1
Warning: Line truncated at (1)
newGLMnet.f90:1030.72:
if(m.lt.mnl)goto 10591
1
Warning: Line truncated at (1)
newGLMnet.f90:1031.72:
if(flmin.ge.1.0)goto 10591
1
Warning: Line truncated at (1)
newGLMnet.f90:1032.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1033.72:
10850 do 10851 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1034.72:
if(ao(j,m).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1035.72:
10851 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1036.72:
10852 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1037.72:
if(me.gt.ne)goto 10592
1
Warning: Line truncated at (1)
newGLMnet.f90:1038.72:
if(rsq-rsq0.lt.sml*rsq)goto 10592
1
Warning: Line truncated at (1)
newGLMnet.f90:1039.72:
if(rsq.gt.rsqmax)goto 10592
1
Warning: Line truncated at (1)
newGLMnet.f90:1040.72:
10591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1041.72:
10592 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1042.72:
deallocate(a,mm,g,ix)
1
Warning: Line truncated at (1)
newGLMnet.f90:1043.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1044.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1045.72:
subroutine chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:1046.72:
real x(no,ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1047.72:
integer ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1048.72:
10860 do 10861 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1049.72:
ju(j)=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1050.72:
t=x(1,j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1051.72:
10870 do 10871 i=2,no
1
Warning: Line truncated at (1)
newGLMnet.f90:1052.72:
if(x(i,j).eq.t)goto 10871
1
Warning: Line truncated at (1)
newGLMnet.f90:1053.72:
ju(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1054.72:
goto 10872
1
Warning: Line truncated at (1)
newGLMnet.f90:1055.72:
10871 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1056.72:
10872 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1057.72:
10861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1058.72:
10862 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1059.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1060.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1061.72:
subroutine uncomp(ni,ca,ia,nin,a)
1
Warning: Line truncated at (1)
newGLMnet.f90:1062.72:
real ca(*),a(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1063.72:
integer ia(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1064.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1065.72:
if(nin.gt.0) a(ia(1:nin))=ca(1:nin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1066.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1067.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1068.72:
subroutine modval(a0,ca,ia,nin,n,x,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:1069.72:
real ca(nin),x(n,*),f(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:1070.72:
integer ia(nin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1071.72:
f=a0
1
Warning: Line truncated at (1)
newGLMnet.f90:1072.72:
if(nin.le.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1073.72:
10880 do 10881 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:1074.72:
f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1075.72:
10881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1076.72:
10882 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1077.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1078.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1079.72:
subroutine spelnet (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl
1
Warning: Line truncated at (1)
newGLMnet.f90:1081.72:
real x(*),y(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1082.72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1083.72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1085.72:
if(maxval(vp) .gt. 0.0)goto 10901
1
Warning: Line truncated at (1)
newGLMnet.f90:1086.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:1087.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1088.72:
10901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1089.72:
allocate(vq(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1090.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1091.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:1092.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:1093.72:
if(ka .ne. 1)goto 10921
1
Warning: Line truncated at (1)
newGLMnet.f90:1094.72:
call spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:1096.72:
goto 10931
1
Warning: Line truncated at (1)
newGLMnet.f90:1097.72:
10921 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1098.72:
call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam,
1
Warning: Line truncated at (1)
newGLMnet.f90:1100.72:
10931 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1101.72:
10911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1102.72:
deallocate(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:1103.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1104.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1105.72:
subroutine spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi
1
Warning: Line truncated at (1)
newGLMnet.f90:1107.72:
real x(*),y(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1108.72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1109.72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1112.72:
allocate(g(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1113.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1114.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1115.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1116.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1117.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1118.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1119.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1120.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1121.72:
allocate(vlam(1:nlam),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1122.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1123.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1124.72:
call spchkvars(no,ni,x,ix,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:1125.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1126.72:
if(maxval(ju) .gt. 0)goto 10951
1
Warning: Line truncated at (1)
newGLMnet.f90:1127.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:1128.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1129.72:
10951 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1130.72:
call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1131.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1132.72:
if(flmin.ge.1.0) vlam=ulam/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:1133.72:
call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t
1
Warning: Line truncated at (1)
newGLMnet.f90:1135.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1136.72:
10960 do 10961 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:1137.72:
alm(k)=ys*alm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1138.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1139.72:
10970 do 10971 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:1140.72:
ca(l,k)=ys*ca(l,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:1141.72:
10971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1142.72:
10972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1143.72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1144.72:
10961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1145.72:
10962 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1146.72:
deallocate(xm,xs,g,ju,xv,vlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1147.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1148.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1149.72:
subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j
1
Warning: Line truncated at (1)
newGLMnet.f90:1151.72:
real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1152.72:
integer ix(*),jx(*),ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1153.72:
w=w/sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:1154.72:
10980 do 10981 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1155.72:
if(ju(j).eq.0)goto 10981
1
Warning: Line truncated at (1)
newGLMnet.f90:1156.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1157.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1158.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:1159.72:
xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:1160.72:
if(isd.gt.0) xs(j)=sqrt(xv(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1161.72:
10981 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1162.72:
10982 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1163.72:
if(isd .ne. 0)goto 11001
1
Warning: Line truncated at (1)
newGLMnet.f90:1164.72:
xs=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1165.72:
goto 11011
1
Warning: Line truncated at (1)
newGLMnet.f90:1166.72:
11001 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1167.72:
xv=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1168.72:
11011 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1169.72:
10991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1170.72:
ym=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:1171.72:
y=y-ym
1
Warning: Line truncated at (1)
newGLMnet.f90:1172.72:
ys=sqrt(dot_product(w,y**2))
1
Warning: Line truncated at (1)
newGLMnet.f90:1173.72:
y=y/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:1174.72:
g=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1175.72:
11020 do 11021 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1176.72:
if(ju(j).eq.0)goto 11021
1
Warning: Line truncated at (1)
newGLMnet.f90:1177.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1178.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1179.72:
g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1180.72:
11021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1181.72:
11022 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1182.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1183.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1184.72:
subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,
1
Warning: Line truncated at (1)
newGLMnet.f90:1186.72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:1188.72:
real g(ni),vp(ni),x(*),ulam(nlam),w(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:1189.72:
real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1190.72:
integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1195.72:
allocate(a(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1196.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1197.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1198.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1199.72:
allocate(da(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1200.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1201.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1202.72:
bta=beta
1
Warning: Line truncated at (1)
newGLMnet.f90:1203.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1204.72:
if(flmin .ge. 1.0)goto 11041
1
Warning: Line truncated at (1)
newGLMnet.f90:1205.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1206.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:1207.72:
11041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1208.72:
rsq=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1209.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1210.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1211.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1212.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:1213.72:
iz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1214.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1215.72:
11050 do 11051 m=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:1216.72:
if(flmin .lt. 1.0)goto 11071
1
Warning: Line truncated at (1)
newGLMnet.f90:1217.72:
alm=ulam(m)
1
Warning: Line truncated at (1)
newGLMnet.f90:1218.72:
goto 11061
1
Warning: Line truncated at (1)
newGLMnet.f90:1219.72:
11071 if(m .le. 2)goto 11081
1
Warning: Line truncated at (1)
newGLMnet.f90:1220.72:
alm=alm*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:1221.72:
goto 11061
1
Warning: Line truncated at (1)
newGLMnet.f90:1222.72:
11081 if(m .ne. 1)goto 11091
1
Warning: Line truncated at (1)
newGLMnet.f90:1223.72:
alm=big
1
Warning: Line truncated at (1)
newGLMnet.f90:1224.72:
goto 11101
1
Warning: Line truncated at (1)
newGLMnet.f90:1225.72:
11091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1226.72:
alm=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1227.72:
11110 do 11111 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1228.72:
if(ju(j).eq.0)goto 11111
1
Warning: Line truncated at (1)
newGLMnet.f90:1229.72:
if(vp(j).le.0.0)goto 11111
1
Warning: Line truncated at (1)
newGLMnet.f90:1230.72:
alm=max(alm,abs(g(j))/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1231.72:
11111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1232.72:
11112 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1233.72:
alm=alf*alm/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:1234.72:
11101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1235.72:
11061 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1236.72:
dem=alm*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:1237.72:
ab=alm*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1238.72:
rsq0=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:1239.72:
jz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1240.72:
11120 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1241.72:
11121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1242.72:
if(iz*jz.ne.0) go to 10260
1
Warning: Line truncated at (1)
newGLMnet.f90:1243.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1244.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1245.72:
11130 do 11131 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1246.72:
if(ju(k).eq.0)goto 11131
1
Warning: Line truncated at (1)
newGLMnet.f90:1247.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1248.72:
u=g(k)+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1249.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:1250.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1251.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:1252.72:
if(a(k).eq.ak)goto 11131
1
Warning: Line truncated at (1)
newGLMnet.f90:1253.72:
if(mm(k) .ne. 0)goto 11151
1
Warning: Line truncated at (1)
newGLMnet.f90:1254.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1255.72:
if(nin.gt.nx)goto 11132
1
Warning: Line truncated at (1)
newGLMnet.f90:1256.72:
11160 do 11161 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1257.72:
if(ju(j).eq.0)goto 11161
1
Warning: Line truncated at (1)
newGLMnet.f90:1258.72:
if(mm(j) .eq. 0)goto 11181
1
Warning: Line truncated at (1)
newGLMnet.f90:1259.72:
c(j,nin)=c(k,mm(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1260.72:
goto 11161
1
Warning: Line truncated at (1)
newGLMnet.f90:1261.72:
11181 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1262.72:
if(j .ne. k)goto 11201
1
Warning: Line truncated at (1)
newGLMnet.f90:1263.72:
c(j,nin)=xv(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1264.72:
goto 11161
1
Warning: Line truncated at (1)
newGLMnet.f90:1265.72:
11201 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1266.72:
c(j,nin)= (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1267.72:
11161 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1268.72:
11162 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1269.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1270.72:
ia(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:1271.72:
11151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1272.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:1273.72:
rsq=rsq+del*(2.0*g(k)-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1274.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:1275.72:
11210 do 11211 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1276.72:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del
1
Warning: Line truncated at (1)
newGLMnet.f90:1277.72:
11211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1278.72:
11212 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1279.72:
11131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1280.72:
11132 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1281.72:
if(dlx.lt.thr)goto 11122
1
Warning: Line truncated at (1)
newGLMnet.f90:1282.72:
if(nin.gt.nx)goto 11122
1
Warning: Line truncated at (1)
newGLMnet.f90:1283.72:
if(nlp .le. maxit)goto 11231
1
Warning: Line truncated at (1)
newGLMnet.f90:1284.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1285.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1286.72:
11231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1287.72:
10260 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1288.72:
iz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1289.72:
da(1:nin)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1290.72:
11240 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1291.72:
11241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1292.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1293.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1294.72:
11250 do 11251 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1295.72:
k=ia(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:1296.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1297.72:
u=g(k)+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1298.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:1299.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1300.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:1301.72:
if(a(k).eq.ak)goto 11251
1
Warning: Line truncated at (1)
newGLMnet.f90:1302.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:1303.72:
rsq=rsq+del*(2.0*g(k)-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1304.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:1305.72:
11260 do 11261 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1306.72:
g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del
1
Warning: Line truncated at (1)
newGLMnet.f90:1307.72:
11261 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1308.72:
11262 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1309.72:
11251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1310.72:
11252 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1311.72:
if(dlx.lt.thr)goto 11242
1
Warning: Line truncated at (1)
newGLMnet.f90:1312.72:
if(nlp .le. maxit)goto 11281
1
Warning: Line truncated at (1)
newGLMnet.f90:1313.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1314.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1315.72:
11281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1316.72:
goto 11241
1
Warning: Line truncated at (1)
newGLMnet.f90:1317.72:
11242 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1318.72:
da(1:nin)=a(ia(1:nin))-da(1:nin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1319.72:
11290 do 11291 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1320.72:
if(mm(j).ne.0)goto 11291
1
Warning: Line truncated at (1)
newGLMnet.f90:1321.72:
if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1322.72:
11291 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1323.72:
11292 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1324.72:
jz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1325.72:
goto 11121
1
Warning: Line truncated at (1)
newGLMnet.f90:1326.72:
11122 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1327.72:
if(nin .le. nx)goto 11311
1
Warning: Line truncated at (1)
newGLMnet.f90:1328.72:
jerr=-10000-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1329.72:
goto 11052
1
Warning: Line truncated at (1)
newGLMnet.f90:1330.72:
11311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1331.72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1332.72:
kin(m)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1333.72:
rsqo(m)=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:1334.72:
almo(m)=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:1335.72:
lmu=m
1
Warning: Line truncated at (1)
newGLMnet.f90:1336.72:
if(m.lt.mnl)goto 11051
1
Warning: Line truncated at (1)
newGLMnet.f90:1337.72:
if(flmin.ge.1.0)goto 11051
1
Warning: Line truncated at (1)
newGLMnet.f90:1338.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1339.72:
11320 do 11321 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1340.72:
if(ao(j,m).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1341.72:
11321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1342.72:
11322 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1343.72:
if(me.gt.ne)goto 11052
1
Warning: Line truncated at (1)
newGLMnet.f90:1344.72:
if(rsq-rsq0.lt.sml*rsq)goto 11052
1
Warning: Line truncated at (1)
newGLMnet.f90:1345.72:
if(rsq.gt.rsqmax)goto 11052
1
Warning: Line truncated at (1)
newGLMnet.f90:1346.72:
11051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1347.72:
11052 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1348.72:
deallocate(a,mm,c,da)
1
Warning: Line truncated at (1)
newGLMnet.f90:1349.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1350.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1351.72:
subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin,
1
Warning: Line truncated at (1)
newGLMnet.f90:1353.72:
real x(*),vp(ni),y(no),w(no),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1354.72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1355.72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1358.72:
allocate(xm(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1359.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1360.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1361.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1362.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1363.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1364.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1365.72:
allocate(vlam(1:nlam),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1366.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1367.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1368.72:
call spchkvars(no,ni,x,ix,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:1369.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1370.72:
if(maxval(ju) .gt. 0)goto 11341
1
Warning: Line truncated at (1)
newGLMnet.f90:1371.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:1372.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1373.72:
11341 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1374.72:
call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1375.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1376.72:
if(flmin.ge.1.0) vlam=ulam/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:1377.72:
call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t
1
Warning: Line truncated at (1)
newGLMnet.f90:1379.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1380.72:
11350 do 11351 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:1381.72:
alm(k)=ys*alm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1382.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1383.72:
11360 do 11361 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:1384.72:
ca(l,k)=ys*ca(l,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:1385.72:
11361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1386.72:
11362 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1387.72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1388.72:
11351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1389.72:
11352 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1390.72:
deallocate(xm,xs,ju,xv,vlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1391.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1392.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1393.72:
subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je
1
Warning: Line truncated at (1)
newGLMnet.f90:1395.72:
real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1396.72:
integer ix(*),jx(*),ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1397.72:
w=w/sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:1398.72:
11370 do 11371 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1399.72:
if(ju(j).eq.0)goto 11371
1
Warning: Line truncated at (1)
newGLMnet.f90:1400.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1401.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1402.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:1403.72:
xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:1404.72:
if(isd.gt.0) xs(j)=sqrt(xv(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1405.72:
11371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1406.72:
11372 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1407.72:
if(isd .ne. 0)goto 11391
1
Warning: Line truncated at (1)
newGLMnet.f90:1408.72:
xs=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1409.72:
goto 11401
1
Warning: Line truncated at (1)
newGLMnet.f90:1410.72:
11391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1411.72:
xv=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1412.72:
11401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1413.72:
11381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1414.72:
ym=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:1415.72:
y=y-ym
1
Warning: Line truncated at (1)
newGLMnet.f90:1416.72:
ys=sqrt(dot_product(w,y**2))
1
Warning: Line truncated at (1)
newGLMnet.f90:1417.72:
y=y/ys
1
Warning: Line truncated at (1)
newGLMnet.f90:1418.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1419.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1420.72:
subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,
1
Warning: Line truncated at (1)
newGLMnet.f90:1422.72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:1424.72:
real y(no),w(no),x(*),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1425.72:
real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1426.72:
integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1429.72:
allocate(a(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1430.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1431.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1432.72:
allocate(g(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1433.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1434.72:
allocate(iy(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1435.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1436.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1437.72:
bta=beta
1
Warning: Line truncated at (1)
newGLMnet.f90:1438.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1439.72:
alm=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1440.72:
iy=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1441.72:
if(flmin .ge. 1.0)goto 11421
1
Warning: Line truncated at (1)
newGLMnet.f90:1442.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1443.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:1444.72:
11421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1445.72:
rsq=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1446.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1447.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1448.72:
o=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1449.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1450.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:1451.72:
iz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1452.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1453.72:
11430 do 11431 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1454.72:
if(ju(j).eq.0)goto 11431
1
Warning: Line truncated at (1)
newGLMnet.f90:1455.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1456.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1457.72:
g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1458.72:
11431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1459.72:
11432 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1460.72:
11440 do 11441 m=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:1461.72:
alm0=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:1462.72:
if(flmin .lt. 1.0)goto 11461
1
Warning: Line truncated at (1)
newGLMnet.f90:1463.72:
alm=ulam(m)
1
Warning: Line truncated at (1)
newGLMnet.f90:1464.72:
goto 11451
1
Warning: Line truncated at (1)
newGLMnet.f90:1465.72:
11461 if(m .le. 2)goto 11471
1
Warning: Line truncated at (1)
newGLMnet.f90:1466.72:
alm=alm*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:1467.72:
goto 11451
1
Warning: Line truncated at (1)
newGLMnet.f90:1468.72:
11471 if(m .ne. 1)goto 11481
1
Warning: Line truncated at (1)
newGLMnet.f90:1469.72:
alm=big
1
Warning: Line truncated at (1)
newGLMnet.f90:1470.72:
goto 11491
1
Warning: Line truncated at (1)
newGLMnet.f90:1471.72:
11481 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1472.72:
alm0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1473.72:
11500 do 11501 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1474.72:
if(ju(j).eq.0)goto 11501
1
Warning: Line truncated at (1)
newGLMnet.f90:1475.72:
if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1476.72:
11501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1477.72:
11502 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1478.72:
alm0=alm0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:1479.72:
alm=alf*alm0
1
Warning: Line truncated at (1)
newGLMnet.f90:1480.72:
11491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1481.72:
11451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1482.72:
dem=alm*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:1483.72:
ab=alm*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1484.72:
rsq0=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:1485.72:
jz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1486.72:
tlam=bta*(2.0*alm-alm0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1487.72:
11510 do 11511 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1488.72:
if(iy(k).eq.1)goto 11511
1
Warning: Line truncated at (1)
newGLMnet.f90:1489.72:
if(ju(k).eq.0)goto 11511
1
Warning: Line truncated at (1)
newGLMnet.f90:1490.72:
if(g(k).gt.tlam*vp(k)) iy(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1491.72:
11511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1492.72:
11512 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1493.72:
11520 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1494.72:
11521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1495.72:
if(iz*jz.ne.0) go to 10260
1
Warning: Line truncated at (1)
newGLMnet.f90:1496.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1497.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1498.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1499.72:
11530 do 11531 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1500.72:
if(iy(k).eq.0)goto 11531
1
Warning: Line truncated at (1)
newGLMnet.f90:1501.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1502.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1503.72:
gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1504.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1505.72:
u=gk+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1506.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:1507.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1508.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:1509.72:
if(a(k).eq.ak)goto 11531
1
Warning: Line truncated at (1)
newGLMnet.f90:1510.72:
if(mm(k) .ne. 0)goto 11551
1
Warning: Line truncated at (1)
newGLMnet.f90:1511.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1512.72:
if(nin.gt.nx)goto 11532
1
Warning: Line truncated at (1)
newGLMnet.f90:1513.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1514.72:
ia(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:1515.72:
11551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1516.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:1517.72:
rsq=rsq+del*(2.0*gk-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1518.72:
y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1519.72:
o=o+del*xm(k)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1520.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:1521.72:
11531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1522.72:
11532 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1523.72:
if(nin.gt.nx)goto 11522
1
Warning: Line truncated at (1)
newGLMnet.f90:1524.72:
if(dlx .ge. thr)goto 11571
1
Warning: Line truncated at (1)
newGLMnet.f90:1525.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1526.72:
11580 do 11581 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1527.72:
if(iy(j).eq.1)goto 11581
1
Warning: Line truncated at (1)
newGLMnet.f90:1528.72:
if(ju(j).eq.0)goto 11581
1
Warning: Line truncated at (1)
newGLMnet.f90:1529.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1530.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1531.72:
g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1532.72:
if(g(j) .le. ab*vp(j))goto 11601
1
Warning: Line truncated at (1)
newGLMnet.f90:1533.72:
iy(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1534.72:
ixx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1535.72:
11601 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1536.72:
11581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1537.72:
11582 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1538.72:
if(ixx.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:1539.72:
goto 11522
1
Warning: Line truncated at (1)
newGLMnet.f90:1540.72:
11571 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1541.72:
if(nlp .le. maxit)goto 11621
1
Warning: Line truncated at (1)
newGLMnet.f90:1542.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1543.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1544.72:
11621 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1545.72:
10260 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1546.72:
iz=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1547.72:
11630 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1548.72:
11631 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1549.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1550.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1551.72:
11640 do 11641 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1552.72:
k=ia(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:1553.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1554.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1555.72:
gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1556.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1557.72:
u=gk+ak*xv(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1558.72:
v=abs(u)-vp(k)*ab
1
Warning: Line truncated at (1)
newGLMnet.f90:1559.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1560.72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)
1
Warning: Line truncated at (1)
newGLMnet.f90:1561.72:
if(a(k).eq.ak)goto 11641
1
Warning: Line truncated at (1)
newGLMnet.f90:1562.72:
del=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:1563.72:
rsq=rsq+del*(2.0*gk-del*xv(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1564.72:
y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1565.72:
o=o+del*xm(k)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1566.72:
dlx=max(xv(k)*del**2,dlx)
1
Warning: Line truncated at (1)
newGLMnet.f90:1567.72:
11641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1568.72:
11642 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1569.72:
if(dlx.lt.thr)goto 11632
1
Warning: Line truncated at (1)
newGLMnet.f90:1570.72:
if(nlp .le. maxit)goto 11661
1
Warning: Line truncated at (1)
newGLMnet.f90:1571.72:
jerr=-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1572.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1573.72:
11661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1574.72:
goto 11631
1
Warning: Line truncated at (1)
newGLMnet.f90:1575.72:
11632 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1576.72:
jz=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1577.72:
goto 11521
1
Warning: Line truncated at (1)
newGLMnet.f90:1578.72:
11522 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1579.72:
if(nin .le. nx)goto 11681
1
Warning: Line truncated at (1)
newGLMnet.f90:1580.72:
jerr=-10000-m
1
Warning: Line truncated at (1)
newGLMnet.f90:1581.72:
goto 11442
1
Warning: Line truncated at (1)
newGLMnet.f90:1582.72:
11681 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1583.72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1584.72:
kin(m)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1585.72:
rsqo(m)=rsq
1
Warning: Line truncated at (1)
newGLMnet.f90:1586.72:
almo(m)=alm
1
Warning: Line truncated at (1)
newGLMnet.f90:1587.72:
lmu=m
1
Warning: Line truncated at (1)
newGLMnet.f90:1588.72:
if(m.lt.mnl)goto 11441
1
Warning: Line truncated at (1)
newGLMnet.f90:1589.72:
if(flmin.ge.1.0)goto 11441
1
Warning: Line truncated at (1)
newGLMnet.f90:1590.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1591.72:
11690 do 11691 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1592.72:
if(ao(j,m).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1593.72:
11691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1594.72:
11692 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1595.72:
if(me.gt.ne)goto 11442
1
Warning: Line truncated at (1)
newGLMnet.f90:1596.72:
if(rsq-rsq0.lt.sml*rsq)goto 11442
1
Warning: Line truncated at (1)
newGLMnet.f90:1597.72:
if(rsq.gt.rsqmax)goto 11442
1
Warning: Line truncated at (1)
newGLMnet.f90:1598.72:
11441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1599.72:
11442 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1600.72:
deallocate(a,mm,g,iy)
1
Warning: Line truncated at (1)
newGLMnet.f90:1601.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1602.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1603.72:
subroutine spchkvars(no,ni,x,ix,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:1604.72:
real x(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1605.72:
integer ix(*),ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1606.72:
11700 do 11701 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1607.72:
ju(j)=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1608.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1609.72:
nj=ix(j+1)-jb
1
Warning: Line truncated at (1)
newGLMnet.f90:1610.72:
if(nj.eq.0)goto 11701
1
Warning: Line truncated at (1)
newGLMnet.f90:1611.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1612.72:
if(nj .ge. no)goto 11721
1
Warning: Line truncated at (1)
newGLMnet.f90:1613.72:
11730 do 11731 i=jb,je
1
Warning: Line truncated at (1)
newGLMnet.f90:1614.72:
if(x(i).eq.0.0)goto 11731
1
Warning: Line truncated at (1)
newGLMnet.f90:1615.72:
ju(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1616.72:
goto 11732
1
Warning: Line truncated at (1)
newGLMnet.f90:1617.72:
11731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1618.72:
11732 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1619.72:
goto 11741
1
Warning: Line truncated at (1)
newGLMnet.f90:1620.72:
11721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1621.72:
t=x(jb)
1
Warning: Line truncated at (1)
newGLMnet.f90:1622.72:
11750 do 11751 i=jb+1,je
1
Warning: Line truncated at (1)
newGLMnet.f90:1623.72:
if(x(i).eq.t)goto 11751
1
Warning: Line truncated at (1)
newGLMnet.f90:1624.72:
ju(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1625.72:
goto 11752
1
Warning: Line truncated at (1)
newGLMnet.f90:1626.72:
11751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1627.72:
11752 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1628.72:
11741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1629.72:
11711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1630.72:
11701 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1631.72:
11702 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1632.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1633.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1634.72:
subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:1635.72:
real ca(*),x(*),f(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:1636.72:
integer ia(*),ix(*),jx(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1637.72:
f=a0
1
Warning: Line truncated at (1)
newGLMnet.f90:1638.72:
11760 do 11761 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1639.72:
k=ia(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1640.72:
kb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1641.72:
ke=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:1642.72:
f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke)
1
Warning: Line truncated at (1)
newGLMnet.f90:1643.72:
11761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1644.72:
11762 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1645.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1646.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1647.72:
function row_prod(i,j,ia,ja,ra,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:1648.72:
integer ia(*),ja(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1649.72:
real ra(*),w(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1650.72:
row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)), ia(i+1)-ia(
1
Warning: Line truncated at (1)
newGLMnet.f90:1652.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1653.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1654.72:
function dot(x,y,mx,my,nx,ny,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:1655.72:
real x(*),y(*),w(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1656.72:
integer mx(*),my(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:1657.72:
i=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1658.72:
j=i
1
Warning: Line truncated at (1)
newGLMnet.f90:1659.72:
s=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1660.72:
11770 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1661.72:
11771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1662.72:
11780 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1663.72:
11781 if(mx(i).ge.my(j))goto 11782
1
Warning: Line truncated at (1)
newGLMnet.f90:1664.72:
i=i+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1665.72:
if(i.gt.nx) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:1666.72:
goto 11781
1
Warning: Line truncated at (1)
newGLMnet.f90:1667.72:
11782 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1668.72:
if(mx(i).eq.my(j)) go to 11800
1
Warning: Line truncated at (1)
newGLMnet.f90:1669.72:
11810 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1670.72:
11811 if(my(j).ge.mx(i))goto 11812
1
Warning: Line truncated at (1)
newGLMnet.f90:1671.72:
j=j+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1672.72:
if(j.gt.ny) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:1673.72:
goto 11811
1
Warning: Line truncated at (1)
newGLMnet.f90:1674.72:
11812 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1675.72:
if(mx(i).eq.my(j)) go to 11800
1
Warning: Line truncated at (1)
newGLMnet.f90:1676.72:
goto 11771
1
Warning: Line truncated at (1)
newGLMnet.f90:1677.72:
11800 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1678.72:
s=s+w(mx(i))*x(i)*y(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1679.72:
i=i+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1680.72:
if(i.gt.nx)goto 11772
1
Warning: Line truncated at (1)
newGLMnet.f90:1681.72:
j=j+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1682.72:
if(j.gt.ny)goto 11772
1
Warning: Line truncated at (1)
newGLMnet.f90:1683.72:
goto 11771
1
Warning: Line truncated at (1)
newGLMnet.f90:1684.72:
11772 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1685.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1686.72:
dot=s
1
Warning: Line truncated at (1)
newGLMnet.f90:1687.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1688.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1689.72:
subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:1691.72:
real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1692.72:
real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1693.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1696.72:
if(maxval(vp) .gt. 0.0)goto 11831
1
Warning: Line truncated at (1)
newGLMnet.f90:1697.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:1698.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1699.72:
11831 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1700.72:
allocate(ww(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1701.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1702.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1703.72:
allocate(vq(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1704.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1705.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1706.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1707.72:
if(isd .le. 0)goto 11851
1
Warning: Line truncated at (1)
newGLMnet.f90:1708.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1709.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1710.72:
11851 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1711.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1712.72:
call chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:1713.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1714.72:
if(maxval(ju) .gt. 0)goto 11871
1
Warning: Line truncated at (1)
newGLMnet.f90:1715.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:1716.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1717.72:
11871 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1718.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:1719.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:1720.72:
11880 do 11881 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:1721.72:
ww(i)=sum(y(i,:))
1
Warning: Line truncated at (1)
newGLMnet.f90:1722.72:
y(i,:)=y(i,:)/ww(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:1723.72:
11881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1724.72:
11882 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1725.72:
sw=sum(ww)
1
Warning: Line truncated at (1)
newGLMnet.f90:1726.72:
ww=ww/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:1727.72:
call lstandard1(no,ni,x,ww,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:1728.72:
if(nc .ne. 1)goto 11901
1
Warning: Line truncated at (1)
newGLMnet.f90:1729.72:
call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin
1
Warning: Line truncated at (1)
newGLMnet.f90:1731.72:
goto 11911
1
Warning: Line truncated at (1)
newGLMnet.f90:1732.72:
11901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1733.72:
call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th
1
Warning: Line truncated at (1)
newGLMnet.f90:1735.72:
11911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1736.72:
11891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1737.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1738.72:
dev0=2.0*sw*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:1739.72:
11920 do 11921 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:1740.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1741.72:
11930 do 11931 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:1742.72:
if(isd .le. 0)goto 11951
1
Warning: Line truncated at (1)
newGLMnet.f90:1743.72:
11960 do 11961 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:1744.72:
ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:1745.72:
11961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1746.72:
11962 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1747.72:
11951 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1748.72:
a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1749.72:
11931 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1750.72:
11932 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1751.72:
11921 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1752.72:
11922 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1753.72:
deallocate(ww,ju,vq,xm)
1
Warning: Line truncated at (1)
newGLMnet.f90:1754.72:
if(isd.gt.0) deallocate(xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:1755.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1756.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1757.72:
subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:1758.72:
real x(no,ni),w(no),xm(ni),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1759.72:
integer ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:1760.72:
11970 do 11971 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1761.72:
if(ju(j).eq.0)goto 11971
1
Warning: Line truncated at (1)
newGLMnet.f90:1762.72:
xm(j)=dot_product(w,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1763.72:
x(:,j)=x(:,j)-xm(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1764.72:
if(isd .le. 0)goto 11991
1
Warning: Line truncated at (1)
newGLMnet.f90:1765.72:
xs(j)=sqrt(dot_product(w,x(:,j)**2))
1
Warning: Line truncated at (1)
newGLMnet.f90:1766.72:
x(:,j)=x(:,j)/xs(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:1767.72:
11991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1768.72:
11971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1769.72:
11972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1770.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1771.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:1772.72:
subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:1774.72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam=
1
Warning: Line truncated at (1)
newGLMnet.f90:1776.72:
real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1777.72:
real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1778.72:
integer ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1781.72:
allocate(b(0:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1782.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1783.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1784.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1785.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1786.72:
allocate(bs(0:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1787.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1788.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1789.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1790.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1791.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1792.72:
allocate(r(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1793.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1794.72:
allocate(v(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1795.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1796.72:
allocate(q(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1797.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:1798.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1799.72:
fmax=log(1.0/pmin-1.0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1800.72:
fmin=-fmax
1
Warning: Line truncated at (1)
newGLMnet.f90:1801.72:
vmin=(1.0+pmin)*pmin*(1.0-pmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1802.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:1803.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1804.72:
q0=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:1805.72:
if(q0 .gt. pmin)goto 12011
1
Warning: Line truncated at (1)
newGLMnet.f90:1806.72:
jerr=8001
1
Warning: Line truncated at (1)
newGLMnet.f90:1807.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1808.72:
12011 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1809.72:
if(q0 .lt. 1.0-pmin)goto 12031
1
Warning: Line truncated at (1)
newGLMnet.f90:1810.72:
jerr=9001
1
Warning: Line truncated at (1)
newGLMnet.f90:1811.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1812.72:
12031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1813.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1814.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1815.72:
bz=log(q0/(1.0-q0))
1
Warning: Line truncated at (1)
newGLMnet.f90:1816.72:
if(nonzero(no,g) .ne. 0)goto 12051
1
Warning: Line truncated at (1)
newGLMnet.f90:1817.72:
vi=q0*(1.0-q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1818.72:
b(0)=bz
1
Warning: Line truncated at (1)
newGLMnet.f90:1819.72:
v=vi*w
1
Warning: Line truncated at (1)
newGLMnet.f90:1820.72:
r=w*(y-q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1821.72:
q=q0
1
Warning: Line truncated at (1)
newGLMnet.f90:1822.72:
xmz=vi
1
Warning: Line truncated at (1)
newGLMnet.f90:1823.72:
dev1=-(bz*q0+log(1.0-q0))
1
Warning: Line truncated at (1)
newGLMnet.f90:1824.72:
goto 12061
1
Warning: Line truncated at (1)
newGLMnet.f90:1825.72:
12051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1826.72:
b(0)=azero(no,y,g,w,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:1827.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:1828.72:
q=1.0/(1.0+exp(-b(0)-g))
1
Warning: Line truncated at (1)
newGLMnet.f90:1829.72:
v=w*q*(1.0-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:1830.72:
r=w*(y-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:1831.72:
xmz=sum(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:1832.72:
dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1833.72:
12061 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1834.72:
12041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1835.72:
if(kopt .le. 0)goto 12081
1
Warning: Line truncated at (1)
newGLMnet.f90:1836.72:
if(isd .le. 0)goto 12101
1
Warning: Line truncated at (1)
newGLMnet.f90:1837.72:
xv=0.25
1
Warning: Line truncated at (1)
newGLMnet.f90:1838.72:
goto 12111
1
Warning: Line truncated at (1)
newGLMnet.f90:1839.72:
12101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1840.72:
12120 do 12121 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1841.72:
if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1842.72:
12121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1843.72:
12122 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1844.72:
12111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1845.72:
12091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1846.72:
12081 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1847.72:
dev0=dev1
1
Warning: Line truncated at (1)
newGLMnet.f90:1848.72:
12130 do 12131 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:1849.72:
if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:1850.72:
if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:1851.72:
12131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1852.72:
12132 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1853.72:
if(flmin .ge. 1.0)goto 12151
1
Warning: Line truncated at (1)
newGLMnet.f90:1854.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:1855.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:1856.72:
12151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1857.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1858.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1859.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:1860.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:1861.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:1862.72:
bs=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1863.72:
b(1:ni)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1864.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:1865.72:
12160 do 12161 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1866.72:
if(ju(j).eq.0)goto 12161
1
Warning: Line truncated at (1)
newGLMnet.f90:1867.72:
ga(j)=abs(dot_product(r,x(:,j)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1868.72:
12161 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1869.72:
12162 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1870.72:
12170 do 12171 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:1871.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:1872.72:
if(flmin .lt. 1.0)goto 12191
1
Warning: Line truncated at (1)
newGLMnet.f90:1873.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:1874.72:
goto 12181
1
Warning: Line truncated at (1)
newGLMnet.f90:1875.72:
12191 if(ilm .le. 2)goto 12201
1
Warning: Line truncated at (1)
newGLMnet.f90:1876.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:1877.72:
goto 12181
1
Warning: Line truncated at (1)
newGLMnet.f90:1878.72:
12201 if(ilm .ne. 1)goto 12211
1
Warning: Line truncated at (1)
newGLMnet.f90:1879.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:1880.72:
goto 12221
1
Warning: Line truncated at (1)
newGLMnet.f90:1881.72:
12211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1882.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1883.72:
12230 do 12231 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1884.72:
if(ju(j).eq.0)goto 12231
1
Warning: Line truncated at (1)
newGLMnet.f90:1885.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:1886.72:
12231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1887.72:
12232 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1888.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:1889.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:1890.72:
12221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1891.72:
12181 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1892.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:1893.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:1894.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1895.72:
12240 do 12241 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1896.72:
if(ixx(k).eq.1)goto 12241
1
Warning: Line truncated at (1)
newGLMnet.f90:1897.72:
if(ju(k).eq.0)goto 12241
1
Warning: Line truncated at (1)
newGLMnet.f90:1898.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:1899.72:
12241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1900.72:
12242 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1901.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1902.72:
12250 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1903.72:
12251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1904.72:
bs(0)=b(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:1905.72:
if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:1906.72:
if(kopt .ne. 0)goto 12271
1
Warning: Line truncated at (1)
newGLMnet.f90:1907.72:
12280 do 12281 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1908.72:
if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1909.72:
12281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1910.72:
12282 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1911.72:
12271 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1912.72:
12290 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1913.72:
12291 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1914.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1915.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1916.72:
12300 do 12301 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:1917.72:
if(ixx(k).eq.0)goto 12301
1
Warning: Line truncated at (1)
newGLMnet.f90:1918.72:
bk=b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1919.72:
gk=dot_product(r,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1920.72:
u=gk+xv(k)*b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1921.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:1922.72:
if(au .gt. 0.0)goto 12321
1
Warning: Line truncated at (1)
newGLMnet.f90:1923.72:
b(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1924.72:
goto 12331
1
Warning: Line truncated at (1)
newGLMnet.f90:1925.72:
12321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1926.72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1927.72:
12331 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1928.72:
12311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1929.72:
d=b(k)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:1930.72:
if(abs(d).le.0.0)goto 12301
1
Warning: Line truncated at (1)
newGLMnet.f90:1931.72:
dlx=max(dlx,xv(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1932.72:
r=r-d*v*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1933.72:
if(mm(k) .ne. 0)goto 12351
1
Warning: Line truncated at (1)
newGLMnet.f90:1934.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1935.72:
if(nin.gt.nx)goto 12302
1
Warning: Line truncated at (1)
newGLMnet.f90:1936.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1937.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:1938.72:
12351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1939.72:
12301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1940.72:
12302 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1941.72:
if(nin.gt.nx)goto 12292
1
Warning: Line truncated at (1)
newGLMnet.f90:1942.72:
d=sum(r)/xmz
1
Warning: Line truncated at (1)
newGLMnet.f90:1943.72:
if(d .eq. 0.0)goto 12371
1
Warning: Line truncated at (1)
newGLMnet.f90:1944.72:
b(0)=b(0)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:1945.72:
dlx=max(dlx,xmz*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1946.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:1947.72:
12371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1948.72:
if(dlx.lt.shr)goto 12292
1
Warning: Line truncated at (1)
newGLMnet.f90:1949.72:
if(nlp .le. maxit)goto 12391
1
Warning: Line truncated at (1)
newGLMnet.f90:1950.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:1951.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1952.72:
12391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1953.72:
12400 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1954.72:
12401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1955.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:1956.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1957.72:
12410 do 12411 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:1958.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:1959.72:
bk=b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1960.72:
gk=dot_product(r,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:1961.72:
u=gk+xv(k)*b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1962.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:1963.72:
if(au .gt. 0.0)goto 12431
1
Warning: Line truncated at (1)
newGLMnet.f90:1964.72:
b(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1965.72:
goto 12441
1
Warning: Line truncated at (1)
newGLMnet.f90:1966.72:
12431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1967.72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1968.72:
12441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1969.72:
12421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1970.72:
d=b(k)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:1971.72:
if(abs(d).le.0.0)goto 12411
1
Warning: Line truncated at (1)
newGLMnet.f90:1972.72:
dlx=max(dlx,xv(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1973.72:
r=r-d*v*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:1974.72:
12411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1975.72:
12412 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1976.72:
d=sum(r)/xmz
1
Warning: Line truncated at (1)
newGLMnet.f90:1977.72:
if(d .eq. 0.0)goto 12461
1
Warning: Line truncated at (1)
newGLMnet.f90:1978.72:
b(0)=b(0)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:1979.72:
dlx=max(dlx,xmz*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:1980.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:1981.72:
12461 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1982.72:
if(dlx.lt.shr)goto 12402
1
Warning: Line truncated at (1)
newGLMnet.f90:1983.72:
if(nlp .le. maxit)goto 12481
1
Warning: Line truncated at (1)
newGLMnet.f90:1984.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:1985.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:1986.72:
12481 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1987.72:
goto 12401
1
Warning: Line truncated at (1)
newGLMnet.f90:1988.72:
12402 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1989.72:
goto 12291
1
Warning: Line truncated at (1)
newGLMnet.f90:1990.72:
12292 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:1991.72:
if(nin.gt.nx)goto 12252
1
Warning: Line truncated at (1)
newGLMnet.f90:1992.72:
12490 do 12491 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:1993.72:
fi=b(0)+g(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:1994.72:
if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin)))
1
Warning: Line truncated at (1)
newGLMnet.f90:1995.72:
if(fi .ge. fmin)goto 12511
1
Warning: Line truncated at (1)
newGLMnet.f90:1996.72:
q(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:1997.72:
goto 12501
1
Warning: Line truncated at (1)
newGLMnet.f90:1998.72:
12511 if(fi .le. fmax)goto 12521
1
Warning: Line truncated at (1)
newGLMnet.f90:1999.72:
q(i)=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2000.72:
goto 12531
1
Warning: Line truncated at (1)
newGLMnet.f90:2001.72:
12521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2002.72:
q(i)=1.0/(1.0+exp(-fi))
1
Warning: Line truncated at (1)
newGLMnet.f90:2003.72:
12531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2004.72:
12501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2005.72:
12491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2006.72:
12492 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2007.72:
v=w*q*(1.0-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:2008.72:
xmz=sum(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:2009.72:
if(xmz.le.vmin)goto 12252
1
Warning: Line truncated at (1)
newGLMnet.f90:2010.72:
r=w*(y-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:2011.72:
if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551
1
Warning: Line truncated at (1)
newGLMnet.f90:2012.72:
ix=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2013.72:
12560 do 12561 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2014.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2015.72:
if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561
1
Warning: Line truncated at (1)
newGLMnet.f90:2016.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2017.72:
goto 12562
1
Warning: Line truncated at (1)
newGLMnet.f90:2018.72:
12561 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2019.72:
12562 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2020.72:
if(ix .ne. 0)goto 12581
1
Warning: Line truncated at (1)
newGLMnet.f90:2021.72:
12590 do 12591 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2022.72:
if(ixx(k).eq.1)goto 12591
1
Warning: Line truncated at (1)
newGLMnet.f90:2023.72:
if(ju(k).eq.0)goto 12591
1
Warning: Line truncated at (1)
newGLMnet.f90:2024.72:
ga(k)=abs(dot_product(r,x(:,k)))
1
Warning: Line truncated at (1)
newGLMnet.f90:2025.72:
if(ga(k) .le. al1*vp(k))goto 12611
1
Warning: Line truncated at (1)
newGLMnet.f90:2026.72:
ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2027.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2028.72:
12611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2029.72:
12591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2030.72:
12592 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2031.72:
if(ix.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:2032.72:
goto 12252
1
Warning: Line truncated at (1)
newGLMnet.f90:2033.72:
12581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2034.72:
12551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2035.72:
goto 12251
1
Warning: Line truncated at (1)
newGLMnet.f90:2036.72:
12252 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2037.72:
if(nin .le. nx)goto 12631
1
Warning: Line truncated at (1)
newGLMnet.f90:2038.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2039.72:
goto 12172
1
Warning: Line truncated at (1)
newGLMnet.f90:2040.72:
12631 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2041.72:
if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:2042.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2043.72:
a0(ilm)=b(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2044.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:2045.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2046.72:
devi=dev2(no,w,y,q,pmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:2047.72:
dev(ilm)=(dev1-devi)/dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:2048.72:
if(xmz.le.vmin)goto 12172
1
Warning: Line truncated at (1)
newGLMnet.f90:2049.72:
if(ilm.lt.mnl)goto 12171
1
Warning: Line truncated at (1)
newGLMnet.f90:2050.72:
if(flmin.ge.1.0)goto 12171
1
Warning: Line truncated at (1)
newGLMnet.f90:2051.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2052.72:
12640 do 12641 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2053.72:
if(a(j,ilm).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2054.72:
12641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2055.72:
12642 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2056.72:
if(me.gt.ne)goto 12172
1
Warning: Line truncated at (1)
newGLMnet.f90:2057.72:
if(dev(ilm).gt.devmax)goto 12172
1
Warning: Line truncated at (1)
newGLMnet.f90:2058.72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172
1
Warning: Line truncated at (1)
newGLMnet.f90:2059.72:
12171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2060.72:
12172 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2061.72:
g=log(q/(1.0-q))
1
Warning: Line truncated at (1)
newGLMnet.f90:2062.72:
deallocate(b,bs,v,r,xv,q,mm,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:2063.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2064.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2065.72:
function dev2(n,w,y,p,pmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:2066.72:
real w(n),y(n),p(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:2067.72:
pmax=1.0-pmin
1
Warning: Line truncated at (1)
newGLMnet.f90:2068.72:
s=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2069.72:
12650 do 12651 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2070.72:
pi=min(max(pmin,p(i)),pmax)
1
Warning: Line truncated at (1)
newGLMnet.f90:2071.72:
s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi))
1
Warning: Line truncated at (1)
newGLMnet.f90:2072.72:
12651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2073.72:
12652 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2074.72:
dev2=s
1
Warning: Line truncated at (1)
newGLMnet.f90:2075.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2076.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2077.72:
function azero(n,y,g,q,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2078.72:
parameter(eps=1.0e-7)
1
Warning: Line truncated at (1)
newGLMnet.f90:2079.72:
real y(n),g(n),q(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:2081.72:
allocate(e(1:n),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2082.72:
allocate(p(1:n),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2083.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2084.72:
allocate(w(1:n),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2085.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2086.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2087.72:
az=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2088.72:
e=exp(-g)
1
Warning: Line truncated at (1)
newGLMnet.f90:2089.72:
qy=dot_product(q,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:2090.72:
p=1.0/(1.0+e)
1
Warning: Line truncated at (1)
newGLMnet.f90:2091.72:
12660 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2092.72:
12661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2093.72:
w=q*p*(1.0-p)
1
Warning: Line truncated at (1)
newGLMnet.f90:2094.72:
d=(qy-dot_product(q,p))/sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:2095.72:
az=az+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2096.72:
if(abs(d).lt.eps)goto 12662
1
Warning: Line truncated at (1)
newGLMnet.f90:2097.72:
ea0=exp(-az)
1
Warning: Line truncated at (1)
newGLMnet.f90:2098.72:
p=1.0/(1.0+ea0*e)
1
Warning: Line truncated at (1)
newGLMnet.f90:2099.72:
goto 12661
1
Warning: Line truncated at (1)
newGLMnet.f90:2100.72:
12662 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2101.72:
azero=az
1
Warning: Line truncated at (1)
newGLMnet.f90:2102.72:
deallocate(e,p,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:2103.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2104.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2105.72:
subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul
1
Warning: Line truncated at (1)
newGLMnet.f90:2107.72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam=
1
Warning: Line truncated at (1)
newGLMnet.f90:2109.72:
real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2110.72:
real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2111.72:
integer ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2121.72:
allocate(r(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2122.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2123.72:
allocate(v(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2124.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2125.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2126.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2127.72:
allocate(is(1:max(nc,ni)),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2128.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2129.72:
allocate(sxp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2130.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2131.72:
allocate(sxpl(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2132.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2133.72:
allocate(di(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2134.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2135.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2136.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2137.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2138.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2139.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2140.72:
pmax=1.0-pmin
1
Warning: Line truncated at (1)
newGLMnet.f90:2141.72:
emin=pmin/pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:2142.72:
emax=1.0/emin
1
Warning: Line truncated at (1)
newGLMnet.f90:2143.72:
pfm=(1.0+pmin)*pmin
1
Warning: Line truncated at (1)
newGLMnet.f90:2144.72:
pfx=(1.0-pmin)*pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:2145.72:
vmin=pfm*pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:2146.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:2147.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:2148.72:
dev1=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2149.72:
dev0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2150.72:
12670 do 12671 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2151.72:
q0=dot_product(w,y(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:2152.72:
if(q0 .gt. pmin)goto 12691
1
Warning: Line truncated at (1)
newGLMnet.f90:2153.72:
jerr =8000+ic
1
Warning: Line truncated at (1)
newGLMnet.f90:2154.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2155.72:
12691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2156.72:
if(q0 .lt. 1.0-pmin)goto 12711
1
Warning: Line truncated at (1)
newGLMnet.f90:2157.72:
jerr =9000+ic
1
Warning: Line truncated at (1)
newGLMnet.f90:2158.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2159.72:
12711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2160.72:
b(0,ic)=log(q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2161.72:
dev1=dev1-q0*b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2162.72:
b(1:ni,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2163.72:
12671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2164.72:
12672 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2165.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2166.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2167.72:
if(nonzero(no*nc,g) .ne. 0)goto 12731
1
Warning: Line truncated at (1)
newGLMnet.f90:2168.72:
b(0,:)=b(0,:)-sum(b(0,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2169.72:
sxp=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2170.72:
12740 do 12741 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2171.72:
q(:,ic)=exp(b(0,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:2172.72:
sxp=sxp+q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2173.72:
12741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2174.72:
12742 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2175.72:
goto 12751
1
Warning: Line truncated at (1)
newGLMnet.f90:2176.72:
12731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2177.72:
12760 do 12761 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2178.72:
g(i,:)=g(i,:)-sum(g(i,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2179.72:
12761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2180.72:
12762 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2181.72:
sxp=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2182.72:
call kazero(nc,no,y,g,w,b(0,:),jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2183.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2184.72:
dev1=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2185.72:
12770 do 12771 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2186.72:
q(:,ic)=b(0,ic)+g(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2187.72:
dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:2188.72:
q(:,ic)=exp(q(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:2189.72:
sxp=sxp+q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2190.72:
12771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2191.72:
12772 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2192.72:
sxpl=w*log(sxp)
1
Warning: Line truncated at (1)
newGLMnet.f90:2193.72:
12780 do 12781 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2194.72:
dev1=dev1+dot_product(y(:,ic),sxpl)
1
Warning: Line truncated at (1)
newGLMnet.f90:2195.72:
12781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2196.72:
12782 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2197.72:
12751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2198.72:
12721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2199.72:
12790 do 12791 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2200.72:
12800 do 12801 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2201.72:
if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:2202.72:
12801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2203.72:
12802 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2204.72:
12791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2205.72:
12792 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2206.72:
dev0=dev0+dev1
1
Warning: Line truncated at (1)
newGLMnet.f90:2207.72:
if(kopt .le. 0)goto 12821
1
Warning: Line truncated at (1)
newGLMnet.f90:2208.72:
if(isd .le. 0)goto 12841
1
Warning: Line truncated at (1)
newGLMnet.f90:2209.72:
xv=0.25
1
Warning: Line truncated at (1)
newGLMnet.f90:2210.72:
goto 12851
1
Warning: Line truncated at (1)
newGLMnet.f90:2211.72:
12841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2212.72:
12860 do 12861 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2213.72:
if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2214.72:
12861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2215.72:
12862 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2216.72:
12851 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2217.72:
12831 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2218.72:
12821 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2219.72:
if(flmin .ge. 1.0)goto 12881
1
Warning: Line truncated at (1)
newGLMnet.f90:2220.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:2221.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:2222.72:
12881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2223.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2224.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2225.72:
nin=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2226.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2227.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2228.72:
bs=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2229.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:2230.72:
ga=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2231.72:
12890 do 12891 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2232.72:
r=w*(y(:,ic)-q(:,ic)/sxp)
1
Warning: Line truncated at (1)
newGLMnet.f90:2233.72:
12900 do 12901 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2234.72:
if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j))))
1
Warning: Line truncated at (1)
newGLMnet.f90:2235.72:
12901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2236.72:
12902 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2237.72:
12891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2238.72:
12892 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2239.72:
12910 do 12911 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:2240.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:2241.72:
if(flmin .lt. 1.0)goto 12931
1
Warning: Line truncated at (1)
newGLMnet.f90:2242.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:2243.72:
goto 12921
1
Warning: Line truncated at (1)
newGLMnet.f90:2244.72:
12931 if(ilm .le. 2)goto 12941
1
Warning: Line truncated at (1)
newGLMnet.f90:2245.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:2246.72:
goto 12921
1
Warning: Line truncated at (1)
newGLMnet.f90:2247.72:
12941 if(ilm .ne. 1)goto 12951
1
Warning: Line truncated at (1)
newGLMnet.f90:2248.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:2249.72:
goto 12961
1
Warning: Line truncated at (1)
newGLMnet.f90:2250.72:
12951 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2251.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2252.72:
12970 do 12971 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2253.72:
if(ju(j).eq.0)goto 12971
1
Warning: Line truncated at (1)
newGLMnet.f90:2254.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:2255.72:
12971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2256.72:
12972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2257.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:2258.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:2259.72:
12961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2260.72:
12921 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2261.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:2262.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:2263.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2264.72:
12980 do 12981 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2265.72:
if(ixx(k).eq.1)goto 12981
1
Warning: Line truncated at (1)
newGLMnet.f90:2266.72:
if(ju(k).eq.0)goto 12981
1
Warning: Line truncated at (1)
newGLMnet.f90:2267.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2268.72:
12981 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2269.72:
12982 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2270.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2271.72:
12990 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2272.72:
12991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2273.72:
ix=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2274.72:
jx=ix
1
Warning: Line truncated at (1)
newGLMnet.f90:2275.72:
ig=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2276.72:
13000 do 13001 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2277.72:
bs(0,ic)=b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2278.72:
if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2279.72:
xmz=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2280.72:
13010 do 13011 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2281.72:
pic=q(i,ic)/sxp(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:2282.72:
if(pic .ge. pfm)goto 13031
1
Warning: Line truncated at (1)
newGLMnet.f90:2283.72:
pic=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2284.72:
v(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2285.72:
goto 13021
1
Warning: Line truncated at (1)
newGLMnet.f90:2286.72:
13031 if(pic .le. pfx)goto 13041
1
Warning: Line truncated at (1)
newGLMnet.f90:2287.72:
pic=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2288.72:
v(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2289.72:
goto 13051
1
Warning: Line truncated at (1)
newGLMnet.f90:2290.72:
13041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2291.72:
v(i)=w(i)*pic*(1.0-pic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2292.72:
xmz=xmz+v(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:2293.72:
13051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2294.72:
13021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2295.72:
r(i)=w(i)*(y(i,ic)-pic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2296.72:
13011 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2297.72:
13012 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2298.72:
if(xmz.le.vmin)goto 13001
1
Warning: Line truncated at (1)
newGLMnet.f90:2299.72:
ig=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2300.72:
if(kopt .ne. 0)goto 13071
1
Warning: Line truncated at (1)
newGLMnet.f90:2301.72:
13080 do 13081 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2302.72:
if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2303.72:
13081 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2304.72:
13082 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2305.72:
13071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2306.72:
13090 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2307.72:
13091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2308.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2309.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2310.72:
13100 do 13101 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2311.72:
if(ixx(k).eq.0)goto 13101
1
Warning: Line truncated at (1)
newGLMnet.f90:2312.72:
bk=b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2313.72:
gk=dot_product(r,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:2314.72:
u=gk+xv(k,ic)*b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2315.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:2316.72:
if(au .gt. 0.0)goto 13121
1
Warning: Line truncated at (1)
newGLMnet.f90:2317.72:
b(k,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2318.72:
goto 13131
1
Warning: Line truncated at (1)
newGLMnet.f90:2319.72:
13121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2320.72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2321.72:
13131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2322.72:
13111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2323.72:
d=b(k,ic)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:2324.72:
if(abs(d).le.0.0)goto 13101
1
Warning: Line truncated at (1)
newGLMnet.f90:2325.72:
dlx=max(dlx,xv(k,ic)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2326.72:
r=r-d*v*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2327.72:
if(mm(k) .ne. 0)goto 13151
1
Warning: Line truncated at (1)
newGLMnet.f90:2328.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2329.72:
if(nin .le. nx)goto 13171
1
Warning: Line truncated at (1)
newGLMnet.f90:2330.72:
jx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2331.72:
goto 13102
1
Warning: Line truncated at (1)
newGLMnet.f90:2332.72:
13171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2333.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2334.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:2335.72:
13151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2336.72:
13101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2337.72:
13102 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2338.72:
if(jx.gt.0)goto 13092
1
Warning: Line truncated at (1)
newGLMnet.f90:2339.72:
d=sum(r)/xmz
1
Warning: Line truncated at (1)
newGLMnet.f90:2340.72:
if(d .eq. 0.0)goto 13191
1
Warning: Line truncated at (1)
newGLMnet.f90:2341.72:
b(0,ic)=b(0,ic)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2342.72:
dlx=max(dlx,xmz*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2343.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:2344.72:
13191 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2345.72:
if(dlx.lt.shr)goto 13092
1
Warning: Line truncated at (1)
newGLMnet.f90:2346.72:
if(nlp .le. maxit)goto 13211
1
Warning: Line truncated at (1)
newGLMnet.f90:2347.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2348.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2349.72:
13211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2350.72:
13220 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2351.72:
13221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2352.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2353.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2354.72:
13230 do 13231 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2355.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:2356.72:
bk=b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2357.72:
gk=dot_product(r,x(:,k))
1
Warning: Line truncated at (1)
newGLMnet.f90:2358.72:
u=gk+xv(k,ic)*b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2359.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:2360.72:
if(au .gt. 0.0)goto 13251
1
Warning: Line truncated at (1)
newGLMnet.f90:2361.72:
b(k,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2362.72:
goto 13261
1
Warning: Line truncated at (1)
newGLMnet.f90:2363.72:
13251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2364.72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2365.72:
13261 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2366.72:
13241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2367.72:
d=b(k,ic)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:2368.72:
if(abs(d).le.0.0)goto 13231
1
Warning: Line truncated at (1)
newGLMnet.f90:2369.72:
dlx=max(dlx,xv(k,ic)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2370.72:
r=r-d*v*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2371.72:
13231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2372.72:
13232 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2373.72:
d=sum(r)/xmz
1
Warning: Line truncated at (1)
newGLMnet.f90:2374.72:
if(d .eq. 0.0)goto 13281
1
Warning: Line truncated at (1)
newGLMnet.f90:2375.72:
b(0,ic)=b(0,ic)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2376.72:
dlx=max(dlx,xmz*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2377.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:2378.72:
13281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2379.72:
if(dlx.lt.shr)goto 13222
1
Warning: Line truncated at (1)
newGLMnet.f90:2380.72:
if(nlp .le. maxit)goto 13301
1
Warning: Line truncated at (1)
newGLMnet.f90:2381.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2382.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2383.72:
13301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2384.72:
goto 13221
1
Warning: Line truncated at (1)
newGLMnet.f90:2385.72:
13222 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2386.72:
goto 13091
1
Warning: Line truncated at (1)
newGLMnet.f90:2387.72:
13092 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2388.72:
if(jx.gt.0)goto 13002
1
Warning: Line truncated at (1)
newGLMnet.f90:2389.72:
if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2390.72:
if(ix .ne. 0)goto 13321
1
Warning: Line truncated at (1)
newGLMnet.f90:2391.72:
13330 do 13331 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2392.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2393.72:
if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351
1
Warning: Line truncated at (1)
newGLMnet.f90:2394.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2395.72:
goto 13332
1
Warning: Line truncated at (1)
newGLMnet.f90:2396.72:
13351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2397.72:
13331 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2398.72:
13332 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2399.72:
13321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2400.72:
13360 do 13361 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2401.72:
fi=b(0,ic)+g(i,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2402.72:
if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin)))
1
Warning: Line truncated at (1)
newGLMnet.f90:2403.72:
fi=min(max(exmn,fi),exmx)
1
Warning: Line truncated at (1)
newGLMnet.f90:2404.72:
sxp(i)=sxp(i)-q(i,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2405.72:
q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:2406.72:
sxp(i)=sxp(i)+q(i,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2407.72:
13361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2408.72:
13362 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2409.72:
13001 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2410.72:
13002 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2411.72:
s=-sum(b(0,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2412.72:
b(0,:)=b(0,:)+s
1
Warning: Line truncated at (1)
newGLMnet.f90:2413.72:
di=s
1
Warning: Line truncated at (1)
newGLMnet.f90:2414.72:
13370 do 13371 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2415.72:
l=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2416.72:
if(vp(l) .gt. 0.0)goto 13391
1
Warning: Line truncated at (1)
newGLMnet.f90:2417.72:
s=sum(b(l,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2418.72:
goto 13401
1
Warning: Line truncated at (1)
newGLMnet.f90:2419.72:
13391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2420.72:
s=elc(parm,nc,b(l,:),is)
1
Warning: Line truncated at (1)
newGLMnet.f90:2421.72:
13401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2422.72:
13381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2423.72:
b(l,:)=b(l,:)-s
1
Warning: Line truncated at (1)
newGLMnet.f90:2424.72:
di=di-s*x(:,l)
1
Warning: Line truncated at (1)
newGLMnet.f90:2425.72:
13371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2426.72:
13372 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2427.72:
di=exp(di)
1
Warning: Line truncated at (1)
newGLMnet.f90:2428.72:
sxp=sxp*di
1
Warning: Line truncated at (1)
newGLMnet.f90:2429.72:
13410 do 13411 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2430.72:
q(:,ic)=q(:,ic)*di
1
Warning: Line truncated at (1)
newGLMnet.f90:2431.72:
13411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2432.72:
13412 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2433.72:
if(jx.gt.0)goto 12992
1
Warning: Line truncated at (1)
newGLMnet.f90:2434.72:
if(ig.eq.0)goto 12992
1
Warning: Line truncated at (1)
newGLMnet.f90:2435.72:
if(ix .ne. 0)goto 13431
1
Warning: Line truncated at (1)
newGLMnet.f90:2436.72:
13440 do 13441 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2437.72:
if(ixx(k).eq.1)goto 13441
1
Warning: Line truncated at (1)
newGLMnet.f90:2438.72:
if(ju(k).eq.0)goto 13441
1
Warning: Line truncated at (1)
newGLMnet.f90:2439.72:
ga(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2440.72:
13441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2441.72:
13442 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2442.72:
13450 do 13451 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2443.72:
r=w*(y(:,ic)-q(:,ic)/sxp)
1
Warning: Line truncated at (1)
newGLMnet.f90:2444.72:
13460 do 13461 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2445.72:
if(ixx(k).eq.1)goto 13461
1
Warning: Line truncated at (1)
newGLMnet.f90:2446.72:
if(ju(k).eq.0)goto 13461
1
Warning: Line truncated at (1)
newGLMnet.f90:2447.72:
ga(k)=max(ga(k),abs(dot_product(r,x(:,k))))
1
Warning: Line truncated at (1)
newGLMnet.f90:2448.72:
13461 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2449.72:
13462 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2450.72:
13451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2451.72:
13452 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2452.72:
13470 do 13471 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2453.72:
if(ixx(k).eq.1)goto 13471
1
Warning: Line truncated at (1)
newGLMnet.f90:2454.72:
if(ju(k).eq.0)goto 13471
1
Warning: Line truncated at (1)
newGLMnet.f90:2455.72:
if(ga(k) .le. al1*vp(k))goto 13491
1
Warning: Line truncated at (1)
newGLMnet.f90:2456.72:
ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2457.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2458.72:
13491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2459.72:
13471 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2460.72:
13472 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2461.72:
if(ix.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:2462.72:
goto 12992
1
Warning: Line truncated at (1)
newGLMnet.f90:2463.72:
13431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2464.72:
goto 12991
1
Warning: Line truncated at (1)
newGLMnet.f90:2465.72:
12992 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2466.72:
if(jx .le. 0)goto 13511
1
Warning: Line truncated at (1)
newGLMnet.f90:2467.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2468.72:
goto 12912
1
Warning: Line truncated at (1)
newGLMnet.f90:2469.72:
13511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2470.72:
devi=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2471.72:
13520 do 13521 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2472.72:
if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2473.72:
a0(ic,ilm)=b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2474.72:
13530 do 13531 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2475.72:
if(y(i,ic).le.0.0)goto 13531
1
Warning: Line truncated at (1)
newGLMnet.f90:2476.72:
devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:2477.72:
13531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2478.72:
13532 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2479.72:
13521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2480.72:
13522 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2481.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2482.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:2483.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2484.72:
dev(ilm)=(dev1-devi)/dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:2485.72:
if(ig.eq.0)goto 12912
1
Warning: Line truncated at (1)
newGLMnet.f90:2486.72:
if(ilm.lt.mnl)goto 12911
1
Warning: Line truncated at (1)
newGLMnet.f90:2487.72:
if(flmin.ge.1.0)goto 12911
1
Warning: Line truncated at (1)
newGLMnet.f90:2488.72:
if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912
1
Warning: Line truncated at (1)
newGLMnet.f90:2489.72:
if(dev(ilm).gt.devmax)goto 12912
1
Warning: Line truncated at (1)
newGLMnet.f90:2490.72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912
1
Warning: Line truncated at (1)
newGLMnet.f90:2491.72:
12911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2492.72:
12912 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2493.72:
g=log(q)
1
Warning: Line truncated at (1)
newGLMnet.f90:2494.72:
13540 do 13541 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2495.72:
g(i,:)=g(i,:)-sum(g(i,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2496.72:
13541 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2497.72:
13542 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2498.72:
deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:2499.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2500.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2501.72:
subroutine kazero(kk,n,y,g,q,az,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2502.72:
parameter(eps=1.0e-7)
1
Warning: Line truncated at (1)
newGLMnet.f90:2503.72:
real y(n,kk),g(n,kk),q(n),az(kk)
1
Warning: Line truncated at (1)
newGLMnet.f90:2507.72:
allocate(s(1:n),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2508.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2509.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2510.72:
az=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2511.72:
e=exp(g)
1
Warning: Line truncated at (1)
newGLMnet.f90:2512.72:
13550 do 13551 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2513.72:
s(i)=sum(e(i,:))
1
Warning: Line truncated at (1)
newGLMnet.f90:2514.72:
13551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2515.72:
13552 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2516.72:
13560 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2517.72:
13561 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2518.72:
dm=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2519.72:
13570 do 13571 k=1,kk
1
Warning: Line truncated at (1)
newGLMnet.f90:2520.72:
t=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2521.72:
u=t
1
Warning: Line truncated at (1)
newGLMnet.f90:2522.72:
13580 do 13581 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2523.72:
pik=e(i,k)/s(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:2524.72:
t=t+q(i)*(y(i,k)-pik)
1
Warning: Line truncated at (1)
newGLMnet.f90:2525.72:
u=u+q(i)*pik*(1.0-pik)
1
Warning: Line truncated at (1)
newGLMnet.f90:2526.72:
13581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2527.72:
13582 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2528.72:
d=t/u
1
Warning: Line truncated at (1)
newGLMnet.f90:2529.72:
az(k)=az(k)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2530.72:
ed=exp(d)
1
Warning: Line truncated at (1)
newGLMnet.f90:2531.72:
dm=max(dm,abs(d))
1
Warning: Line truncated at (1)
newGLMnet.f90:2532.72:
13590 do 13591 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2533.72:
z=e(i,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2534.72:
e(i,k)=z*ed
1
Warning: Line truncated at (1)
newGLMnet.f90:2535.72:
s(i)=s(i)-z+e(i,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2536.72:
13591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2537.72:
13592 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2538.72:
13571 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2539.72:
13572 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2540.72:
if(dm.lt.eps)goto 13562
1
Warning: Line truncated at (1)
newGLMnet.f90:2541.72:
goto 13561
1
Warning: Line truncated at (1)
newGLMnet.f90:2542.72:
13562 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2543.72:
az=az-sum(az)/kk
1
Warning: Line truncated at (1)
newGLMnet.f90:2544.72:
deallocate(e,s)
1
Warning: Line truncated at (1)
newGLMnet.f90:2545.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2546.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2547.72:
function elc(parm,n,a,m)
1
Warning: Line truncated at (1)
newGLMnet.f90:2548.72:
real a(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:2549.72:
integer m(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:2550.72:
fn=n
1
Warning: Line truncated at (1)
newGLMnet.f90:2551.72:
am=sum(a)/fn
1
Warning: Line truncated at (1)
newGLMnet.f90:2552.72:
if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611
1
Warning: Line truncated at (1)
newGLMnet.f90:2553.72:
elc=am
1
Warning: Line truncated at (1)
newGLMnet.f90:2554.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2555.72:
13611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2556.72:
13620 do 13621 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2557.72:
m(i)=i
1
Warning: Line truncated at (1)
newGLMnet.f90:2558.72:
13621 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2559.72:
13622 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2560.72:
call psort7(a,m,1,n)
1
Warning: Line truncated at (1)
newGLMnet.f90:2561.72:
if(a(m(1)) .ne. a(m(n)))goto 13641
1
Warning: Line truncated at (1)
newGLMnet.f90:2562.72:
elc=a(1)
1
Warning: Line truncated at (1)
newGLMnet.f90:2563.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2564.72:
13641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2565.72:
if(mod(n,2) .ne. 1)goto 13661
1
Warning: Line truncated at (1)
newGLMnet.f90:2566.72:
ad=a(m(n/2+1))
1
Warning: Line truncated at (1)
newGLMnet.f90:2567.72:
goto 13671
1
Warning: Line truncated at (1)
newGLMnet.f90:2568.72:
13661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2569.72:
ad=0.5*(a(m(n/2+1))+a(m(n/2)))
1
Warning: Line truncated at (1)
newGLMnet.f90:2570.72:
13671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2571.72:
13651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2572.72:
if(parm .ne. 1.0)goto 13691
1
Warning: Line truncated at (1)
newGLMnet.f90:2573.72:
elc=ad
1
Warning: Line truncated at (1)
newGLMnet.f90:2574.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2575.72:
13691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2576.72:
b1=min(am,ad)
1
Warning: Line truncated at (1)
newGLMnet.f90:2577.72:
b2=max(am,ad)
1
Warning: Line truncated at (1)
newGLMnet.f90:2578.72:
k2=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2579.72:
13700 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2580.72:
13701 if(a(m(k2)).gt.b1)goto 13702
1
Warning: Line truncated at (1)
newGLMnet.f90:2581.72:
k2=k2+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2582.72:
goto 13701
1
Warning: Line truncated at (1)
newGLMnet.f90:2583.72:
13702 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2584.72:
k1=k2-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2585.72:
13710 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2586.72:
13711 if(a(m(k2)).ge.b2)goto 13712
1
Warning: Line truncated at (1)
newGLMnet.f90:2587.72:
k2=k2+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2588.72:
goto 13711
1
Warning: Line truncated at (1)
newGLMnet.f90:2589.72:
13712 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2590.72:
r=parm/((1.0-parm)*fn)
1
Warning: Line truncated at (1)
newGLMnet.f90:2591.72:
is=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2592.72:
sm=n-2*(k1-1)
1
Warning: Line truncated at (1)
newGLMnet.f90:2593.72:
13720 do 13721 k=k1,k2-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2594.72:
sm=sm-2.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2595.72:
s=r*sm+am
1
Warning: Line truncated at (1)
newGLMnet.f90:2596.72:
if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741
1
Warning: Line truncated at (1)
newGLMnet.f90:2597.72:
is=k
1
Warning: Line truncated at (1)
newGLMnet.f90:2598.72:
goto 13722
1
Warning: Line truncated at (1)
newGLMnet.f90:2599.72:
13741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2600.72:
13721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2601.72:
13722 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2602.72:
if(is .eq. 0)goto 13761
1
Warning: Line truncated at (1)
newGLMnet.f90:2603.72:
elc=s
1
Warning: Line truncated at (1)
newGLMnet.f90:2604.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2605.72:
13761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2606.72:
r2=2.0*r
1
Warning: Line truncated at (1)
newGLMnet.f90:2607.72:
s1=a(m(k1))
1
Warning: Line truncated at (1)
newGLMnet.f90:2608.72:
am2=2.0*am
1
Warning: Line truncated at (1)
newGLMnet.f90:2609.72:
cri=r2*sum(abs(a-s1))+s1*(s1-am2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2610.72:
elc=s1
1
Warning: Line truncated at (1)
newGLMnet.f90:2611.72:
13770 do 13771 k=k1+1,k2
1
Warning: Line truncated at (1)
newGLMnet.f90:2612.72:
s=a(m(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:2613.72:
if(s.eq.s1)goto 13771
1
Warning: Line truncated at (1)
newGLMnet.f90:2614.72:
c=r2*sum(abs(a-s))+s*(s-am2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2615.72:
if(c .ge. cri)goto 13791
1
Warning: Line truncated at (1)
newGLMnet.f90:2616.72:
cri=c
1
Warning: Line truncated at (1)
newGLMnet.f90:2617.72:
elc=s
1
Warning: Line truncated at (1)
newGLMnet.f90:2618.72:
13791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2619.72:
s1=s
1
Warning: Line truncated at (1)
newGLMnet.f90:2620.72:
13771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2621.72:
13772 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2622.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2623.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2624.72:
function nintot(ni,nx,nc,a,m,nin,is)
1
Warning: Line truncated at (1)
newGLMnet.f90:2625.72:
real a(nx,nc)
1
Warning: Line truncated at (1)
newGLMnet.f90:2626.72:
integer m(nx),is(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:2627.72:
is=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2628.72:
nintot=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2629.72:
13800 do 13801 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2630.72:
13810 do 13811 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2631.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2632.72:
if(is(k).ne.0)goto 13811
1
Warning: Line truncated at (1)
newGLMnet.f90:2633.72:
if(a(j,ic).eq.0.0)goto 13811
1
Warning: Line truncated at (1)
newGLMnet.f90:2634.72:
is(k)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:2635.72:
nintot=nintot+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2636.72:
13811 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2637.72:
13812 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2638.72:
13801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2639.72:
13802 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2640.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2641.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2642.72:
subroutine luncomp(ni,nx,nc,ca,ia,nin,a)
1
Warning: Line truncated at (1)
newGLMnet.f90:2643.72:
real ca(nx,nc),a(ni,nc)
1
Warning: Line truncated at (1)
newGLMnet.f90:2644.72:
integer ia(nx)
1
Warning: Line truncated at (1)
newGLMnet.f90:2645.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2646.72:
13820 do 13821 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2647.72:
if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2648.72:
13821 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2649.72:
13822 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2650.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2651.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2652.72:
subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans)
1
Warning: Line truncated at (1)
newGLMnet.f90:2653.72:
real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt)
1
Warning: Line truncated at (1)
newGLMnet.f90:2654.72:
integer ia(nx)
1
Warning: Line truncated at (1)
newGLMnet.f90:2655.72:
13830 do 13831 i=1,nt
1
Warning: Line truncated at (1)
newGLMnet.f90:2656.72:
13840 do 13841 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2657.72:
ans(ic,i)=a0(ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:2658.72:
if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1
1
Warning: Line truncated at (1)
newGLMnet.f90:2660.72:
13841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2661.72:
13842 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2662.72:
13831 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2663.72:
13832 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2664.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2665.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2666.72:
subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl
1
Warning: Line truncated at (1)
newGLMnet.f90:2669.72:
real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2670.72:
real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2671.72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2674.72:
if(maxval(vp) .gt. 0.0)goto 13861
1
Warning: Line truncated at (1)
newGLMnet.f90:2675.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:2676.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2677.72:
13861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2678.72:
allocate(ww(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2679.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2680.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2681.72:
allocate(vq(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2682.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2683.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2684.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2685.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2686.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2687.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2688.72:
call spchkvars(no,ni,x,ix,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:2689.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2690.72:
if(maxval(ju) .gt. 0)goto 13881
1
Warning: Line truncated at (1)
newGLMnet.f90:2691.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:2692.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2693.72:
13881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2694.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:2695.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:2696.72:
13890 do 13891 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2697.72:
ww(i)=sum(y(i,:))
1
Warning: Line truncated at (1)
newGLMnet.f90:2698.72:
y(i,:)=y(i,:)/ww(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:2699.72:
13891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2700.72:
13892 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2701.72:
sw=sum(ww)
1
Warning: Line truncated at (1)
newGLMnet.f90:2702.72:
ww=ww/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:2703.72:
call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:2704.72:
if(nc .ne. 1)goto 13911
1
Warning: Line truncated at (1)
newGLMnet.f90:2705.72:
call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n
1
Warning: Line truncated at (1)
newGLMnet.f90:2708.72:
goto 13921
1
Warning: Line truncated at (1)
newGLMnet.f90:2709.72:
13911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2710.72:
call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi
1
Warning: Line truncated at (1)
newGLMnet.f90:2713.72:
13921 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2714.72:
13901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2715.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2716.72:
dev0=2.0*sw*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:2717.72:
13930 do 13931 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:2718.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2719.72:
13940 do 13941 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:2720.72:
if(isd .le. 0)goto 13961
1
Warning: Line truncated at (1)
newGLMnet.f90:2721.72:
13970 do 13971 l=1,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:2722.72:
ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))
1
Warning: Line truncated at (1)
newGLMnet.f90:2723.72:
13971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2724.72:
13972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2725.72:
13961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2726.72:
a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:2727.72:
13941 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2728.72:
13942 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2729.72:
13931 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2730.72:
13932 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2731.72:
deallocate(ww,ju,vq,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:2732.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2733.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2734.72:
subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:2735.72:
real x(*),w(no),xm(ni),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:2736.72:
integer ix(*),jx(*),ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:2737.72:
13980 do 13981 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2738.72:
if(ju(j).eq.0)goto 13981
1
Warning: Line truncated at (1)
newGLMnet.f90:2739.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2740.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2741.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2742.72:
if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j
1
Warning: Line truncated at (1)
newGLMnet.f90:2744.72:
13981 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2745.72:
13982 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2746.72:
if(isd.eq.0) xs=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2747.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2748.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:2749.72:
subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam,
1
Warning: Line truncated at (1)
newGLMnet.f90:2752.72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam=
1
Warning: Line truncated at (1)
newGLMnet.f90:2754.72:
real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2755.72:
real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2756.72:
real xb(ni),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:2757.72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2760.72:
allocate(b(0:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2761.72:
allocate(xm(0:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2762.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2763.72:
allocate(xv(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2764.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2765.72:
allocate(bs(0:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2766.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2767.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2768.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2769.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2770.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2771.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2772.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2773.72:
allocate(q(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2774.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2775.72:
allocate(r(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2776.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2777.72:
allocate(v(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2778.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2779.72:
allocate(sc(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2780.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:2781.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2782.72:
fmax=log(1.0/pmin-1.0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2783.72:
fmin=-fmax
1
Warning: Line truncated at (1)
newGLMnet.f90:2784.72:
vmin=(1.0+pmin)*pmin*(1.0-pmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:2785.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:2786.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:2787.72:
q0=dot_product(w,y)
1
Warning: Line truncated at (1)
newGLMnet.f90:2788.72:
if(q0 .gt. pmin)goto 14001
1
Warning: Line truncated at (1)
newGLMnet.f90:2789.72:
jerr=8001
1
Warning: Line truncated at (1)
newGLMnet.f90:2790.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2791.72:
14001 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2792.72:
if(q0 .lt. 1.0-pmin)goto 14021
1
Warning: Line truncated at (1)
newGLMnet.f90:2793.72:
jerr=9001
1
Warning: Line truncated at (1)
newGLMnet.f90:2794.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2795.72:
14021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2796.72:
bz=log(q0/(1.0-q0))
1
Warning: Line truncated at (1)
newGLMnet.f90:2797.72:
if(nonzero(no,g) .ne. 0)goto 14041
1
Warning: Line truncated at (1)
newGLMnet.f90:2798.72:
vi=q0*(1.0-q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2799.72:
b(0)=bz
1
Warning: Line truncated at (1)
newGLMnet.f90:2800.72:
v=vi*w
1
Warning: Line truncated at (1)
newGLMnet.f90:2801.72:
r=w*(y-q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2802.72:
q=q0
1
Warning: Line truncated at (1)
newGLMnet.f90:2803.72:
xm(0)=vi
1
Warning: Line truncated at (1)
newGLMnet.f90:2804.72:
dev1=-(bz*q0+log(1.0-q0))
1
Warning: Line truncated at (1)
newGLMnet.f90:2805.72:
goto 14051
1
Warning: Line truncated at (1)
newGLMnet.f90:2806.72:
14041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2807.72:
b(0)=azero(no,y,g,w,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:2808.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:2809.72:
q=1.0/(1.0+exp(-b(0)-g))
1
Warning: Line truncated at (1)
newGLMnet.f90:2810.72:
v=w*q*(1.0-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:2811.72:
r=w*(y-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:2812.72:
xm(0)=sum(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:2813.72:
dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))
1
Warning: Line truncated at (1)
newGLMnet.f90:2814.72:
14051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2815.72:
14031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2816.72:
if(kopt .le. 0)goto 14071
1
Warning: Line truncated at (1)
newGLMnet.f90:2817.72:
if(isd .le. 0)goto 14091
1
Warning: Line truncated at (1)
newGLMnet.f90:2818.72:
xv=0.25
1
Warning: Line truncated at (1)
newGLMnet.f90:2819.72:
goto 14101
1
Warning: Line truncated at (1)
newGLMnet.f90:2820.72:
14091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2821.72:
14110 do 14111 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2822.72:
if(ju(j).eq.0)goto 14111
1
Warning: Line truncated at (1)
newGLMnet.f90:2823.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2824.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2825.72:
xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2826.72:
14111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2827.72:
14112 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2828.72:
14101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2829.72:
14081 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2830.72:
14071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2831.72:
b(1:ni)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2832.72:
dev0=dev1
1
Warning: Line truncated at (1)
newGLMnet.f90:2833.72:
14120 do 14121 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:2834.72:
if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:2835.72:
if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:2836.72:
14121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2837.72:
14122 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2838.72:
if(flmin .ge. 1.0)goto 14141
1
Warning: Line truncated at (1)
newGLMnet.f90:2839.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:2840.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:2841.72:
14141 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2842.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2843.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2844.72:
nin=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2845.72:
o=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2846.72:
svr=o
1
Warning: Line truncated at (1)
newGLMnet.f90:2847.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:2848.72:
bs=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2849.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2850.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:2851.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:2852.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2853.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:2854.72:
14150 do 14151 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2855.72:
if(ju(j).eq.0)goto 14151
1
Warning: Line truncated at (1)
newGLMnet.f90:2856.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2857.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2858.72:
jn=ix(j+1)-ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2859.72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o
1
Warning: Line truncated at (1)
newGLMnet.f90:2860.72:
gj=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2861.72:
ga(j)=abs((gj-svr*xb(j))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:2862.72:
14151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2863.72:
14152 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2864.72:
14160 do 14161 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:2865.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:2866.72:
if(flmin .lt. 1.0)goto 14181
1
Warning: Line truncated at (1)
newGLMnet.f90:2867.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:2868.72:
goto 14171
1
Warning: Line truncated at (1)
newGLMnet.f90:2869.72:
14181 if(ilm .le. 2)goto 14191
1
Warning: Line truncated at (1)
newGLMnet.f90:2870.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:2871.72:
goto 14171
1
Warning: Line truncated at (1)
newGLMnet.f90:2872.72:
14191 if(ilm .ne. 1)goto 14201
1
Warning: Line truncated at (1)
newGLMnet.f90:2873.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:2874.72:
goto 14211
1
Warning: Line truncated at (1)
newGLMnet.f90:2875.72:
14201 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2876.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2877.72:
14220 do 14221 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2878.72:
if(ju(j).eq.0)goto 14221
1
Warning: Line truncated at (1)
newGLMnet.f90:2879.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:2880.72:
14221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2881.72:
14222 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2882.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:2883.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:2884.72:
14211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2885.72:
14171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2886.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:2887.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:2888.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2889.72:
14230 do 14231 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2890.72:
if(ixx(k).eq.1)goto 14231
1
Warning: Line truncated at (1)
newGLMnet.f90:2891.72:
if(ju(k).eq.0)goto 14231
1
Warning: Line truncated at (1)
newGLMnet.f90:2892.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:2893.72:
14231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2894.72:
14232 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2895.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2896.72:
14240 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2897.72:
14241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2898.72:
bs(0)=b(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2899.72:
if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:2900.72:
14250 do 14251 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2901.72:
if(ixx(j).eq.0)goto 14251
1
Warning: Line truncated at (1)
newGLMnet.f90:2902.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2903.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2904.72:
jn=ix(j+1)-ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:2905.72:
sc(1:jn)=v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2906.72:
xm(j)=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2907.72:
if(kopt .ne. 0)goto 14271
1
Warning: Line truncated at (1)
newGLMnet.f90:2908.72:
xv(j)=dot_product(sc(1:jn),x(jb:je)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2909.72:
xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:2910.72:
14271 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2911.72:
14251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2912.72:
14252 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2913.72:
14280 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2914.72:
14281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2915.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2916.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2917.72:
14290 do 14291 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:2918.72:
if(ixx(k).eq.0)goto 14291
1
Warning: Line truncated at (1)
newGLMnet.f90:2919.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2920.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2921.72:
jn=ix(k+1)-ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2922.72:
bk=b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2923.72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o
1
Warning: Line truncated at (1)
newGLMnet.f90:2924.72:
gk=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2925.72:
gk=(gk-svr*xb(k))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2926.72:
u=gk+xv(k)*b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2927.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:2928.72:
if(au .gt. 0.0)goto 14311
1
Warning: Line truncated at (1)
newGLMnet.f90:2929.72:
b(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2930.72:
goto 14321
1
Warning: Line truncated at (1)
newGLMnet.f90:2931.72:
14311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2932.72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2933.72:
14321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2934.72:
14301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2935.72:
d=b(k)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:2936.72:
if(abs(d).le.0.0)goto 14291
1
Warning: Line truncated at (1)
newGLMnet.f90:2937.72:
dlx=max(dlx,xv(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2938.72:
if(mm(k) .ne. 0)goto 14341
1
Warning: Line truncated at (1)
newGLMnet.f90:2939.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2940.72:
if(nin.gt.nx)goto 14292
1
Warning: Line truncated at (1)
newGLMnet.f90:2941.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2942.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:2943.72:
sc(1:jn)=v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2944.72:
xm(k)=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2945.72:
14341 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2946.72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2947.72:
o=o+d*(xb(k)/xs(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:2948.72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2949.72:
14291 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2950.72:
14292 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2951.72:
if(nin.gt.nx)goto 14282
1
Warning: Line truncated at (1)
newGLMnet.f90:2952.72:
d=svr/xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2953.72:
if(d .eq. 0.0)goto 14361
1
Warning: Line truncated at (1)
newGLMnet.f90:2954.72:
b(0)=b(0)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2955.72:
dlx=max(dlx,xm(0)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2956.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:2957.72:
14361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2958.72:
svr=svr-d*xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2959.72:
if(dlx.lt.shr)goto 14282
1
Warning: Line truncated at (1)
newGLMnet.f90:2960.72:
if(nlp .le. maxit)goto 14381
1
Warning: Line truncated at (1)
newGLMnet.f90:2961.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:2962.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:2963.72:
14381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2964.72:
14390 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2965.72:
14391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2966.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:2967.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2968.72:
14400 do 14401 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:2969.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:2970.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2971.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:2972.72:
jn=ix(k+1)-ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2973.72:
bk=b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2974.72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o
1
Warning: Line truncated at (1)
newGLMnet.f90:2975.72:
gk=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:2976.72:
gk=(gk-svr*xb(k))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2977.72:
u=gk+xv(k)*b(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2978.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:2979.72:
if(au .gt. 0.0)goto 14421
1
Warning: Line truncated at (1)
newGLMnet.f90:2980.72:
b(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:2981.72:
goto 14431
1
Warning: Line truncated at (1)
newGLMnet.f90:2982.72:
14421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2983.72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2984.72:
14431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2985.72:
14411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2986.72:
d=b(k)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:2987.72:
if(abs(d).le.0.0)goto 14401
1
Warning: Line truncated at (1)
newGLMnet.f90:2988.72:
dlx=max(dlx,xv(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2989.72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2990.72:
o=o+d*(xb(k)/xs(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:2991.72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:2992.72:
14401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2993.72:
14402 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:2994.72:
d=svr/xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:2995.72:
if(d .eq. 0.0)goto 14451
1
Warning: Line truncated at (1)
newGLMnet.f90:2996.72:
b(0)=b(0)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:2997.72:
dlx=max(dlx,xm(0)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:2998.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:2999.72:
14451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3000.72:
svr=svr-d*xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3001.72:
if(dlx.lt.shr)goto 14392
1
Warning: Line truncated at (1)
newGLMnet.f90:3002.72:
if(nlp .le. maxit)goto 14471
1
Warning: Line truncated at (1)
newGLMnet.f90:3003.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3004.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3005.72:
14471 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3006.72:
goto 14391
1
Warning: Line truncated at (1)
newGLMnet.f90:3007.72:
14392 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3008.72:
goto 14281
1
Warning: Line truncated at (1)
newGLMnet.f90:3009.72:
14282 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3010.72:
if(nin.gt.nx)goto 14242
1
Warning: Line truncated at (1)
newGLMnet.f90:3011.72:
sc=b(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3012.72:
b0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3013.72:
14480 do 14481 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3014.72:
l=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3015.72:
jb=ix(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3016.72:
je=ix(l+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3017.72:
sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3018.72:
b0=b0-b(l)*xb(l)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3019.72:
14481 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3020.72:
14482 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3021.72:
sc=sc+b0
1
Warning: Line truncated at (1)
newGLMnet.f90:3022.72:
14490 do 14491 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3023.72:
fi=sc(i)+g(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:3024.72:
if(fi .ge. fmin)goto 14511
1
Warning: Line truncated at (1)
newGLMnet.f90:3025.72:
q(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3026.72:
goto 14501
1
Warning: Line truncated at (1)
newGLMnet.f90:3027.72:
14511 if(fi .le. fmax)goto 14521
1
Warning: Line truncated at (1)
newGLMnet.f90:3028.72:
q(i)=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3029.72:
goto 14531
1
Warning: Line truncated at (1)
newGLMnet.f90:3030.72:
14521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3031.72:
q(i)=1.0/(1.0+exp(-fi))
1
Warning: Line truncated at (1)
newGLMnet.f90:3032.72:
14531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3033.72:
14501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3034.72:
14491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3035.72:
14492 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3036.72:
v=w*q*(1.0-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:3037.72:
xm(0)=sum(v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3038.72:
if(xm(0).lt.vmin)goto 14242
1
Warning: Line truncated at (1)
newGLMnet.f90:3039.72:
r=w*(y-q)
1
Warning: Line truncated at (1)
newGLMnet.f90:3040.72:
svr=sum(r)
1
Warning: Line truncated at (1)
newGLMnet.f90:3041.72:
o=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3042.72:
if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551
1
Warning: Line truncated at (1)
newGLMnet.f90:3043.72:
kx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3044.72:
14560 do 14561 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3045.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3046.72:
if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561
1
Warning: Line truncated at (1)
newGLMnet.f90:3047.72:
kx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3048.72:
goto 14562
1
Warning: Line truncated at (1)
newGLMnet.f90:3049.72:
14561 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3050.72:
14562 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3051.72:
if(kx .ne. 0)goto 14581
1
Warning: Line truncated at (1)
newGLMnet.f90:3052.72:
14590 do 14591 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3053.72:
if(ixx(j).eq.1)goto 14591
1
Warning: Line truncated at (1)
newGLMnet.f90:3054.72:
if(ju(j).eq.0)goto 14591
1
Warning: Line truncated at (1)
newGLMnet.f90:3055.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3056.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3057.72:
jn=ix(j+1)-ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3058.72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o
1
Warning: Line truncated at (1)
newGLMnet.f90:3059.72:
gj=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3060.72:
ga(j)=abs((gj-svr*xb(j))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3061.72:
if(ga(j) .le. al1*vp(j))goto 14611
1
Warning: Line truncated at (1)
newGLMnet.f90:3062.72:
ixx(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3063.72:
kx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3064.72:
14611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3065.72:
14591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3066.72:
14592 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3067.72:
if(kx.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:3068.72:
goto 14242
1
Warning: Line truncated at (1)
newGLMnet.f90:3069.72:
14581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3070.72:
14551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3071.72:
goto 14241
1
Warning: Line truncated at (1)
newGLMnet.f90:3072.72:
14242 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3073.72:
if(nin .le. nx)goto 14631
1
Warning: Line truncated at (1)
newGLMnet.f90:3074.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3075.72:
goto 14162
1
Warning: Line truncated at (1)
newGLMnet.f90:3076.72:
14631 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3077.72:
if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:3078.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3079.72:
a0(ilm)=b(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3080.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:3081.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3082.72:
devi=dev2(no,w,y,q,pmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:3083.72:
dev(ilm)=(dev1-devi)/dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:3084.72:
if(ilm.lt.mnl)goto 14161
1
Warning: Line truncated at (1)
newGLMnet.f90:3085.72:
if(flmin.ge.1.0)goto 14161
1
Warning: Line truncated at (1)
newGLMnet.f90:3086.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3087.72:
14640 do 14641 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3088.72:
if(a(j,ilm).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3089.72:
14641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3090.72:
14642 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3091.72:
if(me.gt.ne)goto 14162
1
Warning: Line truncated at (1)
newGLMnet.f90:3092.72:
if(dev(ilm).gt.devmax)goto 14162
1
Warning: Line truncated at (1)
newGLMnet.f90:3093.72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162
1
Warning: Line truncated at (1)
newGLMnet.f90:3094.72:
if(xm(0).lt.vmin)goto 14162
1
Warning: Line truncated at (1)
newGLMnet.f90:3095.72:
14161 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3096.72:
14162 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3097.72:
g=log(q/(1.0-q))
1
Warning: Line truncated at (1)
newGLMnet.f90:3098.72:
deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:3099.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3100.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3101.72:
subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:3104.72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam=
1
Warning: Line truncated at (1)
newGLMnet.f90:3106.72:
real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:3107.72:
real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3108.72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3118.72:
allocate(xm(0:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3119.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3120.72:
allocate(r(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3121.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3122.72:
allocate(v(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3123.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3124.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3125.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3126.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3127.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3128.72:
allocate(iy(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3129.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3130.72:
allocate(is(1:max(nc,ni)),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3131.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3132.72:
allocate(sxp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3133.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3134.72:
allocate(sxpl(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3135.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3136.72:
allocate(sc(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3137.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3138.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:3139.72:
pmax=1.0-pmin
1
Warning: Line truncated at (1)
newGLMnet.f90:3140.72:
emin=pmin/pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:3141.72:
emax=1.0/emin
1
Warning: Line truncated at (1)
newGLMnet.f90:3142.72:
pfm=(1.0+pmin)*pmin
1
Warning: Line truncated at (1)
newGLMnet.f90:3143.72:
pfx=(1.0-pmin)*pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:3144.72:
vmin=pfm*pmax
1
Warning: Line truncated at (1)
newGLMnet.f90:3145.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:3146.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:3147.72:
dev1=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3148.72:
dev0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3149.72:
14650 do 14651 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3150.72:
q0=dot_product(w,y(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:3151.72:
if(q0 .gt. pmin)goto 14671
1
Warning: Line truncated at (1)
newGLMnet.f90:3152.72:
jerr =8000+ic
1
Warning: Line truncated at (1)
newGLMnet.f90:3153.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3154.72:
14671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3155.72:
if(q0 .lt. 1.0-pmin)goto 14691
1
Warning: Line truncated at (1)
newGLMnet.f90:3156.72:
jerr =9000+ic
1
Warning: Line truncated at (1)
newGLMnet.f90:3157.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3158.72:
14691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3159.72:
b(1:ni,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3160.72:
b(0,ic)=log(q0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3161.72:
dev1=dev1-q0*b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3162.72:
14651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3163.72:
14652 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3164.72:
iy=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3165.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3166.72:
if(nonzero(no*nc,g) .ne. 0)goto 14711
1
Warning: Line truncated at (1)
newGLMnet.f90:3167.72:
b(0,:)=b(0,:)-sum(b(0,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3168.72:
sxp=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3169.72:
14720 do 14721 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3170.72:
q(:,ic)=exp(b(0,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:3171.72:
sxp=sxp+q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3172.72:
14721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3173.72:
14722 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3174.72:
goto 14731
1
Warning: Line truncated at (1)
newGLMnet.f90:3175.72:
14711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3176.72:
14740 do 14741 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3177.72:
g(i,:)=g(i,:)-sum(g(i,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3178.72:
14741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3179.72:
14742 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3180.72:
sxp=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3181.72:
call kazero(nc,no,y,g,w,b(0,:),jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3182.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:3183.72:
dev1=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3184.72:
14750 do 14751 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3185.72:
q(:,ic)=b(0,ic)+g(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3186.72:
dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:3187.72:
q(:,ic)=exp(q(:,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:3188.72:
sxp=sxp+q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3189.72:
14751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3190.72:
14752 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3191.72:
sxpl=w*log(sxp)
1
Warning: Line truncated at (1)
newGLMnet.f90:3192.72:
14760 do 14761 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3193.72:
dev1=dev1+dot_product(y(:,ic),sxpl)
1
Warning: Line truncated at (1)
newGLMnet.f90:3194.72:
14761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3195.72:
14762 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3196.72:
14731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3197.72:
14701 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3198.72:
14770 do 14771 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3199.72:
14780 do 14781 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3200.72:
if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))
1
Warning: Line truncated at (1)
newGLMnet.f90:3201.72:
14781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3202.72:
14782 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3203.72:
14771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3204.72:
14772 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3205.72:
dev0=dev0+dev1
1
Warning: Line truncated at (1)
newGLMnet.f90:3206.72:
if(kopt .le. 0)goto 14801
1
Warning: Line truncated at (1)
newGLMnet.f90:3207.72:
if(isd .le. 0)goto 14821
1
Warning: Line truncated at (1)
newGLMnet.f90:3208.72:
xv=0.25
1
Warning: Line truncated at (1)
newGLMnet.f90:3209.72:
goto 14831
1
Warning: Line truncated at (1)
newGLMnet.f90:3210.72:
14821 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3211.72:
14840 do 14841 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3212.72:
if(ju(j).eq.0)goto 14841
1
Warning: Line truncated at (1)
newGLMnet.f90:3213.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3214.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3215.72:
xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3216.72:
14841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3217.72:
14842 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3218.72:
14831 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3219.72:
14811 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3220.72:
14801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3221.72:
if(flmin .ge. 1.0)goto 14861
1
Warning: Line truncated at (1)
newGLMnet.f90:3222.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:3223.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:3224.72:
14861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3225.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3226.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3227.72:
nin=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3228.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3229.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3230.72:
bs=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3231.72:
svr=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3232.72:
o=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3233.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:3234.72:
ga=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3235.72:
14870 do 14871 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3236.72:
v=q(:,ic)/sxp
1
Warning: Line truncated at (1)
newGLMnet.f90:3237.72:
r=w*(y(:,ic)-v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3238.72:
v=w*v*(1.0-v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3239.72:
14880 do 14881 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3240.72:
if(ju(j).eq.0)goto 14881
1
Warning: Line truncated at (1)
newGLMnet.f90:3241.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3242.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3243.72:
jn=ix(j+1)-ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3244.72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3245.72:
gj=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3246.72:
ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3247.72:
14881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3248.72:
14882 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3249.72:
14871 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3250.72:
14872 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3251.72:
14890 do 14891 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:3252.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:3253.72:
if(flmin .lt. 1.0)goto 14911
1
Warning: Line truncated at (1)
newGLMnet.f90:3254.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:3255.72:
goto 14901
1
Warning: Line truncated at (1)
newGLMnet.f90:3256.72:
14911 if(ilm .le. 2)goto 14921
1
Warning: Line truncated at (1)
newGLMnet.f90:3257.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:3258.72:
goto 14901
1
Warning: Line truncated at (1)
newGLMnet.f90:3259.72:
14921 if(ilm .ne. 1)goto 14931
1
Warning: Line truncated at (1)
newGLMnet.f90:3260.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:3261.72:
goto 14941
1
Warning: Line truncated at (1)
newGLMnet.f90:3262.72:
14931 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3263.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3264.72:
14950 do 14951 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3265.72:
if(ju(j).eq.0)goto 14951
1
Warning: Line truncated at (1)
newGLMnet.f90:3266.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3267.72:
14951 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3268.72:
14952 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3269.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:3270.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:3271.72:
14941 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3272.72:
14901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3273.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:3274.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:3275.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3276.72:
14960 do 14961 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3277.72:
if(iy(k).eq.1)goto 14961
1
Warning: Line truncated at (1)
newGLMnet.f90:3278.72:
if(ju(k).eq.0)goto 14961
1
Warning: Line truncated at (1)
newGLMnet.f90:3279.72:
if(ga(k).gt.tlam*vp(k)) iy(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3280.72:
14961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3281.72:
14962 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3282.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3283.72:
14970 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3284.72:
14971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3285.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3286.72:
jxx=ixx
1
Warning: Line truncated at (1)
newGLMnet.f90:3287.72:
ig=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3288.72:
14980 do 14981 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3289.72:
bs(0,ic)=b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3290.72:
if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3291.72:
xm(0)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3292.72:
svr=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3293.72:
o=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3294.72:
14990 do 14991 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3295.72:
pic=q(i,ic)/sxp(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:3296.72:
if(pic .ge. pfm)goto 15011
1
Warning: Line truncated at (1)
newGLMnet.f90:3297.72:
pic=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3298.72:
v(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3299.72:
goto 15001
1
Warning: Line truncated at (1)
newGLMnet.f90:3300.72:
15011 if(pic .le. pfx)goto 15021
1
Warning: Line truncated at (1)
newGLMnet.f90:3301.72:
pic=1.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3302.72:
v(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3303.72:
goto 15031
1
Warning: Line truncated at (1)
newGLMnet.f90:3304.72:
15021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3305.72:
v(i)=w(i)*pic*(1.0-pic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3306.72:
xm(0)=xm(0)+v(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:3307.72:
15031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3308.72:
15001 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3309.72:
r(i)=w(i)*(y(i,ic)-pic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3310.72:
svr=svr+r(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:3311.72:
14991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3312.72:
14992 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3313.72:
if(xm(0).le.vmin)goto 14981
1
Warning: Line truncated at (1)
newGLMnet.f90:3314.72:
ig=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3315.72:
15040 do 15041 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3316.72:
if(iy(j).eq.0)goto 15041
1
Warning: Line truncated at (1)
newGLMnet.f90:3317.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3318.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3319.72:
xm(j)=dot_product(v(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3320.72:
if(kopt .ne. 0)goto 15061
1
Warning: Line truncated at (1)
newGLMnet.f90:3321.72:
xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3322.72:
xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:3323.72:
15061 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3324.72:
15041 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3325.72:
15042 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3326.72:
15070 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3327.72:
15071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3328.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3329.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3330.72:
15080 do 15081 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3331.72:
if(iy(k).eq.0)goto 15081
1
Warning: Line truncated at (1)
newGLMnet.f90:3332.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3333.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3334.72:
jn=ix(k+1)-ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3335.72:
bk=b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3336.72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3337.72:
gk=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3338.72:
gk=(gk-svr*xb(k))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3339.72:
u=gk+xv(k,ic)*b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3340.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:3341.72:
if(au .gt. 0.0)goto 15101
1
Warning: Line truncated at (1)
newGLMnet.f90:3342.72:
b(k,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3343.72:
goto 15111
1
Warning: Line truncated at (1)
newGLMnet.f90:3344.72:
15101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3345.72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3346.72:
15111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3347.72:
15091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3348.72:
d=b(k,ic)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:3349.72:
if(abs(d).le.0.0)goto 15081
1
Warning: Line truncated at (1)
newGLMnet.f90:3350.72:
dlx=max(dlx,xv(k,ic)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3351.72:
if(mm(k) .ne. 0)goto 15131
1
Warning: Line truncated at (1)
newGLMnet.f90:3352.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3353.72:
if(nin .le. nx)goto 15151
1
Warning: Line truncated at (1)
newGLMnet.f90:3354.72:
jxx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3355.72:
goto 15082
1
Warning: Line truncated at (1)
newGLMnet.f90:3356.72:
15151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3357.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3358.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:3359.72:
xm(k)=dot_product(v(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3360.72:
15131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3361.72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3362.72:
o=o+d*(xb(k)/xs(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:3363.72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3364.72:
15081 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3365.72:
15082 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3366.72:
if(jxx.gt.0)goto 15072
1
Warning: Line truncated at (1)
newGLMnet.f90:3367.72:
d=svr/xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3368.72:
if(d .eq. 0.0)goto 15171
1
Warning: Line truncated at (1)
newGLMnet.f90:3369.72:
b(0,ic)=b(0,ic)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:3370.72:
dlx=max(dlx,xm(0)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3371.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:3372.72:
svr=svr-d*xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3373.72:
15171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3374.72:
if(dlx.lt.shr)goto 15072
1
Warning: Line truncated at (1)
newGLMnet.f90:3375.72:
if(nlp .le. maxit)goto 15191
1
Warning: Line truncated at (1)
newGLMnet.f90:3376.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3377.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3378.72:
15191 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3379.72:
15200 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3380.72:
15201 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3381.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3382.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3383.72:
15210 do 15211 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3384.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3385.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3386.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3387.72:
jn=ix(k+1)-ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3388.72:
bk=b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3389.72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3390.72:
gk=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3391.72:
gk=(gk-svr*xb(k))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3392.72:
u=gk+xv(k,ic)*b(k,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3393.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:3394.72:
if(au .gt. 0.0)goto 15231
1
Warning: Line truncated at (1)
newGLMnet.f90:3395.72:
b(k,ic)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3396.72:
goto 15241
1
Warning: Line truncated at (1)
newGLMnet.f90:3397.72:
15231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3398.72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3399.72:
15241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3400.72:
15221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3401.72:
d=b(k,ic)-bk
1
Warning: Line truncated at (1)
newGLMnet.f90:3402.72:
if(abs(d).le.0.0)goto 15211
1
Warning: Line truncated at (1)
newGLMnet.f90:3403.72:
dlx=max(dlx,xv(k,ic)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3404.72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3405.72:
o=o+d*(xb(k)/xs(k))
1
Warning: Line truncated at (1)
newGLMnet.f90:3406.72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3407.72:
15211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3408.72:
15212 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3409.72:
d=svr/xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3410.72:
if(d .eq. 0.0)goto 15261
1
Warning: Line truncated at (1)
newGLMnet.f90:3411.72:
b(0,ic)=b(0,ic)+d
1
Warning: Line truncated at (1)
newGLMnet.f90:3412.72:
dlx=max(dlx,xm(0)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3413.72:
r=r-d*v
1
Warning: Line truncated at (1)
newGLMnet.f90:3414.72:
svr=svr-d*xm(0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3415.72:
15261 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3416.72:
if(dlx.lt.shr)goto 15202
1
Warning: Line truncated at (1)
newGLMnet.f90:3417.72:
if(nlp .le. maxit)goto 15281
1
Warning: Line truncated at (1)
newGLMnet.f90:3418.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3419.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3420.72:
15281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3421.72:
goto 15201
1
Warning: Line truncated at (1)
newGLMnet.f90:3422.72:
15202 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3423.72:
goto 15071
1
Warning: Line truncated at (1)
newGLMnet.f90:3424.72:
15072 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3425.72:
if(jxx.gt.0)goto 14982
1
Warning: Line truncated at (1)
newGLMnet.f90:3426.72:
if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3427.72:
if(ixx .ne. 0)goto 15301
1
Warning: Line truncated at (1)
newGLMnet.f90:3428.72:
15310 do 15311 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3429.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3430.72:
if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331
1
Warning: Line truncated at (1)
newGLMnet.f90:3431.72:
ixx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3432.72:
goto 15312
1
Warning: Line truncated at (1)
newGLMnet.f90:3433.72:
15331 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3434.72:
15311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3435.72:
15312 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3436.72:
15301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3437.72:
sc=b(0,ic)+g(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3438.72:
b0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3439.72:
15340 do 15341 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3440.72:
l=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3441.72:
jb=ix(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3442.72:
je=ix(l+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3443.72:
sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3444.72:
b0=b0-b(l,ic)*xb(l)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3445.72:
15341 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3446.72:
15342 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3447.72:
sc=min(max(exmn,sc+b0),exmx)
1
Warning: Line truncated at (1)
newGLMnet.f90:3448.72:
sxp=sxp-q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3449.72:
q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp)
1
Warning: Line truncated at (1)
newGLMnet.f90:3450.72:
sxp=sxp+q(:,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3451.72:
14981 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3452.72:
14982 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3453.72:
s=-sum(b(0,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3454.72:
b(0,:)=b(0,:)+s
1
Warning: Line truncated at (1)
newGLMnet.f90:3455.72:
sc=s
1
Warning: Line truncated at (1)
newGLMnet.f90:3456.72:
b0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3457.72:
15350 do 15351 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3458.72:
l=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3459.72:
if(vp(l) .gt. 0.0)goto 15371
1
Warning: Line truncated at (1)
newGLMnet.f90:3460.72:
s=sum(b(l,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3461.72:
goto 15381
1
Warning: Line truncated at (1)
newGLMnet.f90:3462.72:
15371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3463.72:
s=elc(parm,nc,b(l,:),is)
1
Warning: Line truncated at (1)
newGLMnet.f90:3464.72:
15381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3465.72:
15361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3466.72:
b(l,:)=b(l,:)-s
1
Warning: Line truncated at (1)
newGLMnet.f90:3467.72:
jb=ix(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3468.72:
je=ix(l+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3469.72:
sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3470.72:
b0=b0+s*xb(l)/xs(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3471.72:
15351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3472.72:
15352 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3473.72:
sc=sc+b0
1
Warning: Line truncated at (1)
newGLMnet.f90:3474.72:
sc=exp(sc)
1
Warning: Line truncated at (1)
newGLMnet.f90:3475.72:
sxp=sxp*sc
1
Warning: Line truncated at (1)
newGLMnet.f90:3476.72:
15390 do 15391 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3477.72:
q(:,ic)=q(:,ic)*sc
1
Warning: Line truncated at (1)
newGLMnet.f90:3478.72:
15391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3479.72:
15392 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3480.72:
if(jxx.gt.0)goto 14972
1
Warning: Line truncated at (1)
newGLMnet.f90:3481.72:
if(ig.eq.0)goto 14972
1
Warning: Line truncated at (1)
newGLMnet.f90:3482.72:
if(ixx .ne. 0)goto 15411
1
Warning: Line truncated at (1)
newGLMnet.f90:3483.72:
15420 do 15421 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3484.72:
if(iy(j).eq.1)goto 15421
1
Warning: Line truncated at (1)
newGLMnet.f90:3485.72:
if(ju(j).eq.0)goto 15421
1
Warning: Line truncated at (1)
newGLMnet.f90:3486.72:
ga(j)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3487.72:
15421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3488.72:
15422 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3489.72:
15430 do 15431 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3490.72:
v=q(:,ic)/sxp
1
Warning: Line truncated at (1)
newGLMnet.f90:3491.72:
r=w*(y(:,ic)-v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3492.72:
v=w*v*(1.0-v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3493.72:
15440 do 15441 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3494.72:
if(iy(j).eq.1)goto 15441
1
Warning: Line truncated at (1)
newGLMnet.f90:3495.72:
if(ju(j).eq.0)goto 15441
1
Warning: Line truncated at (1)
newGLMnet.f90:3496.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3497.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3498.72:
jn=ix(j+1)-ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3499.72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3500.72:
gj=dot_product(sc(1:jn),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:3501.72:
ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3502.72:
15441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3503.72:
15442 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3504.72:
15431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3505.72:
15432 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3506.72:
15450 do 15451 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3507.72:
if(iy(k).eq.1)goto 15451
1
Warning: Line truncated at (1)
newGLMnet.f90:3508.72:
if(ju(k).eq.0)goto 15451
1
Warning: Line truncated at (1)
newGLMnet.f90:3509.72:
if(ga(k) .le. al1*vp(k))goto 15471
1
Warning: Line truncated at (1)
newGLMnet.f90:3510.72:
iy(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3511.72:
ixx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3512.72:
15471 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3513.72:
15451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3514.72:
15452 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3515.72:
if(ixx.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:3516.72:
goto 14972
1
Warning: Line truncated at (1)
newGLMnet.f90:3517.72:
15411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3518.72:
goto 14971
1
Warning: Line truncated at (1)
newGLMnet.f90:3519.72:
14972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3520.72:
if(jxx .le. 0)goto 15491
1
Warning: Line truncated at (1)
newGLMnet.f90:3521.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3522.72:
goto 14892
1
Warning: Line truncated at (1)
newGLMnet.f90:3523.72:
15491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3524.72:
devi=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3525.72:
15500 do 15501 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3526.72:
if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3527.72:
a0(ic,ilm)=b(0,ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3528.72:
15510 do 15511 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3529.72:
if(y(i,ic).le.0.0)goto 15511
1
Warning: Line truncated at (1)
newGLMnet.f90:3530.72:
devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:3531.72:
15511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3532.72:
15512 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3533.72:
15501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3534.72:
15502 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3535.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3536.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:3537.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3538.72:
dev(ilm)=(dev1-devi)/dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:3539.72:
if(ig.eq.0)goto 14892
1
Warning: Line truncated at (1)
newGLMnet.f90:3540.72:
if(ilm.lt.mnl)goto 14891
1
Warning: Line truncated at (1)
newGLMnet.f90:3541.72:
if(flmin.ge.1.0)goto 14891
1
Warning: Line truncated at (1)
newGLMnet.f90:3542.72:
if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892
1
Warning: Line truncated at (1)
newGLMnet.f90:3543.72:
if(dev(ilm).gt.devmax)goto 14892
1
Warning: Line truncated at (1)
newGLMnet.f90:3544.72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892
1
Warning: Line truncated at (1)
newGLMnet.f90:3545.72:
14891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3546.72:
14892 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3547.72:
g=log(q)
1
Warning: Line truncated at (1)
newGLMnet.f90:3548.72:
15520 do 15521 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3549.72:
g(i,:)=g(i,:)-sum(g(i,:))/nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3550.72:
15521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3551.72:
15522 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3552.72:
deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy)
1
Warning: Line truncated at (1)
newGLMnet.f90:3553.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3554.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3555.72:
subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:3556.72:
real a0(nc),ca(nx,nc),x(*),f(nc,n)
1
Warning: Line truncated at (1)
newGLMnet.f90:3557.72:
integer ia(*),ix(*),jx(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:3558.72:
15530 do 15531 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3559.72:
f(ic,:)=a0(ic)
1
Warning: Line truncated at (1)
newGLMnet.f90:3560.72:
15531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3561.72:
15532 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3562.72:
15540 do 15541 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3563.72:
k=ia(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3564.72:
kb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3565.72:
ke=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3566.72:
15550 do 15551 ic=1,nc
1
Warning: Line truncated at (1)
newGLMnet.f90:3567.72:
f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke)
1
Warning: Line truncated at (1)
newGLMnet.f90:3568.72:
15551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3569.72:
15552 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3570.72:
15541 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3571.72:
15542 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3572.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3573.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3574.72:
subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula
1
Warning: Line truncated at (1)
newGLMnet.f90:3576.72:
real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3577.72:
real ca(nx,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3578.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3581.72:
if(maxval(vp) .gt. 0.0)goto 15571
1
Warning: Line truncated at (1)
newGLMnet.f90:3582.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:3583.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3584.72:
15571 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3585.72:
allocate(ww(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3586.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3587.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3588.72:
allocate(vq(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3589.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3590.72:
if(isd .le. 0)goto 15591
1
Warning: Line truncated at (1)
newGLMnet.f90:3591.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3592.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3593.72:
15591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3594.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:3595.72:
call chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:3596.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3597.72:
if(maxval(ju) .gt. 0)goto 15611
1
Warning: Line truncated at (1)
newGLMnet.f90:3598.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:3599.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3600.72:
15611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3601.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:3602.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:3603.72:
ww=max(0.0,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:3604.72:
sw=sum(ww)
1
Warning: Line truncated at (1)
newGLMnet.f90:3605.72:
if(sw .gt. 0.0)goto 15631
1
Warning: Line truncated at (1)
newGLMnet.f90:3606.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:3607.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3608.72:
15631 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3609.72:
ww=ww/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:3610.72:
call cstandard(no,ni,x,ww,ju,isd,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:3611.72:
call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr
1
Warning: Line truncated at (1)
newGLMnet.f90:3613.72:
if(jerr.gt.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:3614.72:
dev0=2.0*sw*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:3615.72:
if(isd .le. 0)goto 15651
1
Warning: Line truncated at (1)
newGLMnet.f90:3616.72:
15660 do 15661 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:3617.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3618.72:
ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))
1
Warning: Line truncated at (1)
newGLMnet.f90:3619.72:
15661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3620.72:
15662 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3621.72:
15651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3622.72:
deallocate(ww,ju,vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:3623.72:
if(isd.gt.0) deallocate(xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:3624.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3625.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3626.72:
subroutine cstandard (no,ni,x,w,ju,isd,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:3627.72:
real x(no,ni),w(no),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:3628.72:
integer ju(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:3629.72:
15670 do 15671 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3630.72:
if(ju(j).eq.0)goto 15671
1
Warning: Line truncated at (1)
newGLMnet.f90:3631.72:
xm=dot_product(w,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3632.72:
x(:,j)=x(:,j)-xm
1
Warning: Line truncated at (1)
newGLMnet.f90:3633.72:
if(isd .le. 0)goto 15691
1
Warning: Line truncated at (1)
newGLMnet.f90:3634.72:
xs(j)=sqrt(dot_product(w,x(:,j)**2))
1
Warning: Line truncated at (1)
newGLMnet.f90:3635.72:
x(:,j)=x(:,j)/xs(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3636.72:
15691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3637.72:
15671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3638.72:
15672 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3639.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3640.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3641.72:
subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula
1
Warning: Line truncated at (1)
newGLMnet.f90:3643.72:
parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99)
1
Warning: Line truncated at (1)
newGLMnet.f90:3644.72:
real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3645.72:
real ao(nx,nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3646.72:
integer ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3650.72:
allocate(e(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3651.72:
allocate(uu(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3652.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3653.72:
allocate(f(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3654.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3655.72:
allocate(w(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3656.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3657.72:
allocate(v(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3658.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3659.72:
allocate(a(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3660.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3661.72:
allocate(as(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3662.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3663.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3664.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3665.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3666.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3667.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3668.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3669.72:
allocate(jp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3670.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3671.72:
allocate(kp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3672.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3673.72:
allocate(dk(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3674.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3675.72:
allocate(wr(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3676.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3677.72:
allocate(dq(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3678.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3679.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3680.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:3681.72:
if(jerr.ne.0)go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:3682.72:
call groups(no,y,d,q,nk,kp,jp,t0,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3683.72:
if(jerr.ne.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:3684.72:
alpha=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:3685.72:
oma=1.0-alpha
1
Warning: Line truncated at (1)
newGLMnet.f90:3686.72:
nlm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3687.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3688.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3689.72:
dq=d*q
1
Warning: Line truncated at (1)
newGLMnet.f90:3690.72:
call died(no,nk,dq,kp,jp,dk)
1
Warning: Line truncated at (1)
newGLMnet.f90:3691.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3692.72:
f(1)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3693.72:
fmax=log(huge(f(1))*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:3694.72:
if(nonzero(no,g) .eq. 0)goto 15711
1
Warning: Line truncated at (1)
newGLMnet.f90:3695.72:
f=g-dot_product(q,g)
1
Warning: Line truncated at (1)
newGLMnet.f90:3696.72:
e=q*exp(sign(min(abs(f),fmax),f))
1
Warning: Line truncated at (1)
newGLMnet.f90:3697.72:
goto 15721
1
Warning: Line truncated at (1)
newGLMnet.f90:3698.72:
15711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3699.72:
f=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3700.72:
e=q
1
Warning: Line truncated at (1)
newGLMnet.f90:3701.72:
15721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3702.72:
15701 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3703.72:
r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)
1
Warning: Line truncated at (1)
newGLMnet.f90:3704.72:
rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3705.72:
dev0=rr
1
Warning: Line truncated at (1)
newGLMnet.f90:3706.72:
15730 do 15731 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3707.72:
if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751
1
Warning: Line truncated at (1)
newGLMnet.f90:3708.72:
w(i)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3709.72:
wr(i)=w(i)
1
Warning: Line truncated at (1)
newGLMnet.f90:3710.72:
15751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3711.72:
15731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3712.72:
15732 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3713.72:
call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)
1
Warning: Line truncated at (1)
newGLMnet.f90:3714.72:
if(jerr.ne.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:3715.72:
if(flmin .ge. 1.0)goto 15771
1
Warning: Line truncated at (1)
newGLMnet.f90:3716.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:3717.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:3718.72:
15771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3719.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3720.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3721.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3722.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:3723.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:3724.72:
as=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3725.72:
cthr=cthri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:3726.72:
15780 do 15781 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3727.72:
if(ju(j).eq.0)goto 15781
1
Warning: Line truncated at (1)
newGLMnet.f90:3728.72:
ga(j)=abs(dot_product(wr,x(:,j)))
1
Warning: Line truncated at (1)
newGLMnet.f90:3729.72:
15781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3730.72:
15782 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3731.72:
15790 do 15791 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:3732.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:3733.72:
if(flmin .lt. 1.0)goto 15811
1
Warning: Line truncated at (1)
newGLMnet.f90:3734.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:3735.72:
goto 15801
1
Warning: Line truncated at (1)
newGLMnet.f90:3736.72:
15811 if(ilm .le. 2)goto 15821
1
Warning: Line truncated at (1)
newGLMnet.f90:3737.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:3738.72:
goto 15801
1
Warning: Line truncated at (1)
newGLMnet.f90:3739.72:
15821 if(ilm .ne. 1)goto 15831
1
Warning: Line truncated at (1)
newGLMnet.f90:3740.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:3741.72:
goto 15841
1
Warning: Line truncated at (1)
newGLMnet.f90:3742.72:
15831 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3743.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3744.72:
15850 do 15851 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3745.72:
if(ju(j).eq.0)goto 15851
1
Warning: Line truncated at (1)
newGLMnet.f90:3746.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3747.72:
15851 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3748.72:
15852 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3749.72:
al0=al0/max(parm,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:3750.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:3751.72:
15841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3752.72:
15801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3753.72:
sa=alpha*al
1
Warning: Line truncated at (1)
newGLMnet.f90:3754.72:
omal=oma*al
1
Warning: Line truncated at (1)
newGLMnet.f90:3755.72:
tlam=alpha*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3756.72:
15860 do 15861 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3757.72:
if(ixx(k).eq.1)goto 15861
1
Warning: Line truncated at (1)
newGLMnet.f90:3758.72:
if(ju(k).eq.0)goto 15861
1
Warning: Line truncated at (1)
newGLMnet.f90:3759.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3760.72:
15861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3761.72:
15862 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3762.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3763.72:
15870 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3764.72:
15871 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3765.72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:3766.72:
call vars(no,ni,x,w,ixx,v)
1
Warning: Line truncated at (1)
newGLMnet.f90:3767.72:
15880 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3768.72:
15881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3769.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3770.72:
dli=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3771.72:
15890 do 15891 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3772.72:
if(ixx(j).eq.0)goto 15891
1
Warning: Line truncated at (1)
newGLMnet.f90:3773.72:
u=a(j)*v(j)+dot_product(wr,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3774.72:
if(abs(u) .gt. vp(j)*sa)goto 15911
1
Warning: Line truncated at (1)
newGLMnet.f90:3775.72:
at=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3776.72:
goto 15921
1
Warning: Line truncated at (1)
newGLMnet.f90:3777.72:
15911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3778.72:
at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)
1
Warning: Line truncated at (1)
newGLMnet.f90:3779.72:
15921 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3780.72:
15901 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3781.72:
if(at .eq. a(j))goto 15941
1
Warning: Line truncated at (1)
newGLMnet.f90:3782.72:
del=at-a(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3783.72:
a(j)=at
1
Warning: Line truncated at (1)
newGLMnet.f90:3784.72:
dli=max(dli,v(j)*del**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3785.72:
wr=wr-del*w*x(:,j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3786.72:
f=f+del*x(:,j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3787.72:
if(mm(j) .ne. 0)goto 15961
1
Warning: Line truncated at (1)
newGLMnet.f90:3788.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3789.72:
if(nin.gt.nx)goto 15892
1
Warning: Line truncated at (1)
newGLMnet.f90:3790.72:
mm(j)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3791.72:
m(nin)=j
1
Warning: Line truncated at (1)
newGLMnet.f90:3792.72:
15961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3793.72:
15941 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3794.72:
15891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3795.72:
15892 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3796.72:
if(nin.gt.nx)goto 15882
1
Warning: Line truncated at (1)
newGLMnet.f90:3797.72:
if(dli.lt.cthr)goto 15882
1
Warning: Line truncated at (1)
newGLMnet.f90:3798.72:
if(nlp .le. maxit)goto 15981
1
Warning: Line truncated at (1)
newGLMnet.f90:3799.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3800.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3801.72:
15981 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3802.72:
15990 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3803.72:
15991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3804.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3805.72:
dli=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3806.72:
16000 do 16001 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3807.72:
j=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:3808.72:
u=a(j)*v(j)+dot_product(wr,x(:,j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3809.72:
if(abs(u) .gt. vp(j)*sa)goto 16021
1
Warning: Line truncated at (1)
newGLMnet.f90:3810.72:
at=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3811.72:
goto 16031
1
Warning: Line truncated at (1)
newGLMnet.f90:3812.72:
16021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3813.72:
at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)
1
Warning: Line truncated at (1)
newGLMnet.f90:3814.72:
16031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3815.72:
16011 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3816.72:
if(at .eq. a(j))goto 16051
1
Warning: Line truncated at (1)
newGLMnet.f90:3817.72:
del=at-a(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3818.72:
a(j)=at
1
Warning: Line truncated at (1)
newGLMnet.f90:3819.72:
dli=max(dli,v(j)*del**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:3820.72:
wr=wr-del*w*x(:,j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3821.72:
f=f+del*x(:,j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3822.72:
16051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3823.72:
16001 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3824.72:
16002 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3825.72:
if(dli.lt.cthr)goto 15992
1
Warning: Line truncated at (1)
newGLMnet.f90:3826.72:
if(nlp .le. maxit)goto 16071
1
Warning: Line truncated at (1)
newGLMnet.f90:3827.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3828.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3829.72:
16071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3830.72:
goto 15991
1
Warning: Line truncated at (1)
newGLMnet.f90:3831.72:
15992 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3832.72:
goto 15881
1
Warning: Line truncated at (1)
newGLMnet.f90:3833.72:
15882 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3834.72:
if(nin.gt.nx)goto 15872
1
Warning: Line truncated at (1)
newGLMnet.f90:3835.72:
e=q*exp(sign(min(abs(f),fmax),f))
1
Warning: Line truncated at (1)
newGLMnet.f90:3836.72:
call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)
1
Warning: Line truncated at (1)
newGLMnet.f90:3837.72:
if(jerr .eq. 0)goto 16091
1
Warning: Line truncated at (1)
newGLMnet.f90:3838.72:
jerr=jerr-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3839.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:3840.72:
16091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3841.72:
ix=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3842.72:
16100 do 16101 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3843.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3844.72:
if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101
1
Warning: Line truncated at (1)
newGLMnet.f90:3845.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3846.72:
goto 16102
1
Warning: Line truncated at (1)
newGLMnet.f90:3847.72:
16101 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3848.72:
16102 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3849.72:
if(ix .ne. 0)goto 16121
1
Warning: Line truncated at (1)
newGLMnet.f90:3850.72:
16130 do 16131 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:3851.72:
if(ixx(k).eq.1)goto 16131
1
Warning: Line truncated at (1)
newGLMnet.f90:3852.72:
if(ju(k).eq.0)goto 16131
1
Warning: Line truncated at (1)
newGLMnet.f90:3853.72:
ga(k)=abs(dot_product(wr,x(:,k)))
1
Warning: Line truncated at (1)
newGLMnet.f90:3854.72:
if(ga(k) .le. sa*vp(k))goto 16151
1
Warning: Line truncated at (1)
newGLMnet.f90:3855.72:
ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3856.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3857.72:
16151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3858.72:
16131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3859.72:
16132 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3860.72:
if(ix.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:3861.72:
goto 15872
1
Warning: Line truncated at (1)
newGLMnet.f90:3862.72:
16121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3863.72:
goto 15871
1
Warning: Line truncated at (1)
newGLMnet.f90:3864.72:
15872 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3865.72:
if(nin .le. nx)goto 16171
1
Warning: Line truncated at (1)
newGLMnet.f90:3866.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3867.72:
goto 15792
1
Warning: Line truncated at (1)
newGLMnet.f90:3868.72:
16171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3869.72:
if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:3870.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3871.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:3872.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:3873.72:
dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr
1
Warning: Line truncated at (1)
newGLMnet.f90:3874.72:
if(ilm.lt.mnl)goto 15791
1
Warning: Line truncated at (1)
newGLMnet.f90:3875.72:
if(flmin.ge.1.0)goto 15791
1
Warning: Line truncated at (1)
newGLMnet.f90:3876.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3877.72:
16180 do 16181 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:3878.72:
if(ao(j,ilm).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3879.72:
16181 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3880.72:
16182 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3881.72:
if(me.gt.ne)goto 15792
1
Warning: Line truncated at (1)
newGLMnet.f90:3882.72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792
1
Warning: Line truncated at (1)
newGLMnet.f90:3883.72:
if(dev(ilm).gt.devmax)goto 15792
1
Warning: Line truncated at (1)
newGLMnet.f90:3884.72:
15791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3885.72:
15792 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3886.72:
g=f
1
Warning: Line truncated at (1)
newGLMnet.f90:3887.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3888.72:
deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:3889.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3890.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3891.72:
subroutine cxmodval(ca,ia,nin,n,x,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:3892.72:
real ca(nin),x(n,*),f(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:3893.72:
integer ia(nin)
1
Warning: Line truncated at (1)
newGLMnet.f90:3894.72:
f=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:3895.72:
if(nin.le.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:3896.72:
16190 do 16191 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:3897.72:
f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))
1
Warning: Line truncated at (1)
newGLMnet.f90:3898.72:
16191 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3899.72:
16192 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3900.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3901.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3902.72:
subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:3903.72:
real y(no),d(no),q(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:3904.72:
integer jp(no),kp(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:3905.72:
16200 do 16201 j=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3906.72:
jp(j)=j
1
Warning: Line truncated at (1)
newGLMnet.f90:3907.72:
16201 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3908.72:
16202 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3909.72:
call psort7(y,jp,1,no)
1
Warning: Line truncated at (1)
newGLMnet.f90:3910.72:
nj=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3911.72:
16210 do 16211 j=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:3912.72:
if(q(jp(j)).le.0.0)goto 16211
1
Warning: Line truncated at (1)
newGLMnet.f90:3913.72:
nj=nj+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3914.72:
jp(nj)=jp(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3915.72:
16211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3916.72:
16212 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3917.72:
if(nj .ne. 0)goto 16231
1
Warning: Line truncated at (1)
newGLMnet.f90:3918.72:
jerr=20000
1
Warning: Line truncated at (1)
newGLMnet.f90:3919.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3920.72:
16231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3921.72:
j=1
1
Warning: Line truncated at (1)
newGLMnet.f90:3922.72:
16240 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3923.72:
16241 if(d(jp(j)).gt.0.0)goto 16242
1
Warning: Line truncated at (1)
newGLMnet.f90:3924.72:
j=j+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3925.72:
if(j.gt.nj)goto 16242
1
Warning: Line truncated at (1)
newGLMnet.f90:3926.72:
goto 16241
1
Warning: Line truncated at (1)
newGLMnet.f90:3927.72:
16242 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3928.72:
if(j .lt. nj-1)goto 16261
1
Warning: Line truncated at (1)
newGLMnet.f90:3929.72:
jerr=30000
1
Warning: Line truncated at (1)
newGLMnet.f90:3930.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3931.72:
16261 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3932.72:
j0=j-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3933.72:
nj=nj-j0
1
Warning: Line truncated at (1)
newGLMnet.f90:3934.72:
16270 do 16271 j=1,nj
1
Warning: Line truncated at (1)
newGLMnet.f90:3935.72:
jp(j)=jp(j+j0)
1
Warning: Line truncated at (1)
newGLMnet.f90:3936.72:
16271 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3937.72:
16272 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3938.72:
jerr=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3939.72:
nk=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3940.72:
t0=y(jp(1))
1
Warning: Line truncated at (1)
newGLMnet.f90:3941.72:
yk=t0
1
Warning: Line truncated at (1)
newGLMnet.f90:3942.72:
j=2
1
Warning: Line truncated at (1)
newGLMnet.f90:3943.72:
16280 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3944.72:
16281 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3945.72:
16290 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3946.72:
16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292
1
Warning: Line truncated at (1)
newGLMnet.f90:3947.72:
j=j+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3948.72:
if(j.gt.nj)goto 16292
1
Warning: Line truncated at (1)
newGLMnet.f90:3949.72:
goto 16291
1
Warning: Line truncated at (1)
newGLMnet.f90:3950.72:
16292 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3951.72:
nk=nk+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3952.72:
kp(nk)=j-1
1
Warning: Line truncated at (1)
newGLMnet.f90:3953.72:
if(j.gt.nj)goto 16282
1
Warning: Line truncated at (1)
newGLMnet.f90:3954.72:
if(j .ne. nj)goto 16311
1
Warning: Line truncated at (1)
newGLMnet.f90:3955.72:
nk=nk+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3956.72:
kp(nk)=nj
1
Warning: Line truncated at (1)
newGLMnet.f90:3957.72:
goto 16282
1
Warning: Line truncated at (1)
newGLMnet.f90:3958.72:
16311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3959.72:
yk=y(jp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:3960.72:
j=j+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3961.72:
goto 16281
1
Warning: Line truncated at (1)
newGLMnet.f90:3962.72:
16282 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3963.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3964.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:3965.72:
subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:3966.72:
real d(no),dk(nk),wr(no),w(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:3967.72:
real e(no),u(no),b,c
1
Warning: Line truncated at (1)
newGLMnet.f90:3968.72:
integer kp(nk),jp(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:3969.72:
call usk(no,nk,kp,jp,e,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:3970.72:
b=dk(1)/u(1)
1
Warning: Line truncated at (1)
newGLMnet.f90:3971.72:
c=dk(1)/u(1)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:3972.72:
jerr=0
1
Warning: Line truncated at (1)
newGLMnet.f90:3973.72:
16320 do 16321 j=1,kp(1)
1
Warning: Line truncated at (1)
newGLMnet.f90:3974.72:
i=jp(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3975.72:
w(i)=e(i)*(b-e(i)*c)
1
Warning: Line truncated at (1)
newGLMnet.f90:3976.72:
if(w(i) .gt. 0.0)goto 16341
1
Warning: Line truncated at (1)
newGLMnet.f90:3977.72:
jerr=-3
1
Warning: Line truncated at (1)
newGLMnet.f90:3978.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3979.72:
16341 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3980.72:
wr(i)=d(i)-e(i)*b
1
Warning: Line truncated at (1)
newGLMnet.f90:3981.72:
16321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3982.72:
16322 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3983.72:
16350 do 16351 k=2,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:3984.72:
j1=kp(k-1)+1
1
Warning: Line truncated at (1)
newGLMnet.f90:3985.72:
j2=kp(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3986.72:
b=b+dk(k)/u(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:3987.72:
c=c+dk(k)/u(k)**2
1
Warning: Line truncated at (1)
newGLMnet.f90:3988.72:
16360 do 16361 j=j1,j2
1
Warning: Line truncated at (1)
newGLMnet.f90:3989.72:
i=jp(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:3990.72:
w(i)=e(i)*(b-e(i)*c)
1
Warning: Line truncated at (1)
newGLMnet.f90:3991.72:
if(w(i) .gt. 0.0)goto 16381
1
Warning: Line truncated at (1)
newGLMnet.f90:3992.72:
jerr=-30000
1
Warning: Line truncated at (1)
newGLMnet.f90:3993.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:3994.72:
16381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3995.72:
wr(i)=d(i)-e(i)*b
1
Warning: Line truncated at (1)
newGLMnet.f90:3996.72:
16361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3997.72:
16362 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3998.72:
16351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:3999.72:
16352 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4000.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4001.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4002.72:
subroutine vars(no,ni,x,w,ixx,v)
1
Warning: Line truncated at (1)
newGLMnet.f90:4003.72:
real x(no,ni),w(no),v(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:4004.72:
integer ixx(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:4005.72:
16390 do 16391 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4006.72:
if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4007.72:
16391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4008.72:
16392 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4009.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4010.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4011.72:
subroutine died(no,nk,d,kp,jp,dk)
1
Warning: Line truncated at (1)
newGLMnet.f90:4012.72:
real d(no),dk(nk)
1
Warning: Line truncated at (1)
newGLMnet.f90:4013.72:
integer kp(nk),jp(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:4014.72:
dk(1)=sum(d(jp(1:kp(1))))
1
Warning: Line truncated at (1)
newGLMnet.f90:4015.72:
16400 do 16401 k=2,nk
1
Warning: Line truncated at (1)
newGLMnet.f90:4016.72:
dk(k)=sum(d(jp((kp(k-1)+1):kp(k))))
1
Warning: Line truncated at (1)
newGLMnet.f90:4017.72:
16401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4018.72:
16402 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4019.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4020.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4021.72:
subroutine usk(no,nk,kp,jp,e,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:4022.72:
real e(no),u(nk),h
1
Warning: Line truncated at (1)
newGLMnet.f90:4023.72:
integer kp(nk),jp(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:4024.72:
h=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4025.72:
16410 do 16411 k=nk,1,-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4026.72:
j2=kp(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4027.72:
j1=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4028.72:
if(k.gt.1) j1=kp(k-1)+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4029.72:
16420 do 16421 j=j2,j1,-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4030.72:
h=h+e(jp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:4031.72:
16421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4032.72:
16422 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4033.72:
u(k)=h
1
Warning: Line truncated at (1)
newGLMnet.f90:4034.72:
16411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4035.72:
16412 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4036.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4037.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4038.72:
function risk(no,ni,nk,d,dk,f,e,kp,jp,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:4039.72:
real d(no),dk(nk),f(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:4040.72:
integer kp(nk),jp(no)
1
Warning: Line truncated at (1)
newGLMnet.f90:4041.72:
real e(no),u(nk),s
1
Warning: Line truncated at (1)
newGLMnet.f90:4042.72:
call usk(no,nk,kp,jp,e,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:4043.72:
u=log(u)
1
Warning: Line truncated at (1)
newGLMnet.f90:4044.72:
risk=dot_product(d,f)-dot_product(dk,u)
1
Warning: Line truncated at (1)
newGLMnet.f90:4045.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4046.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4047.72:
subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4048.72:
real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4052.72:
allocate(e(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4053.72:
allocate(q(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4054.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4055.72:
allocate(uu(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4056.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4057.72:
allocate(f(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4058.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4059.72:
allocate(dk(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4060.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4061.72:
allocate(jp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4062.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4063.72:
allocate(kp(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4064.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4065.72:
allocate(dq(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4066.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4067.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4068.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4069.72:
if(jerr.ne.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4070.72:
q=max(0.0,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4071.72:
sw=sum(q)
1
Warning: Line truncated at (1)
newGLMnet.f90:4072.72:
if(sw .gt. 0.0)goto 16441
1
Warning: Line truncated at (1)
newGLMnet.f90:4073.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4074.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4075.72:
16441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4076.72:
call groups(no,y,d,q,nk,kp,jp,t0,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4077.72:
if(jerr.ne.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4078.72:
fmax=log(huge(e(1))*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4079.72:
dq=d*q
1
Warning: Line truncated at (1)
newGLMnet.f90:4080.72:
call died(no,nk,dq,kp,jp,dk)
1
Warning: Line truncated at (1)
newGLMnet.f90:4081.72:
gm=dot_product(q,g)/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4082.72:
16450 do 16451 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4083.72:
xm(j)=dot_product(q,x(:,j))/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4084.72:
16451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4085.72:
16452 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4086.72:
16460 do 16461 lam=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4087.72:
16470 do 16471 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:4088.72:
f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm))
1
Warning: Line truncated at (1)
newGLMnet.f90:4089.72:
e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4090.72:
16471 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4091.72:
16472 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4092.72:
flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4093.72:
16461 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4094.72:
16462 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4095.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4096.72:
deallocate(e,uu,dk,f,jp,kp,dq)
1
Warning: Line truncated at (1)
newGLMnet.f90:4097.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4098.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4099.72:
subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:4101.72:
real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4102.72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4103.72:
integer jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4106.72:
if(maxval(vp) .gt. 0.0)goto 16491
1
Warning: Line truncated at (1)
newGLMnet.f90:4107.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:4108.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4109.72:
16491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4110.72:
if(minval(y) .ge. 0.0)goto 16511
1
Warning: Line truncated at (1)
newGLMnet.f90:4111.72:
jerr=8888
1
Warning: Line truncated at (1)
newGLMnet.f90:4112.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4113.72:
16511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4114.72:
allocate(ww(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4115.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4116.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4117.72:
allocate(vq(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4118.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4119.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4120.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4121.72:
if(isd .le. 0)goto 16531
1
Warning: Line truncated at (1)
newGLMnet.f90:4122.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4123.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4124.72:
16531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4125.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4126.72:
call chkvars(no,ni,x,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:4127.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4128.72:
if(maxval(ju) .gt. 0)goto 16551
1
Warning: Line truncated at (1)
newGLMnet.f90:4129.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:4130.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4131.72:
16551 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4132.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:4133.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:4134.72:
ww=max(0.0,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4135.72:
sw=sum(ww)
1
Warning: Line truncated at (1)
newGLMnet.f90:4136.72:
if(sw .gt. 0.0)goto 16571
1
Warning: Line truncated at (1)
newGLMnet.f90:4137.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4138.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4139.72:
16571 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4140.72:
ww=ww/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4141.72:
call lstandard1(no,ni,x,ww,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:4142.72:
call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr,
1
Warning: Line truncated at (1)
newGLMnet.f90:4144.72:
if(jerr.gt.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4145.72:
dev0=2.0*sw*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:4146.72:
16580 do 16581 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:4147.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4148.72:
if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))
1
Warning: Line truncated at (1)
newGLMnet.f90:4149.72:
a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4150.72:
16581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4151.72:
16582 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4152.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4153.72:
deallocate(ww,ju,vq,xm)
1
Warning: Line truncated at (1)
newGLMnet.f90:4154.72:
if(isd.gt.0) deallocate(xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:4155.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4156.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4157.72:
subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam
1
Warning: Line truncated at (1)
newGLMnet.f90:4159.72:
parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:4161.72:
real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4162.72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4163.72:
integer ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4166.72:
allocate(a(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4167.72:
allocate(as(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4168.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4169.72:
allocate(t(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4170.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4171.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4172.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4173.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4174.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4175.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4176.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4177.72:
allocate(wr(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4178.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4179.72:
allocate(v(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4180.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4181.72:
allocate(w(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4182.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4183.72:
allocate(f(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4184.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4185.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4186.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:4187.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:4188.72:
t=q*y
1
Warning: Line truncated at (1)
newGLMnet.f90:4189.72:
yb=sum(t)
1
Warning: Line truncated at (1)
newGLMnet.f90:4190.72:
fmax=log(huge(bta)*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4191.72:
if(nonzero(no,g) .ne. 0)goto 16601
1
Warning: Line truncated at (1)
newGLMnet.f90:4192.72:
w=q*yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4193.72:
az=log(yb)
1
Warning: Line truncated at (1)
newGLMnet.f90:4194.72:
f=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4195.72:
dv0=yb*(log(yb)-1.0)
1
Warning: Line truncated at (1)
newGLMnet.f90:4196.72:
goto 16611
1
Warning: Line truncated at (1)
newGLMnet.f90:4197.72:
16601 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4198.72:
w=q*exp(sign(min(abs(g),fmax),g))
1
Warning: Line truncated at (1)
newGLMnet.f90:4199.72:
v0=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4200.72:
eaz=yb/v0
1
Warning: Line truncated at (1)
newGLMnet.f90:4201.72:
w=eaz*w
1
Warning: Line truncated at (1)
newGLMnet.f90:4202.72:
az=log(eaz)
1
Warning: Line truncated at (1)
newGLMnet.f90:4203.72:
f=az+g
1
Warning: Line truncated at (1)
newGLMnet.f90:4204.72:
dv0=dot_product(t,g)-yb*(1.0-az)
1
Warning: Line truncated at (1)
newGLMnet.f90:4205.72:
16611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4206.72:
16591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4207.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4208.72:
as=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4209.72:
wr=t-w
1
Warning: Line truncated at (1)
newGLMnet.f90:4210.72:
v0=yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4211.72:
dvr=-yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4212.72:
16620 do 16621 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:4213.72:
if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:4214.72:
16621 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4215.72:
16622 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4216.72:
dvr=dvr-dv0
1
Warning: Line truncated at (1)
newGLMnet.f90:4217.72:
dev0=dvr
1
Warning: Line truncated at (1)
newGLMnet.f90:4218.72:
if(flmin .ge. 1.0)goto 16641
1
Warning: Line truncated at (1)
newGLMnet.f90:4219.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:4220.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:4221.72:
16641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4222.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4223.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4224.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4225.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:4226.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4227.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:4228.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4229.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4230.72:
16650 do 16651 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4231.72:
if(ju(j).eq.0)goto 16651
1
Warning: Line truncated at (1)
newGLMnet.f90:4232.72:
ga(j)=abs(dot_product(wr,x(:,j)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4233.72:
16651 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4234.72:
16652 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4235.72:
16660 do 16661 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4236.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:4237.72:
if(flmin .lt. 1.0)goto 16681
1
Warning: Line truncated at (1)
newGLMnet.f90:4238.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:4239.72:
goto 16671
1
Warning: Line truncated at (1)
newGLMnet.f90:4240.72:
16681 if(ilm .le. 2)goto 16691
1
Warning: Line truncated at (1)
newGLMnet.f90:4241.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:4242.72:
goto 16671
1
Warning: Line truncated at (1)
newGLMnet.f90:4243.72:
16691 if(ilm .ne. 1)goto 16701
1
Warning: Line truncated at (1)
newGLMnet.f90:4244.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:4245.72:
goto 16711
1
Warning: Line truncated at (1)
newGLMnet.f90:4246.72:
16701 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4247.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4248.72:
16720 do 16721 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4249.72:
if(ju(j).eq.0)goto 16721
1
Warning: Line truncated at (1)
newGLMnet.f90:4250.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:4251.72:
16721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4252.72:
16722 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4253.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:4254.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:4255.72:
16711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4256.72:
16671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4257.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:4258.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:4259.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:4260.72:
16730 do 16731 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4261.72:
if(ixx(k).eq.1)goto 16731
1
Warning: Line truncated at (1)
newGLMnet.f90:4262.72:
if(ju(k).eq.0)goto 16731
1
Warning: Line truncated at (1)
newGLMnet.f90:4263.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4264.72:
16731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4265.72:
16732 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4266.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4267.72:
16740 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4268.72:
16741 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4269.72:
az0=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4270.72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:4271.72:
16750 do 16751 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4272.72:
if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4273.72:
16751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4274.72:
16752 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4275.72:
16760 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4276.72:
16761 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4277.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4278.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4279.72:
16770 do 16771 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4280.72:
if(ixx(k).eq.0)goto 16771
1
Warning: Line truncated at (1)
newGLMnet.f90:4281.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4282.72:
u=dot_product(wr,x(:,k))+v(k)*ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4283.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:4284.72:
if(au .gt. 0.0)goto 16791
1
Warning: Line truncated at (1)
newGLMnet.f90:4285.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4286.72:
goto 16801
1
Warning: Line truncated at (1)
newGLMnet.f90:4287.72:
16791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4288.72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4289.72:
16801 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4290.72:
16781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4291.72:
if(a(k).eq.ak)goto 16771
1
Warning: Line truncated at (1)
newGLMnet.f90:4292.72:
d=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4293.72:
dlx=max(dlx,v(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4294.72:
wr=wr-d*w*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4295.72:
f=f+d*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4296.72:
if(mm(k) .ne. 0)goto 16821
1
Warning: Line truncated at (1)
newGLMnet.f90:4297.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4298.72:
if(nin.gt.nx)goto 16772
1
Warning: Line truncated at (1)
newGLMnet.f90:4299.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4300.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:4301.72:
16821 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4302.72:
16771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4303.72:
16772 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4304.72:
if(nin.gt.nx)goto 16762
1
Warning: Line truncated at (1)
newGLMnet.f90:4305.72:
d=sum(wr)/v0
1
Warning: Line truncated at (1)
newGLMnet.f90:4306.72:
az=az+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4307.72:
dlx=max(dlx,v0*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4308.72:
wr=wr-d*w
1
Warning: Line truncated at (1)
newGLMnet.f90:4309.72:
f=f+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4310.72:
if(dlx.lt.shr)goto 16762
1
Warning: Line truncated at (1)
newGLMnet.f90:4311.72:
if(nlp .le. maxit)goto 16841
1
Warning: Line truncated at (1)
newGLMnet.f90:4312.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4313.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4314.72:
16841 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4315.72:
16850 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4316.72:
16851 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4317.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4318.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4319.72:
16860 do 16861 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4320.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:4321.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4322.72:
u=dot_product(wr,x(:,k))+v(k)*ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4323.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:4324.72:
if(au .gt. 0.0)goto 16881
1
Warning: Line truncated at (1)
newGLMnet.f90:4325.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4326.72:
goto 16891
1
Warning: Line truncated at (1)
newGLMnet.f90:4327.72:
16881 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4328.72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4329.72:
16891 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4330.72:
16871 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4331.72:
if(a(k).eq.ak)goto 16861
1
Warning: Line truncated at (1)
newGLMnet.f90:4332.72:
d=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4333.72:
dlx=max(dlx,v(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4334.72:
wr=wr-d*w*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4335.72:
f=f+d*x(:,k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4336.72:
16861 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4337.72:
16862 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4338.72:
d=sum(wr)/v0
1
Warning: Line truncated at (1)
newGLMnet.f90:4339.72:
az=az+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4340.72:
dlx=max(dlx,v0*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4341.72:
wr=wr-d*w
1
Warning: Line truncated at (1)
newGLMnet.f90:4342.72:
f=f+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4343.72:
if(dlx.lt.shr)goto 16852
1
Warning: Line truncated at (1)
newGLMnet.f90:4344.72:
if(nlp .le. maxit)goto 16911
1
Warning: Line truncated at (1)
newGLMnet.f90:4345.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4346.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4347.72:
16911 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4348.72:
goto 16851
1
Warning: Line truncated at (1)
newGLMnet.f90:4349.72:
16852 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4350.72:
goto 16761
1
Warning: Line truncated at (1)
newGLMnet.f90:4351.72:
16762 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4352.72:
if(nin.gt.nx)goto 16742
1
Warning: Line truncated at (1)
newGLMnet.f90:4353.72:
w=q*exp(sign(min(abs(f),fmax),f))
1
Warning: Line truncated at (1)
newGLMnet.f90:4354.72:
v0=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4355.72:
wr=t-w
1
Warning: Line truncated at (1)
newGLMnet.f90:4356.72:
if(v0*(az-az0)**2 .ge. shr)goto 16931
1
Warning: Line truncated at (1)
newGLMnet.f90:4357.72:
ix=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4358.72:
16940 do 16941 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4359.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4360.72:
if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941
1
Warning: Line truncated at (1)
newGLMnet.f90:4361.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4362.72:
goto 16942
1
Warning: Line truncated at (1)
newGLMnet.f90:4363.72:
16941 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4364.72:
16942 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4365.72:
if(ix .ne. 0)goto 16961
1
Warning: Line truncated at (1)
newGLMnet.f90:4366.72:
16970 do 16971 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4367.72:
if(ixx(k).eq.1)goto 16971
1
Warning: Line truncated at (1)
newGLMnet.f90:4368.72:
if(ju(k).eq.0)goto 16971
1
Warning: Line truncated at (1)
newGLMnet.f90:4369.72:
ga(k)=abs(dot_product(wr,x(:,k)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4370.72:
if(ga(k) .le. al1*vp(k))goto 16991
1
Warning: Line truncated at (1)
newGLMnet.f90:4371.72:
ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4372.72:
ix=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4373.72:
16991 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4374.72:
16971 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4375.72:
16972 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4376.72:
if(ix.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:4377.72:
goto 16742
1
Warning: Line truncated at (1)
newGLMnet.f90:4378.72:
16961 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4379.72:
16931 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4380.72:
goto 16741
1
Warning: Line truncated at (1)
newGLMnet.f90:4381.72:
16742 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4382.72:
if(nin .le. nx)goto 17011
1
Warning: Line truncated at (1)
newGLMnet.f90:4383.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4384.72:
goto 16662
1
Warning: Line truncated at (1)
newGLMnet.f90:4385.72:
17011 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4386.72:
if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:4387.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4388.72:
a0(ilm)=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4389.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:4390.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4391.72:
dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr
1
Warning: Line truncated at (1)
newGLMnet.f90:4392.72:
if(ilm.lt.mnl)goto 16661
1
Warning: Line truncated at (1)
newGLMnet.f90:4393.72:
if(flmin.ge.1.0)goto 16661
1
Warning: Line truncated at (1)
newGLMnet.f90:4394.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4395.72:
17020 do 17021 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4396.72:
if(ca(j,ilm).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4397.72:
17021 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4398.72:
17022 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4399.72:
if(me.gt.ne)goto 16662
1
Warning: Line truncated at (1)
newGLMnet.f90:4400.72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662
1
Warning: Line truncated at (1)
newGLMnet.f90:4401.72:
if(dev(ilm).gt.devmax)goto 16662
1
Warning: Line truncated at (1)
newGLMnet.f90:4402.72:
16661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4403.72:
16662 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4404.72:
g=f
1
Warning: Line truncated at (1)
newGLMnet.f90:4405.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4406.72:
deallocate(t,w,wr,v,a,f,as,mm,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:4407.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4408.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4409.72:
function nonzero(n,v)
1
Warning: Line truncated at (1)
newGLMnet.f90:4410.72:
real v(n)
1
Warning: Line truncated at (1)
newGLMnet.f90:4411.72:
nonzero=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4412.72:
17030 do 17031 i=1,n
1
Warning: Line truncated at (1)
newGLMnet.f90:4413.72:
if(v(i) .eq. 0.0)goto 17051
1
Warning: Line truncated at (1)
newGLMnet.f90:4414.72:
nonzero=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4415.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4416.72:
17051 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4417.72:
17031 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4418.72:
17032 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4419.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4420.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4421.72:
subroutine solns(ni,nx,lmu,a,ia,nin,b)
1
Warning: Line truncated at (1)
newGLMnet.f90:4422.72:
real a(nx,lmu),b(ni,lmu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4423.72:
integer ia(nx),nin(lmu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4424.72:
17060 do 17061 lam=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:4425.72:
call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam))
1
Warning: Line truncated at (1)
newGLMnet.f90:4426.72:
17061 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4427.72:
17062 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4428.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4429.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4430.72:
subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b)
1
Warning: Line truncated at (1)
newGLMnet.f90:4431.72:
real a(nx,nc,lmu),b(ni,nc,lmu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4432.72:
integer ia(nx),nin(lmu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4433.72:
17070 do 17071 lam=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:4434.72:
call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam))
1
Warning: Line truncated at (1)
newGLMnet.f90:4435.72:
17071 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4436.72:
17072 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4437.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4438.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4439.72:
subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4440.72:
real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4442.72:
if(minval(y) .ge. 0.0)goto 17091
1
Warning: Line truncated at (1)
newGLMnet.f90:4443.72:
jerr=8888
1
Warning: Line truncated at (1)
newGLMnet.f90:4444.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4445.72:
17091 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4446.72:
allocate(w(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4447.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4448.72:
w=max(0.0,q)
1
Warning: Line truncated at (1)
newGLMnet.f90:4449.72:
sw=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4450.72:
if(sw .gt. 0.0)goto 17111
1
Warning: Line truncated at (1)
newGLMnet.f90:4451.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4452.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4453.72:
17111 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4454.72:
yb=dot_product(w,y)/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4455.72:
fmax=log(huge(y(1))*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4456.72:
17120 do 17121 lam=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4457.72:
s=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4458.72:
17130 do 17131 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:4459.72:
if(w(i).le.0.0)goto 17131
1
Warning: Line truncated at (1)
newGLMnet.f90:4460.72:
f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:))
1
Warning: Line truncated at (1)
newGLMnet.f90:4461.72:
s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4462.72:
17131 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4463.72:
17132 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4464.72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)
1
Warning: Line truncated at (1)
newGLMnet.f90:4465.72:
17121 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4466.72:
17122 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4467.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4468.72:
deallocate(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4469.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4470.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4471.72:
subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl
1
Warning: Line truncated at (1)
newGLMnet.f90:4473.72:
real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4474.72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4475.72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4478.72:
if(maxval(vp) .gt. 0.0)goto 17151
1
Warning: Line truncated at (1)
newGLMnet.f90:4479.72:
jerr=10000
1
Warning: Line truncated at (1)
newGLMnet.f90:4480.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4481.72:
17151 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4482.72:
if(minval(y) .ge. 0.0)goto 17171
1
Warning: Line truncated at (1)
newGLMnet.f90:4483.72:
jerr=8888
1
Warning: Line truncated at (1)
newGLMnet.f90:4484.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4485.72:
17171 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4486.72:
allocate(ww(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4487.72:
allocate(ju(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4488.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4489.72:
allocate(vq(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4490.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4491.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4492.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4493.72:
allocate(xs(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4494.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4495.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4496.72:
call spchkvars(no,ni,x,ix,ju)
1
Warning: Line truncated at (1)
newGLMnet.f90:4497.72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4498.72:
if(maxval(ju) .gt. 0)goto 17191
1
Warning: Line truncated at (1)
newGLMnet.f90:4499.72:
jerr=7777
1
Warning: Line truncated at (1)
newGLMnet.f90:4500.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4501.72:
17191 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4502.72:
vq=max(0.0,vp)
1
Warning: Line truncated at (1)
newGLMnet.f90:4503.72:
vq=vq*ni/sum(vq)
1
Warning: Line truncated at (1)
newGLMnet.f90:4504.72:
ww=max(0.0,w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4505.72:
sw=sum(ww)
1
Warning: Line truncated at (1)
newGLMnet.f90:4506.72:
if(sw .gt. 0.0)goto 17211
1
Warning: Line truncated at (1)
newGLMnet.f90:4507.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4508.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4509.72:
17211 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4510.72:
ww=ww/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4511.72:
call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:4512.72:
call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u
1
Warning: Line truncated at (1)
newGLMnet.f90:4514.72:
if(jerr.gt.0) go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4515.72:
dev0=2.0*sw*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:4516.72:
17220 do 17221 k=1,lmu
1
Warning: Line truncated at (1)
newGLMnet.f90:4517.72:
nk=nin(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4518.72:
if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))
1
Warning: Line truncated at (1)
newGLMnet.f90:4519.72:
a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4520.72:
17221 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4521.72:
17222 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4522.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4523.72:
deallocate(ww,ju,vq,xm,xs)
1
Warning: Line truncated at (1)
newGLMnet.f90:4524.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4525.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4526.72:
subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl
1
Warning: Line truncated at (1)
newGLMnet.f90:4529.72:
parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99
1
Warning: Line truncated at (1)
newGLMnet.f90:4531.72:
real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni)
1
Warning: Line truncated at (1)
newGLMnet.f90:4532.72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4533.72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4536.72:
allocate(a(1:ni),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4537.72:
allocate(as(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4538.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4539.72:
allocate(t(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4540.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4541.72:
allocate(mm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4542.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4543.72:
allocate(ga(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4544.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4545.72:
allocate(ixx(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4546.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4547.72:
allocate(wr(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4548.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4549.72:
allocate(v(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4550.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4551.72:
allocate(xm(1:ni),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4552.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4553.72:
allocate(w(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4554.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4555.72:
allocate(qy(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4556.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4557.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4558.72:
bta=parm
1
Warning: Line truncated at (1)
newGLMnet.f90:4559.72:
omb=1.0-bta
1
Warning: Line truncated at (1)
newGLMnet.f90:4560.72:
fmax=log(huge(bta)*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4561.72:
qy=q*y
1
Warning: Line truncated at (1)
newGLMnet.f90:4562.72:
yb=sum(qy)
1
Warning: Line truncated at (1)
newGLMnet.f90:4563.72:
if(nonzero(no,g) .ne. 0)goto 17241
1
Warning: Line truncated at (1)
newGLMnet.f90:4564.72:
w=q*yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4565.72:
az=log(yb)
1
Warning: Line truncated at (1)
newGLMnet.f90:4566.72:
uu=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4567.72:
xm=yb*xb
1
Warning: Line truncated at (1)
newGLMnet.f90:4568.72:
t=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4569.72:
dv0=yb*(log(yb)-1.0)
1
Warning: Line truncated at (1)
newGLMnet.f90:4570.72:
goto 17251
1
Warning: Line truncated at (1)
newGLMnet.f90:4571.72:
17241 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4572.72:
w=q*exp(sign(min(abs(g),fmax),g))
1
Warning: Line truncated at (1)
newGLMnet.f90:4573.72:
ww=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4574.72:
eaz=yb/ww
1
Warning: Line truncated at (1)
newGLMnet.f90:4575.72:
w=eaz*w
1
Warning: Line truncated at (1)
newGLMnet.f90:4576.72:
az=log(eaz)
1
Warning: Line truncated at (1)
newGLMnet.f90:4577.72:
uu=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4578.72:
t=g
1
Warning: Line truncated at (1)
newGLMnet.f90:4579.72:
dv0=dot_product(qy,g)-yb*(1.0-az)
1
Warning: Line truncated at (1)
newGLMnet.f90:4580.72:
17260 do 17261 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4581.72:
if(ju(j).eq.0)goto 17261
1
Warning: Line truncated at (1)
newGLMnet.f90:4582.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4583.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4584.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:4585.72:
17261 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4586.72:
17262 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4587.72:
17251 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4588.72:
17231 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4589.72:
tt=yb*uu
1
Warning: Line truncated at (1)
newGLMnet.f90:4590.72:
ww=yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4591.72:
wr=qy-q*(yb*(1.0-uu))
1
Warning: Line truncated at (1)
newGLMnet.f90:4592.72:
a=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4593.72:
as=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4594.72:
dvr=-yb
1
Warning: Line truncated at (1)
newGLMnet.f90:4595.72:
17270 do 17271 i=1,no
1
Warning: Line truncated at (1)
newGLMnet.f90:4596.72:
if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i))
1
Warning: Line truncated at (1)
newGLMnet.f90:4597.72:
17271 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4598.72:
17272 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4599.72:
dvr=dvr-dv0
1
Warning: Line truncated at (1)
newGLMnet.f90:4600.72:
dev0=dvr
1
Warning: Line truncated at (1)
newGLMnet.f90:4601.72:
if(flmin .ge. 1.0)goto 17291
1
Warning: Line truncated at (1)
newGLMnet.f90:4602.72:
eqs=max(eps,flmin)
1
Warning: Line truncated at (1)
newGLMnet.f90:4603.72:
alf=eqs**(1.0/(nlam-1))
1
Warning: Line truncated at (1)
newGLMnet.f90:4604.72:
17291 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4605.72:
m=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4606.72:
mm=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4607.72:
nlp=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4608.72:
nin=nlp
1
Warning: Line truncated at (1)
newGLMnet.f90:4609.72:
mnl=min(mnlam,nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4610.72:
shr=shri*dev0
1
Warning: Line truncated at (1)
newGLMnet.f90:4611.72:
al=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4612.72:
ixx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4613.72:
17300 do 17301 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4614.72:
if(ju(j).eq.0)goto 17301
1
Warning: Line truncated at (1)
newGLMnet.f90:4615.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4616.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4617.72:
ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4619.72:
17301 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4620.72:
17302 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4621.72:
17310 do 17311 ilm=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4622.72:
al0=al
1
Warning: Line truncated at (1)
newGLMnet.f90:4623.72:
if(flmin .lt. 1.0)goto 17331
1
Warning: Line truncated at (1)
newGLMnet.f90:4624.72:
al=ulam(ilm)
1
Warning: Line truncated at (1)
newGLMnet.f90:4625.72:
goto 17321
1
Warning: Line truncated at (1)
newGLMnet.f90:4626.72:
17331 if(ilm .le. 2)goto 17341
1
Warning: Line truncated at (1)
newGLMnet.f90:4627.72:
al=al*alf
1
Warning: Line truncated at (1)
newGLMnet.f90:4628.72:
goto 17321
1
Warning: Line truncated at (1)
newGLMnet.f90:4629.72:
17341 if(ilm .ne. 1)goto 17351
1
Warning: Line truncated at (1)
newGLMnet.f90:4630.72:
al=big
1
Warning: Line truncated at (1)
newGLMnet.f90:4631.72:
goto 17361
1
Warning: Line truncated at (1)
newGLMnet.f90:4632.72:
17351 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4633.72:
al0=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4634.72:
17370 do 17371 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4635.72:
if(ju(j).eq.0)goto 17371
1
Warning: Line truncated at (1)
newGLMnet.f90:4636.72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))
1
Warning: Line truncated at (1)
newGLMnet.f90:4637.72:
17371 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4638.72:
17372 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4639.72:
al0=al0/max(bta,1.0e-3)
1
Warning: Line truncated at (1)
newGLMnet.f90:4640.72:
al=alf*al0
1
Warning: Line truncated at (1)
newGLMnet.f90:4641.72:
17361 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4642.72:
17321 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4643.72:
al2=al*omb
1
Warning: Line truncated at (1)
newGLMnet.f90:4644.72:
al1=al*bta
1
Warning: Line truncated at (1)
newGLMnet.f90:4645.72:
tlam=bta*(2.0*al-al0)
1
Warning: Line truncated at (1)
newGLMnet.f90:4646.72:
17380 do 17381 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4647.72:
if(ixx(k).eq.1)goto 17381
1
Warning: Line truncated at (1)
newGLMnet.f90:4648.72:
if(ju(k).eq.0)goto 17381
1
Warning: Line truncated at (1)
newGLMnet.f90:4649.72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4650.72:
17381 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4651.72:
17382 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4652.72:
10680 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4653.72:
17390 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4654.72:
17391 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4655.72:
az0=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4656.72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:4657.72:
17400 do 17401 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4658.72:
if(ixx(j).eq.0)goto 17401
1
Warning: Line truncated at (1)
newGLMnet.f90:4659.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4660.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4661.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:4662.72:
v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2) -2.0*xb(j)*xm(j)+ww*x
1
Warning: Line truncated at (1)
newGLMnet.f90:4664.72:
17401 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4665.72:
17402 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4666.72:
17410 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4667.72:
17411 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4668.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4669.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4670.72:
17420 do 17421 k=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4671.72:
if(ixx(k).eq.0)goto 17421
1
Warning: Line truncated at (1)
newGLMnet.f90:4672.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4673.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4674.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4675.72:
u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4677.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:4678.72:
if(au .gt. 0.0)goto 17441
1
Warning: Line truncated at (1)
newGLMnet.f90:4679.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4680.72:
goto 17451
1
Warning: Line truncated at (1)
newGLMnet.f90:4681.72:
17441 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4682.72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4683.72:
17451 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4684.72:
17431 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4685.72:
if(a(k).eq.ak)goto 17421
1
Warning: Line truncated at (1)
newGLMnet.f90:4686.72:
if(mm(k) .ne. 0)goto 17471
1
Warning: Line truncated at (1)
newGLMnet.f90:4687.72:
nin=nin+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4688.72:
if(nin.gt.nx)goto 17422
1
Warning: Line truncated at (1)
newGLMnet.f90:4689.72:
mm(k)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4690.72:
m(nin)=k
1
Warning: Line truncated at (1)
newGLMnet.f90:4691.72:
17471 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4692.72:
d=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4693.72:
dlx=max(dlx,v(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4694.72:
dv=d/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4695.72:
wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4696.72:
t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4697.72:
uu=uu-dv*xb(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4698.72:
tt=tt-dv*xm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4699.72:
17421 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4700.72:
17422 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4701.72:
if(nin.gt.nx)goto 17412
1
Warning: Line truncated at (1)
newGLMnet.f90:4702.72:
d=tt/ww-uu
1
Warning: Line truncated at (1)
newGLMnet.f90:4703.72:
az=az+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4704.72:
dlx=max(dlx,ww*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4705.72:
uu=uu+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4706.72:
if(dlx.lt.shr)goto 17412
1
Warning: Line truncated at (1)
newGLMnet.f90:4707.72:
if(nlp .le. maxit)goto 17491
1
Warning: Line truncated at (1)
newGLMnet.f90:4708.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4709.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4710.72:
17491 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4711.72:
17500 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4712.72:
17501 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4713.72:
nlp=nlp+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4714.72:
dlx=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4715.72:
17510 do 17511 l=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4716.72:
k=m(l)
1
Warning: Line truncated at (1)
newGLMnet.f90:4717.72:
jb=ix(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4718.72:
je=ix(k+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4719.72:
ak=a(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4720.72:
u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4722.72:
au=abs(u)-vp(k)*al1
1
Warning: Line truncated at (1)
newGLMnet.f90:4723.72:
if(au .gt. 0.0)goto 17531
1
Warning: Line truncated at (1)
newGLMnet.f90:4724.72:
a(k)=0.0
1
Warning: Line truncated at (1)
newGLMnet.f90:4725.72:
goto 17541
1
Warning: Line truncated at (1)
newGLMnet.f90:4726.72:
17531 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4727.72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4728.72:
17541 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4729.72:
17521 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4730.72:
if(a(k).eq.ak)goto 17511
1
Warning: Line truncated at (1)
newGLMnet.f90:4731.72:
d=a(k)-ak
1
Warning: Line truncated at (1)
newGLMnet.f90:4732.72:
dlx=max(dlx,v(k)*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4733.72:
dv=d/xs(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4734.72:
wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4735.72:
t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4736.72:
uu=uu-dv*xb(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4737.72:
tt=tt-dv*xm(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4738.72:
17511 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4739.72:
17512 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4740.72:
d=tt/ww-uu
1
Warning: Line truncated at (1)
newGLMnet.f90:4741.72:
az=az+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4742.72:
dlx=max(dlx,ww*d**2)
1
Warning: Line truncated at (1)
newGLMnet.f90:4743.72:
uu=uu+d
1
Warning: Line truncated at (1)
newGLMnet.f90:4744.72:
if(dlx.lt.shr)goto 17502
1
Warning: Line truncated at (1)
newGLMnet.f90:4745.72:
if(nlp .le. maxit)goto 17561
1
Warning: Line truncated at (1)
newGLMnet.f90:4746.72:
jerr=-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4747.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4748.72:
17561 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4749.72:
goto 17501
1
Warning: Line truncated at (1)
newGLMnet.f90:4750.72:
17502 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4751.72:
goto 17411
1
Warning: Line truncated at (1)
newGLMnet.f90:4752.72:
17412 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4753.72:
if(nin.gt.nx)goto 17392
1
Warning: Line truncated at (1)
newGLMnet.f90:4754.72:
euu=exp(sign(min(abs(uu),fmax),uu))
1
Warning: Line truncated at (1)
newGLMnet.f90:4755.72:
w=euu*q*exp(sign(min(abs(t),fmax),t))
1
Warning: Line truncated at (1)
newGLMnet.f90:4756.72:
ww=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4757.72:
wr=qy-w*(1.0-uu)
1
Warning: Line truncated at (1)
newGLMnet.f90:4758.72:
tt=sum(wr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4759.72:
if(ww*(az-az0)**2 .ge. shr)goto 17581
1
Warning: Line truncated at (1)
newGLMnet.f90:4760.72:
kx=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4761.72:
17590 do 17591 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4762.72:
k=m(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4763.72:
if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591
1
Warning: Line truncated at (1)
newGLMnet.f90:4764.72:
kx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4765.72:
goto 17592
1
Warning: Line truncated at (1)
newGLMnet.f90:4766.72:
17591 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4767.72:
17592 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4768.72:
if(kx .ne. 0)goto 17611
1
Warning: Line truncated at (1)
newGLMnet.f90:4769.72:
17620 do 17621 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4770.72:
if(ixx(j).eq.1)goto 17621
1
Warning: Line truncated at (1)
newGLMnet.f90:4771.72:
if(ju(j).eq.0)goto 17621
1
Warning: Line truncated at (1)
newGLMnet.f90:4772.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4773.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4774.72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je))
1
Warning: Line truncated at (1)
newGLMnet.f90:4775.72:
ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4777.72:
if(ga(j) .le. al1*vp(j))goto 17641
1
Warning: Line truncated at (1)
newGLMnet.f90:4778.72:
ixx(j)=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4779.72:
kx=1
1
Warning: Line truncated at (1)
newGLMnet.f90:4780.72:
17641 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4781.72:
17621 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4782.72:
17622 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4783.72:
if(kx.eq.1) go to 10680
1
Warning: Line truncated at (1)
newGLMnet.f90:4784.72:
goto 17392
1
Warning: Line truncated at (1)
newGLMnet.f90:4785.72:
17611 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4786.72:
17581 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4787.72:
goto 17391
1
Warning: Line truncated at (1)
newGLMnet.f90:4788.72:
17392 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4789.72:
if(nin .le. nx)goto 17661
1
Warning: Line truncated at (1)
newGLMnet.f90:4790.72:
jerr=-10000-ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4791.72:
goto 17312
1
Warning: Line truncated at (1)
newGLMnet.f90:4792.72:
17661 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4793.72:
if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))
1
Warning: Line truncated at (1)
newGLMnet.f90:4794.72:
kin(ilm)=nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4795.72:
a0(ilm)=az
1
Warning: Line truncated at (1)
newGLMnet.f90:4796.72:
alm(ilm)=al
1
Warning: Line truncated at (1)
newGLMnet.f90:4797.72:
lmu=ilm
1
Warning: Line truncated at (1)
newGLMnet.f90:4798.72:
dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr
1
Warning: Line truncated at (1)
newGLMnet.f90:4799.72:
if(ilm.lt.mnl)goto 17311
1
Warning: Line truncated at (1)
newGLMnet.f90:4800.72:
if(flmin.ge.1.0)goto 17311
1
Warning: Line truncated at (1)
newGLMnet.f90:4801.72:
me=0
1
Warning: Line truncated at (1)
newGLMnet.f90:4802.72:
17670 do 17671 j=1,nin
1
Warning: Line truncated at (1)
newGLMnet.f90:4803.72:
if(ca(j,ilm).ne.0.0) me=me+1
1
Warning: Line truncated at (1)
newGLMnet.f90:4804.72:
17671 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4805.72:
17672 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4806.72:
if(me.gt.ne)goto 17312
1
Warning: Line truncated at (1)
newGLMnet.f90:4807.72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312
1
Warning: Line truncated at (1)
newGLMnet.f90:4808.72:
if(dev(ilm).gt.devmax)goto 17312
1
Warning: Line truncated at (1)
newGLMnet.f90:4809.72:
17311 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4810.72:
17312 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4811.72:
g=t+uu
1
Warning: Line truncated at (1)
newGLMnet.f90:4812.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4813.72:
deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx)
1
Warning: Line truncated at (1)
newGLMnet.f90:4814.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4815.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4816.72:
subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4817.72:
real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4818.72:
integer ix(*),jx(*)
1
Warning: Line truncated at (1)
newGLMnet.f90:4820.72:
if(minval(y) .ge. 0.0)goto 17691
1
Warning: Line truncated at (1)
newGLMnet.f90:4821.72:
jerr=8888
1
Warning: Line truncated at (1)
newGLMnet.f90:4822.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4823.72:
17691 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4824.72:
allocate(w(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4825.72:
allocate(f(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4826.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4827.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4828.72:
w=max(0.0,q)
1
Warning: Line truncated at (1)
newGLMnet.f90:4829.72:
sw=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4830.72:
if(sw .gt. 0.0)goto 17711
1
Warning: Line truncated at (1)
newGLMnet.f90:4831.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4832.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4833.72:
17711 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4834.72:
yb=dot_product(w,y)/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4835.72:
fmax=log(huge(y(1))*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4836.72:
17720 do 17721 lam=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4837.72:
f=a0(lam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4838.72:
17730 do 17731 j=1,ni
1
Warning: Line truncated at (1)
newGLMnet.f90:4839.72:
if(a(j,lam).eq.0.0)goto 17731
1
Warning: Line truncated at (1)
newGLMnet.f90:4840.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4841.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4842.72:
f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4843.72:
17731 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4844.72:
17732 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4845.72:
f=f+g
1
Warning: Line truncated at (1)
newGLMnet.f90:4846.72:
s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4847.72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)
1
Warning: Line truncated at (1)
newGLMnet.f90:4848.72:
17721 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4849.72:
17722 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4850.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4851.72:
deallocate(w,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:4852.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4853.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:4854.72:
subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog,
1
Warning: Line truncated at (1)
newGLMnet.f90:4856.72:
real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4857.72:
integer ix(*),jx(*),nin(nlam),ia(nx)
1
Warning: Line truncated at (1)
newGLMnet.f90:4859.72:
if(minval(y) .ge. 0.0)goto 17751
1
Warning: Line truncated at (1)
newGLMnet.f90:4860.72:
jerr=8888
1
Warning: Line truncated at (1)
newGLMnet.f90:4861.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4862.72:
17751 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4863.72:
allocate(w(1:no),stat=jerr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4864.72:
allocate(f(1:no),stat=ierr)
1
Warning: Line truncated at (1)
newGLMnet.f90:4865.72:
jerr=jerr+ierr
1
Warning: Line truncated at (1)
newGLMnet.f90:4866.72:
if(jerr.ne.0) return
1
Warning: Line truncated at (1)
newGLMnet.f90:4867.72:
w=max(0.0,q)
1
Warning: Line truncated at (1)
newGLMnet.f90:4868.72:
sw=sum(w)
1
Warning: Line truncated at (1)
newGLMnet.f90:4869.72:
if(sw .gt. 0.0)goto 17771
1
Warning: Line truncated at (1)
newGLMnet.f90:4870.72:
jerr=9999
1
Warning: Line truncated at (1)
newGLMnet.f90:4871.72:
go to 11790
1
Warning: Line truncated at (1)
newGLMnet.f90:4872.72:
17771 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4873.72:
yb=dot_product(w,y)/sw
1
Warning: Line truncated at (1)
newGLMnet.f90:4874.72:
fmax=log(huge(y(1))*0.1)
1
Warning: Line truncated at (1)
newGLMnet.f90:4875.72:
17780 do 17781 lam=1,nlam
1
Warning: Line truncated at (1)
newGLMnet.f90:4876.72:
f=a0(lam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4877.72:
17790 do 17791 k=1,nin(lam)
1
Warning: Line truncated at (1)
newGLMnet.f90:4878.72:
j=ia(k)
1
Warning: Line truncated at (1)
newGLMnet.f90:4879.72:
jb=ix(j)
1
Warning: Line truncated at (1)
newGLMnet.f90:4880.72:
je=ix(j+1)-1
1
Warning: Line truncated at (1)
newGLMnet.f90:4881.72:
f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je)
1
Warning: Line truncated at (1)
newGLMnet.f90:4882.72:
17791 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4883.72:
17792 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4884.72:
f=f+g
1
Warning: Line truncated at (1)
newGLMnet.f90:4885.72:
s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))
1
Warning: Line truncated at (1)
newGLMnet.f90:4886.72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)
1
Warning: Line truncated at (1)
newGLMnet.f90:4887.72:
17781 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4888.72:
17782 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4889.72:
11790 continue
1
Warning: Line truncated at (1)
newGLMnet.f90:4890.72:
deallocate(w,f)
1
Warning: Line truncated at (1)
newGLMnet.f90:4891.72:
return
1
Warning: Line truncated at (1)
newGLMnet.f90:4892.72:
end
1
Warning: Line truncated at (1)
newGLMnet.f90:541.5:
10031 continue
1
Warning: Label 10031 at (1) defined but not used
newGLMnet.f90:582.5:
10092 continue
1
Warning: Label 10092 at (1) defined but not used
newGLMnet.f90:579.5:
10090 do 10091 l=1,nk
1
Warning: Label 10090 at (1) defined but not used
newGLMnet.f90:585.5:
10082 continue
1
Warning: Label 10082 at (1) defined but not used
newGLMnet.f90:576.5:
10080 do 10081 k=1,lmu
1
Warning: Label 10080 at (1) defined but not used
newGLMnet.f90:1051.5:
10870 do 10871 i=2,no
1
Warning: Label 10870 at (1) defined but not used
newGLMnet.f90:1058.5:
10862 continue
1
Warning: Label 10862 at (1) defined but not used
newGLMnet.f90:1048.5:
10860 do 10861 j=1,ni
1
Warning: Label 10860 at (1) defined but not used
newGLMnet.f90:625.5:
10152 continue
1
Warning: Label 10152 at (1) defined but not used
newGLMnet.f90:622.5:
10150 do 10151 j=1,ni
1
Warning: Label 10150 at (1) defined but not used
newGLMnet.f90:613.5:
10142 continue
1
Warning: Label 10142 at (1) defined but not used
newGLMnet.f90:609.5:
10140 do 10141 j=1,ni
1
Warning: Label 10140 at (1) defined but not used
newGLMnet.f90:616.5:
10111 continue
1
Warning: Label 10111 at (1) defined but not used
newGLMnet.f90:604.5:
10102 continue
1
Warning: Label 10102 at (1) defined but not used
newGLMnet.f90:597.5:
10100 do 10101 j=1,ni
1
Warning: Label 10100 at (1) defined but not used
newGLMnet.f90:787.5:
10462 continue
1
Warning: Label 10462 at (1) defined but not used
newGLMnet.f90:784.5:
10460 do 10461 j=1,nin
1
Warning: Label 10460 at (1) defined but not used
newGLMnet.f90:768.5:
10432 continue
1
Warning: Label 10432 at (1) defined but not used
newGLMnet.f90:764.5:
10430 do 10431 j=1,ni
1
Warning: Label 10430 at (1) defined but not used
newGLMnet.f90:753.5:
10402 continue
1
Warning: Label 10402 at (1) defined but not used
newGLMnet.f90:750.5:
10400 do 10401 j=1,nin
1
Warning: Label 10400 at (1) defined but not used
newGLMnet.f90:755.5:
10392 continue
1
Warning: Label 10392 at (1) defined but not used
newGLMnet.f90:739.5:
10390 do 10391 l=1,nin
1
Warning: Label 10390 at (1) defined but not used
newGLMnet.f90:735.5:
10380 continue
1
Warning: Label 10380 at (1) defined but not used
newGLMnet.f90:723.5:
10352 continue
1
Warning: Label 10352 at (1) defined but not used
newGLMnet.f90:720.5:
10350 do 10351 j=1,ni
1
Warning: Label 10350 at (1) defined but not used
newGLMnet.f90:713.5:
10302 continue
1
Warning: Label 10302 at (1) defined but not used
newGLMnet.f90:701.5:
10300 do 10301 j=1,ni
1
Warning: Label 10300 at (1) defined but not used
newGLMnet.f90:690.5:
10270 do 10271 k=1,ni
1
Warning: Label 10270 at (1) defined but not used
newGLMnet.f90:685.5:
10250 continue
1
Warning: Label 10250 at (1) defined but not used
newGLMnet.f90:677.5:
10242 continue
1
Warning: Label 10242 at (1) defined but not used
newGLMnet.f90:672.5:
10240 do 10241 j=1,ni
1
Warning: Label 10240 at (1) defined but not used
newGLMnet.f90:660.5:
10180 do 10181 m=1,nlam
1
Warning: Label 10180 at (1) defined but not used
newGLMnet.f90:831.5:
10502 continue
1
Warning: Label 10502 at (1) defined but not used
newGLMnet.f90:828.5:
10500 do 10501 l=1,nk
1
Warning: Label 10500 at (1) defined but not used
newGLMnet.f90:834.5:
10492 continue
1
Warning: Label 10492 at (1) defined but not used
newGLMnet.f90:825.5:
10490 do 10491 k=1,lmu
1
Warning: Label 10490 at (1) defined but not used
newGLMnet.f90:862.5:
10552 continue
1
Warning: Label 10552 at (1) defined but not used
newGLMnet.f90:858.5:
10550 do 10551 j=1,ni
1
Warning: Label 10550 at (1) defined but not used
newGLMnet.f90:865.5:
10521 continue
1
Warning: Label 10521 at (1) defined but not used
newGLMnet.f90:853.5:
10512 continue
1
Warning: Label 10512 at (1) defined but not used
newGLMnet.f90:846.5:
10510 do 10511 j=1,ni
1
Warning: Label 10510 at (1) defined but not used
newGLMnet.f90:1036.5:
10852 continue
1
Warning: Label 10852 at (1) defined but not used
newGLMnet.f90:1033.5:
10850 do 10851 j=1,nin
1
Warning: Label 10850 at (1) defined but not used
newGLMnet.f90:1010.5:
10802 continue
1
Warning: Label 10802 at (1) defined but not used
newGLMnet.f90:996.5:
10800 do 10801 l=1,nin
1
Warning: Label 10800 at (1) defined but not used
newGLMnet.f90:992.5:
10790 continue
1
Warning: Label 10790 at (1) defined but not used
newGLMnet.f90:982.5:
10742 continue
1
Warning: Label 10742 at (1) defined but not used
newGLMnet.f90:973.5:
10740 do 10741 k=1,ni
1
Warning: Label 10740 at (1) defined but not used
newGLMnet.f90:949.5:
10690 do 10691 k=1,ni
1
Warning: Label 10690 at (1) defined but not used
newGLMnet.f90:943.5:
10670 continue
1
Warning: Label 10670 at (1) defined but not used
newGLMnet.f90:942.5:
10662 continue
1
Warning: Label 10662 at (1) defined but not used
newGLMnet.f90:937.5:
10660 do 10661 k=1,ni
1
Warning: Label 10660 at (1) defined but not used
newGLMnet.f90:927.5:
10652 continue
1
Warning: Label 10652 at (1) defined but not used
newGLMnet.f90:923.5:
10650 do 10651 j=1,ni
1
Warning: Label 10650 at (1) defined but not used
newGLMnet.f90:910.5:
10590 do 10591 m=1,nlam
1
Warning: Label 10590 at (1) defined but not used
newGLMnet.f90:909.5:
10582 continue
1
Warning: Label 10582 at (1) defined but not used
newGLMnet.f90:905.5:
10580 do 10581 j=1,ni
1
Warning: Label 10580 at (1) defined but not used
newGLMnet.f90:1076.5:
10882 continue
1
Warning: Label 10882 at (1) defined but not used
newGLMnet.f90:1073.5:
10880 do 10881 i=1,n
1
Warning: Label 10880 at (1) defined but not used
newGLMnet.f90:1101.5:
10911 continue
1
Warning: Label 10911 at (1) defined but not used
newGLMnet.f90:1142.5:
10972 continue
1
Warning: Label 10972 at (1) defined but not used
newGLMnet.f90:1139.5:
10970 do 10971 l=1,nk
1
Warning: Label 10970 at (1) defined but not used
newGLMnet.f90:1145.5:
10962 continue
1
Warning: Label 10962 at (1) defined but not used
newGLMnet.f90:1136.5:
10960 do 10961 k=1,lmu
1
Warning: Label 10960 at (1) defined but not used
newGLMnet.f90:1622.5:
11750 do 11751 i=jb+1,je
1
Warning: Label 11750 at (1) defined but not used
newGLMnet.f90:1613.5:
11730 do 11731 i=jb,je
1
Warning: Label 11730 at (1) defined but not used
newGLMnet.f90:1629.5:
11711 continue
1
Warning: Label 11711 at (1) defined but not used
newGLMnet.f90:1631.5:
11702 continue
1
Warning: Label 11702 at (1) defined but not used
newGLMnet.f90:1606.5:
11700 do 11701 j=1,ni
1
Warning: Label 11700 at (1) defined but not used
newGLMnet.f90:1181.5:
11022 continue
1
Warning: Label 11022 at (1) defined but not used
newGLMnet.f90:1175.5:
11020 do 11021 j=1,ni
1
Warning: Label 11020 at (1) defined but not used
newGLMnet.f90:1169.5:
10991 continue
1
Warning: Label 10991 at (1) defined but not used
newGLMnet.f90:1162.5:
10982 continue
1
Warning: Label 10982 at (1) defined but not used
newGLMnet.f90:1154.5:
10980 do 10981 j=1,ni
1
Warning: Label 10980 at (1) defined but not used
newGLMnet.f90:1342.5:
11322 continue
1
Warning: Label 11322 at (1) defined but not used
newGLMnet.f90:1339.5:
11320 do 11321 j=1,nin
1
Warning: Label 11320 at (1) defined but not used
newGLMnet.f90:1323.5:
11292 continue
1
Warning: Label 11292 at (1) defined but not used
newGLMnet.f90:1319.5:
11290 do 11291 j=1,ni
1
Warning: Label 11290 at (1) defined but not used
newGLMnet.f90:1308.5:
11262 continue
1
Warning: Label 11262 at (1) defined but not used
newGLMnet.f90:1305.5:
11260 do 11261 j=1,nin
1
Warning: Label 11260 at (1) defined but not used
newGLMnet.f90:1310.5:
11252 continue
1
Warning: Label 11252 at (1) defined but not used
newGLMnet.f90:1294.5:
11250 do 11251 l=1,nin
1
Warning: Label 11250 at (1) defined but not used
newGLMnet.f90:1290.5:
11240 continue
1
Warning: Label 11240 at (1) defined but not used
newGLMnet.f90:1278.5:
11212 continue
1
Warning: Label 11212 at (1) defined but not used
newGLMnet.f90:1275.5:
11210 do 11211 j=1,ni
1
Warning: Label 11210 at (1) defined but not used
newGLMnet.f90:1268.5:
11162 continue
1
Warning: Label 11162 at (1) defined but not used
newGLMnet.f90:1256.5:
11160 do 11161 j=1,ni
1
Warning: Label 11160 at (1) defined but not used
newGLMnet.f90:1245.5:
11130 do 11131 k=1,ni
1
Warning: Label 11130 at (1) defined but not used
newGLMnet.f90:1240.5:
11120 continue
1
Warning: Label 11120 at (1) defined but not used
newGLMnet.f90:1232.5:
11112 continue
1
Warning: Label 11112 at (1) defined but not used
newGLMnet.f90:1227.5:
11110 do 11111 j=1,ni
1
Warning: Label 11110 at (1) defined but not used
newGLMnet.f90:1215.5:
11050 do 11051 m=1,nlam
1
Warning: Label 11050 at (1) defined but not used
newGLMnet.f90:1669.5:
11810 continue
1
Warning: Label 11810 at (1) defined but not used
newGLMnet.f90:1662.5:
11780 continue
1
Warning: Label 11780 at (1) defined but not used
newGLMnet.f90:1660.5:
11770 continue
1
Warning: Label 11770 at (1) defined but not used
newGLMnet.f90:1386.5:
11362 continue
1
Warning: Label 11362 at (1) defined but not used
newGLMnet.f90:1383.5:
11360 do 11361 l=1,nk
1
Warning: Label 11360 at (1) defined but not used
newGLMnet.f90:1389.5:
11352 continue
1
Warning: Label 11352 at (1) defined but not used
newGLMnet.f90:1380.5:
11350 do 11351 k=1,lmu
1
Warning: Label 11350 at (1) defined but not used
newGLMnet.f90:1413.5:
11381 continue
1
Warning: Label 11381 at (1) defined but not used
newGLMnet.f90:1406.5:
11372 continue
1
Warning: Label 11372 at (1) defined but not used
newGLMnet.f90:1398.5:
11370 do 11371 j=1,ni
1
Warning: Label 11370 at (1) defined but not used
newGLMnet.f90:1594.5:
11692 continue
1
Warning: Label 11692 at (1) defined but not used
newGLMnet.f90:1591.5:
11690 do 11691 j=1,nin
1
Warning: Label 11690 at (1) defined but not used
newGLMnet.f90:1568.5:
11642 continue
1
Warning: Label 11642 at (1) defined but not used
newGLMnet.f90:1551.5:
11640 do 11641 l=1,nin
1
Warning: Label 11640 at (1) defined but not used
newGLMnet.f90:1547.5:
11630 continue
1
Warning: Label 11630 at (1) defined but not used
newGLMnet.f90:1537.5:
11582 continue
1
Warning: Label 11582 at (1) defined but not used
newGLMnet.f90:1526.5:
11580 do 11581 j=1,ni
1
Warning: Label 11580 at (1) defined but not used
newGLMnet.f90:1499.5:
11530 do 11531 k=1,ni
1
Warning: Label 11530 at (1) defined but not used
newGLMnet.f90:1493.5:
11520 continue
1
Warning: Label 11520 at (1) defined but not used
newGLMnet.f90:1492.5:
11512 continue
1
Warning: Label 11512 at (1) defined but not used
newGLMnet.f90:1487.5:
11510 do 11511 k=1,ni
1
Warning: Label 11510 at (1) defined but not used
newGLMnet.f90:1477.5:
11502 continue
1
Warning: Label 11502 at (1) defined but not used
newGLMnet.f90:1473.5:
11500 do 11501 j=1,ni
1
Warning: Label 11500 at (1) defined but not used
newGLMnet.f90:1460.5:
11440 do 11441 m=1,nlam
1
Warning: Label 11440 at (1) defined but not used
newGLMnet.f90:1459.5:
11432 continue
1
Warning: Label 11432 at (1) defined but not used
newGLMnet.f90:1453.5:
11430 do 11431 j=1,ni
1
Warning: Label 11430 at (1) defined but not used
newGLMnet.f90:1644.5:
11762 continue
1
Warning: Label 11762 at (1) defined but not used
newGLMnet.f90:1638.5:
11760 do 11761 j=1,nin
1
Warning: Label 11760 at (1) defined but not used
newGLMnet.f90:1746.5:
11962 continue
1
Warning: Label 11962 at (1) defined but not used
newGLMnet.f90:1743.5:
11960 do 11961 l=1,nk
1
Warning: Label 11960 at (1) defined but not used
newGLMnet.f90:1750.5:
11932 continue
1
Warning: Label 11932 at (1) defined but not used
newGLMnet.f90:1741.5:
11930 do 11931 ic=1,nc
1
Warning: Label 11930 at (1) defined but not used
newGLMnet.f90:1752.5:
11922 continue
1
Warning: Label 11922 at (1) defined but not used
newGLMnet.f90:1739.5:
11920 do 11921 k=1,lmu
1
Warning: Label 11920 at (1) defined but not used
newGLMnet.f90:1736.5:
11891 continue
1
Warning: Label 11891 at (1) defined but not used
newGLMnet.f90:1724.5:
11882 continue
1
Warning: Label 11882 at (1) defined but not used
newGLMnet.f90:1720.5:
11880 do 11881 i=1,no
1
Warning: Label 11880 at (1) defined but not used
newGLMnet.f90:1769.5:
11972 continue
1
Warning: Label 11972 at (1) defined but not used
newGLMnet.f90:1760.5:
11970 do 11971 j=1,ni
1
Warning: Label 11970 at (1) defined but not used
newGLMnet.f90:2055.5:
12642 continue
1
Warning: Label 12642 at (1) defined but not used
newGLMnet.f90:2052.5:
12640 do 12641 j=1,nin
1
Warning: Label 12640 at (1) defined but not used
newGLMnet.f90:2030.5:
12592 continue
1
Warning: Label 12592 at (1) defined but not used
newGLMnet.f90:2021.5:
12590 do 12591 k=1,ni
1
Warning: Label 12590 at (1) defined but not used
newGLMnet.f90:2013.5:
12560 do 12561 j=1,nin
1
Warning: Label 12560 at (1) defined but not used
newGLMnet.f90:2006.5:
12492 continue
1
Warning: Label 12492 at (1) defined but not used
newGLMnet.f90:1992.5:
12490 do 12491 i=1,no
1
Warning: Label 12490 at (1) defined but not used
newGLMnet.f90:1969.5:
12421 continue
1
Warning: Label 12421 at (1) defined but not used
newGLMnet.f90:1975.5:
12412 continue
1
Warning: Label 12412 at (1) defined but not used
newGLMnet.f90:1957.5:
12410 do 12411 l=1,nin
1
Warning: Label 12410 at (1) defined but not used
newGLMnet.f90:1953.5:
12400 continue
1
Warning: Label 12400 at (1) defined but not used
newGLMnet.f90:1928.5:
12311 continue
1
Warning: Label 12311 at (1) defined but not used
newGLMnet.f90:1916.5:
12300 do 12301 k=1,ni
1
Warning: Label 12300 at (1) defined but not used
newGLMnet.f90:1912.5:
12290 continue
1
Warning: Label 12290 at (1) defined but not used
newGLMnet.f90:1910.5:
12282 continue
1
Warning: Label 12282 at (1) defined but not used
newGLMnet.f90:1907.5:
12280 do 12281 j=1,ni
1
Warning: Label 12280 at (1) defined but not used
newGLMnet.f90:1902.5:
12250 continue
1
Warning: Label 12250 at (1) defined but not used
newGLMnet.f90:1900.5:
12242 continue
1
Warning: Label 12242 at (1) defined but not used
newGLMnet.f90:1895.5:
12240 do 12241 k=1,ni
1
Warning: Label 12240 at (1) defined but not used
newGLMnet.f90:1887.5:
12232 continue
1
Warning: Label 12232 at (1) defined but not used
newGLMnet.f90:1883.5:
12230 do 12231 j=1,ni
1
Warning: Label 12230 at (1) defined but not used
newGLMnet.f90:1870.5:
12170 do 12171 ilm=1,nlam
1
Warning: Label 12170 at (1) defined but not used
newGLMnet.f90:1869.5:
12162 continue
1
Warning: Label 12162 at (1) defined but not used
newGLMnet.f90:1865.5:
12160 do 12161 j=1,ni
1
Warning: Label 12160 at (1) defined but not used
newGLMnet.f90:1852.5:
12132 continue
1
Warning: Label 12132 at (1) defined but not used
newGLMnet.f90:1848.5:
12130 do 12131 i=1,no
1
Warning: Label 12130 at (1) defined but not used
newGLMnet.f90:1843.5:
12122 continue
1
Warning: Label 12122 at (1) defined but not used
newGLMnet.f90:1840.5:
12120 do 12121 j=1,ni
1
Warning: Label 12120 at (1) defined but not used
newGLMnet.f90:1845.5:
12091 continue
1
Warning: Label 12091 at (1) defined but not used
newGLMnet.f90:1834.5:
12041 continue
1
Warning: Label 12041 at (1) defined but not used
newGLMnet.f90:4418.5:
17032 continue
1
Warning: Label 17032 at (1) defined but not used
newGLMnet.f90:4412.5:
17030 do 17031 i=1,n
1
Warning: Label 17030 at (1) defined but not used
newGLMnet.f90:2091.5:
12660 continue
1
Warning: Label 12660 at (1) defined but not used
newGLMnet.f90:2073.5:
12652 continue
1
Warning: Label 12652 at (1) defined but not used
newGLMnet.f90:2069.5:
12650 do 12651 i=1,n
1
Warning: Label 12650 at (1) defined but not used
newGLMnet.f90:2497.5:
13542 continue
1
Warning: Label 13542 at (1) defined but not used
newGLMnet.f90:2494.5:
13540 do 13541 i=1,no
1
Warning: Label 13540 at (1) defined but not used
newGLMnet.f90:2478.5:
13532 continue
1
Warning: Label 13532 at (1) defined but not used
newGLMnet.f90:2474.5:
13530 do 13531 i=1,no
1
Warning: Label 13530 at (1) defined but not used
newGLMnet.f90:2480.5:
13522 continue
1
Warning: Label 13522 at (1) defined but not used
newGLMnet.f90:2471.5:
13520 do 13521 ic=1,nc
1
Warning: Label 13520 at (1) defined but not used
newGLMnet.f90:2460.5:
13472 continue
1
Warning: Label 13472 at (1) defined but not used
newGLMnet.f90:2452.5:
13470 do 13471 k=1,ni
1
Warning: Label 13470 at (1) defined but not used
newGLMnet.f90:2449.5:
13462 continue
1
Warning: Label 13462 at (1) defined but not used
newGLMnet.f90:2444.5:
13460 do 13461 k=1,ni
1
Warning: Label 13460 at (1) defined but not used
newGLMnet.f90:2451.5:
13452 continue
1
Warning: Label 13452 at (1) defined but not used
newGLMnet.f90:2442.5:
13450 do 13451 ic=1,nc
1
Warning: Label 13450 at (1) defined but not used
newGLMnet.f90:2441.5:
13442 continue
1
Warning: Label 13442 at (1) defined but not used
newGLMnet.f90:2436.5:
13440 do 13441 k=1,ni
1
Warning: Label 13440 at (1) defined but not used
newGLMnet.f90:2432.5:
13412 continue
1
Warning: Label 13412 at (1) defined but not used
newGLMnet.f90:2429.5:
13410 do 13411 ic=1,nc
1
Warning: Label 13410 at (1) defined but not used
newGLMnet.f90:2422.5:
13381 continue
1
Warning: Label 13381 at (1) defined but not used
newGLMnet.f90:2426.5:
13372 continue
1
Warning: Label 13372 at (1) defined but not used
newGLMnet.f90:2414.5:
13370 do 13371 j=1,nin
1
Warning: Label 13370 at (1) defined but not used
newGLMnet.f90:2408.5:
13362 continue
1
Warning: Label 13362 at (1) defined but not used
newGLMnet.f90:2400.5:
13360 do 13361 i=1,no
1
Warning: Label 13360 at (1) defined but not used
newGLMnet.f90:2391.5:
13330 do 13331 j=1,nin
1
Warning: Label 13330 at (1) defined but not used
newGLMnet.f90:2366.5:
13241 continue
1
Warning: Label 13241 at (1) defined but not used
newGLMnet.f90:2372.5:
13232 continue
1
Warning: Label 13232 at (1) defined but not used
newGLMnet.f90:2354.5:
13230 do 13231 l=1,nin
1
Warning: Label 13230 at (1) defined but not used
newGLMnet.f90:2350.5:
13220 continue
1
Warning: Label 13220 at (1) defined but not used
newGLMnet.f90:2322.5:
13111 continue
1
Warning: Label 13111 at (1) defined but not used
newGLMnet.f90:2310.5:
13100 do 13101 k=1,ni
1
Warning: Label 13100 at (1) defined but not used
newGLMnet.f90:2306.5:
13090 continue
1
Warning: Label 13090 at (1) defined but not used
newGLMnet.f90:2304.5:
13082 continue
1
Warning: Label 13082 at (1) defined but not used
newGLMnet.f90:2301.5:
13080 do 13081 j=1,ni
1
Warning: Label 13080 at (1) defined but not used
newGLMnet.f90:2297.5:
13012 continue
1
Warning: Label 13012 at (1) defined but not used
newGLMnet.f90:2280.5:
13010 do 13011 i=1,no
1
Warning: Label 13010 at (1) defined but not used
newGLMnet.f90:2276.5:
13000 do 13001 ic=1,nc
1
Warning: Label 13000 at (1) defined but not used
newGLMnet.f90:2271.5:
12990 continue
1
Warning: Label 12990 at (1) defined but not used
newGLMnet.f90:2269.5:
12982 continue
1
Warning: Label 12982 at (1) defined but not used
newGLMnet.f90:2264.5:
12980 do 12981 k=1,ni
1
Warning: Label 12980 at (1) defined but not used
newGLMnet.f90:2256.5:
12972 continue
1
Warning: Label 12972 at (1) defined but not used
newGLMnet.f90:2252.5:
12970 do 12971 j=1,ni
1
Warning: Label 12970 at (1) defined but not used
newGLMnet.f90:2239.5:
12910 do 12911 ilm=1,nlam
1
Warning: Label 12910 at (1) defined but not used
newGLMnet.f90:2236.5:
12902 continue
1
Warning: Label 12902 at (1) defined but not used
newGLMnet.f90:2233.5:
12900 do 12901 j=1,ni
1
Warning: Label 12900 at (1) defined but not used
newGLMnet.f90:2238.5:
12892 continue
1
Warning: Label 12892 at (1) defined but not used
newGLMnet.f90:2231.5:
12890 do 12891 ic=1,nc
1
Warning: Label 12890 at (1) defined but not used
newGLMnet.f90:2215.5:
12862 continue
1
Warning: Label 12862 at (1) defined but not used
newGLMnet.f90:2212.5:
12860 do 12861 j=1,ni
1
Warning: Label 12860 at (1) defined but not used
newGLMnet.f90:2217.5:
12831 continue
1
Warning: Label 12831 at (1) defined but not used
newGLMnet.f90:2203.5:
12802 continue
1
Warning: Label 12802 at (1) defined but not used
newGLMnet.f90:2200.5:
12800 do 12801 i=1,no
1
Warning: Label 12800 at (1) defined but not used
newGLMnet.f90:2205.5:
12792 continue
1
Warning: Label 12792 at (1) defined but not used
newGLMnet.f90:2199.5:
12790 do 12791 ic=1,nc
1
Warning: Label 12790 at (1) defined but not used
newGLMnet.f90:2196.5:
12782 continue
1
Warning: Label 12782 at (1) defined but not used
newGLMnet.f90:2193.5:
12780 do 12781 ic=1,nc
1
Warning: Label 12780 at (1) defined but not used
newGLMnet.f90:2191.5:
12772 continue
1
Warning: Label 12772 at (1) defined but not used
newGLMnet.f90:2185.5:
12770 do 12771 ic=1,nc
1
Warning: Label 12770 at (1) defined but not used
newGLMnet.f90:2180.5:
12762 continue
1
Warning: Label 12762 at (1) defined but not used
newGLMnet.f90:2177.5:
12760 do 12761 i=1,no
1
Warning: Label 12760 at (1) defined but not used
newGLMnet.f90:2174.5:
12742 continue
1
Warning: Label 12742 at (1) defined but not used
newGLMnet.f90:2170.5:
12740 do 12741 ic=1,nc
1
Warning: Label 12740 at (1) defined but not used
newGLMnet.f90:2198.5:
12721 continue
1
Warning: Label 12721 at (1) defined but not used
newGLMnet.f90:2164.5:
12672 continue
1
Warning: Label 12672 at (1) defined but not used
newGLMnet.f90:2150.5:
12670 do 12671 ic=1,nc
1
Warning: Label 12670 at (1) defined but not used
newGLMnet.f90:2537.5:
13592 continue
1
Warning: Label 13592 at (1) defined but not used
newGLMnet.f90:2532.5:
13590 do 13591 i=1,n
1
Warning: Label 13590 at (1) defined but not used
newGLMnet.f90:2527.5:
13582 continue
1
Warning: Label 13582 at (1) defined but not used
newGLMnet.f90:2522.5:
13580 do 13581 i=1,n
1
Warning: Label 13580 at (1) defined but not used
newGLMnet.f90:2539.5:
13572 continue
1
Warning: Label 13572 at (1) defined but not used
newGLMnet.f90:2519.5:
13570 do 13571 k=1,kk
1
Warning: Label 13570 at (1) defined but not used
newGLMnet.f90:2516.5:
13560 continue
1
Warning: Label 13560 at (1) defined but not used
newGLMnet.f90:2515.5:
13552 continue
1
Warning: Label 13552 at (1) defined but not used
newGLMnet.f90:2512.5:
13550 do 13551 i=1,n
1
Warning: Label 13550 at (1) defined but not used
newGLMnet.f90:2621.5:
13772 continue
1
Warning: Label 13772 at (1) defined but not used
newGLMnet.f90:2611.5:
13770 do 13771 k=k1+1,k2
1
Warning: Label 13770 at (1) defined but not used
newGLMnet.f90:2593.5:
13720 do 13721 k=k1,k2-1
1
Warning: Label 13720 at (1) defined but not used
newGLMnet.f90:2585.5:
13710 continue
1
Warning: Label 13710 at (1) defined but not used
newGLMnet.f90:2579.5:
13700 continue
1
Warning: Label 13700 at (1) defined but not used
newGLMnet.f90:2571.5:
13651 continue
1
Warning: Label 13651 at (1) defined but not used
newGLMnet.f90:2559.5:
13622 continue
1
Warning: Label 13622 at (1) defined but not used
newGLMnet.f90:2556.5:
13620 do 13621 i=1,n
1
Warning: Label 13620 at (1) defined but not used
newGLMnet.f90:2637.5:
13812 continue
1
Warning: Label 13812 at (1) defined but not used
newGLMnet.f90:2630.5:
13810 do 13811 j=1,nin
1
Warning: Label 13810 at (1) defined but not used
newGLMnet.f90:2639.5:
13802 continue
1
Warning: Label 13802 at (1) defined but not used
newGLMnet.f90:2629.5:
13800 do 13801 ic=1,nc
1
Warning: Label 13800 at (1) defined but not used
newGLMnet.f90:2649.5:
13822 continue
1
Warning: Label 13822 at (1) defined but not used
newGLMnet.f90:2646.5:
13820 do 13821 ic=1,nc
1
Warning: Label 13820 at (1) defined but not used
newGLMnet.f90:2661.5:
13842 continue
1
Warning: Label 13842 at (1) defined but not used
newGLMnet.f90:2656.5:
13840 do 13841 ic=1,nc
1
Warning: Label 13840 at (1) defined but not used
newGLMnet.f90:2663.5:
13832 continue
1
Warning: Label 13832 at (1) defined but not used
newGLMnet.f90:2655.5:
13830 do 13831 i=1,nt
1
Warning: Label 13830 at (1) defined but not used
newGLMnet.f90:2724.5:
13972 continue
1
Warning: Label 13972 at (1) defined but not used
newGLMnet.f90:2721.5:
13970 do 13971 l=1,nk
1
Warning: Label 13970 at (1) defined but not used
newGLMnet.f90:2728.5:
13942 continue
1
Warning: Label 13942 at (1) defined but not used
newGLMnet.f90:2719.5:
13940 do 13941 ic=1,nc
1
Warning: Label 13940 at (1) defined but not used
newGLMnet.f90:2730.5:
13932 continue
1
Warning: Label 13932 at (1) defined but not used
newGLMnet.f90:2717.5:
13930 do 13931 k=1,lmu
1
Warning: Label 13930 at (1) defined but not used
newGLMnet.f90:2714.5:
13901 continue
1
Warning: Label 13901 at (1) defined but not used
newGLMnet.f90:2700.5:
13892 continue
1
Warning: Label 13892 at (1) defined but not used
newGLMnet.f90:2696.5:
13890 do 13891 i=1,no
1
Warning: Label 13890 at (1) defined but not used
newGLMnet.f90:2745.5:
13982 continue
1
Warning: Label 13982 at (1) defined but not used
newGLMnet.f90:2737.5:
13980 do 13981 j=1,ni
1
Warning: Label 13980 at (1) defined but not used
newGLMnet.f90:3090.5:
14642 continue
1
Warning: Label 14642 at (1) defined but not used
newGLMnet.f90:3087.5:
14640 do 14641 j=1,nin
1
Warning: Label 14640 at (1) defined but not used
newGLMnet.f90:3066.5:
14592 continue
1
Warning: Label 14592 at (1) defined but not used
newGLMnet.f90:3052.5:
14590 do 14591 j=1,ni
1
Warning: Label 14590 at (1) defined but not used
newGLMnet.f90:3044.5:
14560 do 14561 j=1,nin
1
Warning: Label 14560 at (1) defined but not used
newGLMnet.f90:3035.5:
14492 continue
1
Warning: Label 14492 at (1) defined but not used
newGLMnet.f90:3022.5:
14490 do 14491 i=1,no
1
Warning: Label 14490 at (1) defined but not used
newGLMnet.f90:3020.5:
14482 continue
1
Warning: Label 14482 at (1) defined but not used
newGLMnet.f90:3013.5:
14480 do 14481 j=1,nin
1
Warning: Label 14480 at (1) defined but not used
newGLMnet.f90:2985.5:
14411 continue
1
Warning: Label 14411 at (1) defined but not used
newGLMnet.f90:2993.5:
14402 continue
1
Warning: Label 14402 at (1) defined but not used
newGLMnet.f90:2968.5:
14400 do 14401 l=1,nin
1
Warning: Label 14400 at (1) defined but not used
newGLMnet.f90:2964.5:
14390 continue
1
Warning: Label 14390 at (1) defined but not used
newGLMnet.f90:2934.5:
14301 continue
1
Warning: Label 14301 at (1) defined but not used
newGLMnet.f90:2917.5:
14290 do 14291 k=1,ni
1
Warning: Label 14290 at (1) defined but not used
newGLMnet.f90:2913.5:
14280 continue
1
Warning: Label 14280 at (1) defined but not used
newGLMnet.f90:2912.5:
14252 continue
1
Warning: Label 14252 at (1) defined but not used
newGLMnet.f90:2900.5:
14250 do 14251 j=1,ni
1
Warning: Label 14250 at (1) defined but not used
newGLMnet.f90:2896.5:
14240 continue
1
Warning: Label 14240 at (1) defined but not used
newGLMnet.f90:2894.5:
14232 continue
1
Warning: Label 14232 at (1) defined but not used
newGLMnet.f90:2889.5:
14230 do 14231 k=1,ni
1
Warning: Label 14230 at (1) defined but not used
newGLMnet.f90:2881.5:
14222 continue
1
Warning: Label 14222 at (1) defined but not used
newGLMnet.f90:2877.5:
14220 do 14221 j=1,ni
1
Warning: Label 14220 at (1) defined but not used
newGLMnet.f90:2864.5:
14160 do 14161 ilm=1,nlam
1
Warning: Label 14160 at (1) defined but not used
newGLMnet.f90:2863.5:
14152 continue
1
Warning: Label 14152 at (1) defined but not used
newGLMnet.f90:2854.5:
14150 do 14151 j=1,ni
1
Warning: Label 14150 at (1) defined but not used
newGLMnet.f90:2837.5:
14122 continue
1
Warning: Label 14122 at (1) defined but not used
newGLMnet.f90:2833.5:
14120 do 14121 i=1,no
1
Warning: Label 14120 at (1) defined but not used
newGLMnet.f90:2827.5:
14112 continue
1
Warning: Label 14112 at (1) defined but not used
newGLMnet.f90:2821.5:
14110 do 14111 j=1,ni
1
Warning: Label 14110 at (1) defined but not used
newGLMnet.f90:2829.5:
14081 continue
1
Warning: Label 14081 at (1) defined but not used
newGLMnet.f90:2815.5:
14031 continue
1
Warning: Label 14031 at (1) defined but not used
newGLMnet.f90:3551.5:
15522 continue
1
Warning: Label 15522 at (1) defined but not used
newGLMnet.f90:3548.5:
15520 do 15521 i=1,no
1
Warning: Label 15520 at (1) defined but not used
newGLMnet.f90:3532.5:
15512 continue
1
Warning: Label 15512 at (1) defined but not used
newGLMnet.f90:3528.5:
15510 do 15511 i=1,no
1
Warning: Label 15510 at (1) defined but not used
newGLMnet.f90:3534.5:
15502 continue
1
Warning: Label 15502 at (1) defined but not used
newGLMnet.f90:3525.5:
15500 do 15501 ic=1,nc
1
Warning: Label 15500 at (1) defined but not used
newGLMnet.f90:3514.5:
15452 continue
1
Warning: Label 15452 at (1) defined but not used
newGLMnet.f90:3506.5:
15450 do 15451 k=1,ni
1
Warning: Label 15450 at (1) defined but not used
newGLMnet.f90:3503.5:
15442 continue
1
Warning: Label 15442 at (1) defined but not used
newGLMnet.f90:3493.5:
15440 do 15441 j=1,ni
1
Warning: Label 15440 at (1) defined but not used
newGLMnet.f90:3505.5:
15432 continue
1
Warning: Label 15432 at (1) defined but not used
newGLMnet.f90:3489.5:
15430 do 15431 ic=1,nc
1
Warning: Label 15430 at (1) defined but not used
newGLMnet.f90:3488.5:
15422 continue
1
Warning: Label 15422 at (1) defined but not used
newGLMnet.f90:3483.5:
15420 do 15421 j=1,ni
1
Warning: Label 15420 at (1) defined but not used
newGLMnet.f90:3479.5:
15392 continue
1
Warning: Label 15392 at (1) defined but not used
newGLMnet.f90:3476.5:
15390 do 15391 ic=1,nc
1
Warning: Label 15390 at (1) defined but not used
newGLMnet.f90:3465.5:
15361 continue
1
Warning: Label 15361 at (1) defined but not used
newGLMnet.f90:3472.5:
15352 continue
1
Warning: Label 15352 at (1) defined but not used
newGLMnet.f90:3457.5:
15350 do 15351 j=1,nin
1
Warning: Label 15350 at (1) defined but not used
newGLMnet.f90:3446.5:
15342 continue
1
Warning: Label 15342 at (1) defined but not used
newGLMnet.f90:3439.5:
15340 do 15341 j=1,nin
1
Warning: Label 15340 at (1) defined but not used
newGLMnet.f90:3428.5:
15310 do 15311 j=1,nin
1
Warning: Label 15310 at (1) defined but not used
newGLMnet.f90:3400.5:
15221 continue
1
Warning: Label 15221 at (1) defined but not used
newGLMnet.f90:3408.5:
15212 continue
1
Warning: Label 15212 at (1) defined but not used
newGLMnet.f90:3383.5:
15210 do 15211 l=1,nin
1
Warning: Label 15210 at (1) defined but not used
newGLMnet.f90:3379.5:
15200 continue
1
Warning: Label 15200 at (1) defined but not used
newGLMnet.f90:3347.5:
15091 continue
1
Warning: Label 15091 at (1) defined but not used
newGLMnet.f90:3330.5:
15080 do 15081 k=1,ni
1
Warning: Label 15080 at (1) defined but not used
newGLMnet.f90:3326.5:
15070 continue
1
Warning: Label 15070 at (1) defined but not used
newGLMnet.f90:3325.5:
15042 continue
1
Warning: Label 15042 at (1) defined but not used
newGLMnet.f90:3315.5:
15040 do 15041 j=1,ni
1
Warning: Label 15040 at (1) defined but not used
newGLMnet.f90:3312.5:
14992 continue
1
Warning: Label 14992 at (1) defined but not used
newGLMnet.f90:3294.5:
14990 do 14991 i=1,no
1
Warning: Label 14990 at (1) defined but not used
newGLMnet.f90:3288.5:
14980 do 14981 ic=1,nc
1
Warning: Label 14980 at (1) defined but not used
newGLMnet.f90:3283.5:
14970 continue
1
Warning: Label 14970 at (1) defined but not used
newGLMnet.f90:3281.5:
14962 continue
1
Warning: Label 14962 at (1) defined but not used
newGLMnet.f90:3276.5:
14960 do 14961 k=1,ni
1
Warning: Label 14960 at (1) defined but not used
newGLMnet.f90:3268.5:
14952 continue
1
Warning: Label 14952 at (1) defined but not used
newGLMnet.f90:3264.5:
14950 do 14951 j=1,ni
1
Warning: Label 14950 at (1) defined but not used
newGLMnet.f90:3251.5:
14890 do 14891 ilm=1,nlam
1
Warning: Label 14890 at (1) defined but not used
newGLMnet.f90:3248.5:
14882 continue
1
Warning: Label 14882 at (1) defined but not used
newGLMnet.f90:3239.5:
14880 do 14881 j=1,ni
1
Warning: Label 14880 at (1) defined but not used
newGLMnet.f90:3250.5:
14872 continue
1
Warning: Label 14872 at (1) defined but not used
newGLMnet.f90:3235.5:
14870 do 14871 ic=1,nc
1
Warning: Label 14870 at (1) defined but not used
newGLMnet.f90:3217.5:
14842 continue
1
Warning: Label 14842 at (1) defined but not used
newGLMnet.f90:3211.5:
14840 do 14841 j=1,ni
1
Warning: Label 14840 at (1) defined but not used
newGLMnet.f90:3219.5:
14811 continue
1
Warning: Label 14811 at (1) defined but not used
newGLMnet.f90:3202.5:
14782 continue
1
Warning: Label 14782 at (1) defined but not used
newGLMnet.f90:3199.5:
14780 do 14781 i=1,no
1
Warning: Label 14780 at (1) defined but not used
newGLMnet.f90:3204.5:
14772 continue
1
Warning: Label 14772 at (1) defined but not used
newGLMnet.f90:3198.5:
14770 do 14771 ic=1,nc
1
Warning: Label 14770 at (1) defined but not used
newGLMnet.f90:3195.5:
14762 continue
1
Warning: Label 14762 at (1) defined but not used
newGLMnet.f90:3192.5:
14760 do 14761 ic=1,nc
1
Warning: Label 14760 at (1) defined but not used
newGLMnet.f90:3190.5:
14752 continue
1
Warning: Label 14752 at (1) defined but not used
newGLMnet.f90:3184.5:
14750 do 14751 ic=1,nc
1
Warning: Label 14750 at (1) defined but not used
newGLMnet.f90:3179.5:
14742 continue
1
Warning: Label 14742 at (1) defined but not used
newGLMnet.f90:3176.5:
14740 do 14741 i=1,no
1
Warning: Label 14740 at (1) defined but not used
newGLMnet.f90:3173.5:
14722 continue
1
Warning: Label 14722 at (1) defined but not used
newGLMnet.f90:3169.5:
14720 do 14721 ic=1,nc
1
Warning: Label 14720 at (1) defined but not used
newGLMnet.f90:3197.5:
14701 continue
1
Warning: Label 14701 at (1) defined but not used
newGLMnet.f90:3163.5:
14652 continue
1
Warning: Label 14652 at (1) defined but not used
newGLMnet.f90:3149.5:
14650 do 14651 ic=1,nc
1
Warning: Label 14650 at (1) defined but not used
newGLMnet.f90:3569.5:
15552 continue
1
Warning: Label 15552 at (1) defined but not used
newGLMnet.f90:3566.5:
15550 do 15551 ic=1,nc
1
Warning: Label 15550 at (1) defined but not used
newGLMnet.f90:3571.5:
15542 continue
1
Warning: Label 15542 at (1) defined but not used
newGLMnet.f90:3562.5:
15540 do 15541 j=1,nin
1
Warning: Label 15540 at (1) defined but not used
newGLMnet.f90:3561.5:
15532 continue
1
Warning: Label 15532 at (1) defined but not used
newGLMnet.f90:3558.5:
15530 do 15531 ic=1,nc
1
Warning: Label 15530 at (1) defined but not used
newGLMnet.f90:3620.5:
15662 continue
1
Warning: Label 15662 at (1) defined but not used
newGLMnet.f90:3616.5:
15660 do 15661 k=1,lmu
1
Warning: Label 15660 at (1) defined but not used
newGLMnet.f90:3638.5:
15672 continue
1
Warning: Label 15672 at (1) defined but not used
newGLMnet.f90:3629.5:
15670 do 15671 j=1,ni
1
Warning: Label 15670 at (1) defined but not used
newGLMnet.f90:3880.5:
16182 continue
1
Warning: Label 16182 at (1) defined but not used
newGLMnet.f90:3877.5:
16180 do 16181 j=1,nin
1
Warning: Label 16180 at (1) defined but not used
newGLMnet.f90:3859.5:
16132 continue
1
Warning: Label 16132 at (1) defined but not used
newGLMnet.f90:3850.5:
16130 do 16131 k=1,ni
1
Warning: Label 16130 at (1) defined but not used
newGLMnet.f90:3842.5:
16100 do 16101 j=1,nin
1
Warning: Label 16100 at (1) defined but not used
newGLMnet.f90:3815.5:
16011 continue
1
Warning: Label 16011 at (1) defined but not used
newGLMnet.f90:3824.5:
16002 continue
1
Warning: Label 16002 at (1) defined but not used
newGLMnet.f90:3806.5:
16000 do 16001 l=1,nin
1
Warning: Label 16000 at (1) defined but not used
newGLMnet.f90:3802.5:
15990 continue
1
Warning: Label 15990 at (1) defined but not used
newGLMnet.f90:3780.5:
15901 continue
1
Warning: Label 15901 at (1) defined but not used
newGLMnet.f90:3771.5:
15890 do 15891 j=1,ni
1
Warning: Label 15890 at (1) defined but not used
newGLMnet.f90:3767.5:
15880 continue
1
Warning: Label 15880 at (1) defined but not used
newGLMnet.f90:3763.5:
15870 continue
1
Warning: Label 15870 at (1) defined but not used
newGLMnet.f90:3761.5:
15862 continue
1
Warning: Label 15862 at (1) defined but not used
newGLMnet.f90:3756.5:
15860 do 15861 k=1,ni
1
Warning: Label 15860 at (1) defined but not used
newGLMnet.f90:3748.5:
15852 continue
1
Warning: Label 15852 at (1) defined but not used
newGLMnet.f90:3744.5:
15850 do 15851 j=1,ni
1
Warning: Label 15850 at (1) defined but not used
newGLMnet.f90:3731.5:
15790 do 15791 ilm=1,nlam
1
Warning: Label 15790 at (1) defined but not used
newGLMnet.f90:3730.5:
15782 continue
1
Warning: Label 15782 at (1) defined but not used
newGLMnet.f90:3726.5:
15780 do 15781 j=1,ni
1
Warning: Label 15780 at (1) defined but not used
newGLMnet.f90:3712.5:
15732 continue
1
Warning: Label 15732 at (1) defined but not used
newGLMnet.f90:3706.5:
15730 do 15731 i=1,no
1
Warning: Label 15730 at (1) defined but not used
newGLMnet.f90:3702.5:
15701 continue
1
Warning: Label 15701 at (1) defined but not used
newGLMnet.f90:3945.5:
16290 continue
1
Warning: Label 16290 at (1) defined but not used
newGLMnet.f90:3943.5:
16280 continue
1
Warning: Label 16280 at (1) defined but not used
newGLMnet.f90:3937.5:
16272 continue
1
Warning: Label 16272 at (1) defined but not used
newGLMnet.f90:3934.5:
16270 do 16271 j=1,nj
1
Warning: Label 16270 at (1) defined but not used
newGLMnet.f90:3922.5:
16240 continue
1
Warning: Label 16240 at (1) defined but not used
newGLMnet.f90:3916.5:
16212 continue
1
Warning: Label 16212 at (1) defined but not used
newGLMnet.f90:3911.5:
16210 do 16211 j=1,no
1
Warning: Label 16210 at (1) defined but not used
newGLMnet.f90:3908.5:
16202 continue
1
Warning: Label 16202 at (1) defined but not used
newGLMnet.f90:3905.5:
16200 do 16201 j=1,no
1
Warning: Label 16200 at (1) defined but not used
newGLMnet.f90:4018.5:
16402 continue
1
Warning: Label 16402 at (1) defined but not used
newGLMnet.f90:4015.5:
16400 do 16401 k=2,nk
1
Warning: Label 16400 at (1) defined but not used
newGLMnet.f90:4032.5:
16422 continue
1
Warning: Label 16422 at (1) defined but not used
newGLMnet.f90:4029.5:
16420 do 16421 j=j2,j1,-1
1
Warning: Label 16420 at (1) defined but not used
newGLMnet.f90:4035.5:
16412 continue
1
Warning: Label 16412 at (1) defined but not used
newGLMnet.f90:4025.5:
16410 do 16411 k=nk,1,-1
1
Warning: Label 16410 at (1) defined but not used
newGLMnet.f90:3997.5:
16362 continue
1
Warning: Label 16362 at (1) defined but not used
newGLMnet.f90:3988.5:
16360 do 16361 j=j1,j2
1
Warning: Label 16360 at (1) defined but not used
newGLMnet.f90:3999.5:
16352 continue
1
Warning: Label 16352 at (1) defined but not used
newGLMnet.f90:3983.5:
16350 do 16351 k=2,nk
1
Warning: Label 16350 at (1) defined but not used
newGLMnet.f90:3982.5:
16322 continue
1
Warning: Label 16322 at (1) defined but not used
newGLMnet.f90:3973.5:
16320 do 16321 j=1,kp(1)
1
Warning: Label 16320 at (1) defined but not used
newGLMnet.f90:4008.5:
16392 continue
1
Warning: Label 16392 at (1) defined but not used
newGLMnet.f90:4005.5:
16390 do 16391 j=1,ni
1
Warning: Label 16390 at (1) defined but not used
newGLMnet.f90:3899.5:
16192 continue
1
Warning: Label 16192 at (1) defined but not used
newGLMnet.f90:3896.5:
16190 do 16191 i=1,n
1
Warning: Label 16190 at (1) defined but not used
newGLMnet.f90:4091.5:
16472 continue
1
Warning: Label 16472 at (1) defined but not used
newGLMnet.f90:4087.5:
16470 do 16471 i=1,no
1
Warning: Label 16470 at (1) defined but not used
newGLMnet.f90:4094.5:
16462 continue
1
Warning: Label 16462 at (1) defined but not used
newGLMnet.f90:4086.5:
16460 do 16461 lam=1,nlam
1
Warning: Label 16460 at (1) defined but not used
newGLMnet.f90:4085.5:
16452 continue
1
Warning: Label 16452 at (1) defined but not used
newGLMnet.f90:4082.5:
16450 do 16451 j=1,ni
1
Warning: Label 16450 at (1) defined but not used
newGLMnet.f90:4151.5:
16582 continue
1
Warning: Label 16582 at (1) defined but not used
newGLMnet.f90:4146.5:
16580 do 16581 k=1,lmu
1
Warning: Label 16580 at (1) defined but not used
newGLMnet.f90:4398.5:
17022 continue
1
Warning: Label 17022 at (1) defined but not used
newGLMnet.f90:4395.5:
17020 do 17021 j=1,nin
1
Warning: Label 17020 at (1) defined but not used
newGLMnet.f90:4375.5:
16972 continue
1
Warning: Label 16972 at (1) defined but not used
newGLMnet.f90:4366.5:
16970 do 16971 k=1,ni
1
Warning: Label 16970 at (1) defined but not used
newGLMnet.f90:4358.5:
16940 do 16941 j=1,nin
1
Warning: Label 16940 at (1) defined but not used
newGLMnet.f90:4330.5:
16871 continue
1
Warning: Label 16871 at (1) defined but not used
newGLMnet.f90:4337.5:
16862 continue
1
Warning: Label 16862 at (1) defined but not used
newGLMnet.f90:4319.5:
16860 do 16861 l=1,nin
1
Warning: Label 16860 at (1) defined but not used
newGLMnet.f90:4315.5:
16850 continue
1
Warning: Label 16850 at (1) defined but not used
newGLMnet.f90:4290.5:
16781 continue
1
Warning: Label 16781 at (1) defined but not used
newGLMnet.f90:4279.5:
16770 do 16771 k=1,ni
1
Warning: Label 16770 at (1) defined but not used
newGLMnet.f90:4275.5:
16760 continue
1
Warning: Label 16760 at (1) defined but not used
newGLMnet.f90:4274.5:
16752 continue
1
Warning: Label 16752 at (1) defined but not used
newGLMnet.f90:4271.5:
16750 do 16751 j=1,ni
1
Warning: Label 16750 at (1) defined but not used
newGLMnet.f90:4267.5:
16740 continue
1
Warning: Label 16740 at (1) defined but not used
newGLMnet.f90:4265.5:
16732 continue
1
Warning: Label 16732 at (1) defined but not used
newGLMnet.f90:4260.5:
16730 do 16731 k=1,ni
1
Warning: Label 16730 at (1) defined but not used
newGLMnet.f90:4252.5:
16722 continue
1
Warning: Label 16722 at (1) defined but not used
newGLMnet.f90:4248.5:
16720 do 16721 j=1,ni
1
Warning: Label 16720 at (1) defined but not used
newGLMnet.f90:4235.5:
16660 do 16661 ilm=1,nlam
1
Warning: Label 16660 at (1) defined but not used
newGLMnet.f90:4234.5:
16652 continue
1
Warning: Label 16652 at (1) defined but not used
newGLMnet.f90:4230.5:
16650 do 16651 j=1,ni
1
Warning: Label 16650 at (1) defined but not used
newGLMnet.f90:4215.5:
16622 continue
1
Warning: Label 16622 at (1) defined but not used
newGLMnet.f90:4212.5:
16620 do 16621 i=1,no
1
Warning: Label 16620 at (1) defined but not used
newGLMnet.f90:4206.5:
16591 continue
1
Warning: Label 16591 at (1) defined but not used
newGLMnet.f90:4405.5:
11790 continue
1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4427.5:
17062 continue
1
Warning: Label 17062 at (1) defined but not used
newGLMnet.f90:4424.5:
17060 do 17061 lam=1,lmu
1
Warning: Label 17060 at (1) defined but not used
newGLMnet.f90:4436.5:
17072 continue
1
Warning: Label 17072 at (1) defined but not used
newGLMnet.f90:4433.5:
17070 do 17071 lam=1,lmu
1
Warning: Label 17070 at (1) defined but not used
newGLMnet.f90:4463.5:
17132 continue
1
Warning: Label 17132 at (1) defined but not used
newGLMnet.f90:4458.5:
17130 do 17131 i=1,no
1
Warning: Label 17130 at (1) defined but not used
newGLMnet.f90:4466.5:
17122 continue
1
Warning: Label 17122 at (1) defined but not used
newGLMnet.f90:4456.5:
17120 do 17121 lam=1,nlam
1
Warning: Label 17120 at (1) defined but not used
newGLMnet.f90:4521.5:
17222 continue
1
Warning: Label 17222 at (1) defined but not used
newGLMnet.f90:4516.5:
17220 do 17221 k=1,lmu
1
Warning: Label 17220 at (1) defined but not used
newGLMnet.f90:4805.5:
17672 continue
1
Warning: Label 17672 at (1) defined but not used
newGLMnet.f90:4802.5:
17670 do 17671 j=1,nin
1
Warning: Label 17670 at (1) defined but not used
newGLMnet.f90:4782.5:
17622 continue
1
Warning: Label 17622 at (1) defined but not used
newGLMnet.f90:4769.5:
17620 do 17621 j=1,ni
1
Warning: Label 17620 at (1) defined but not used
newGLMnet.f90:4761.5:
17590 do 17591 j=1,nin
1
Warning: Label 17590 at (1) defined but not used
newGLMnet.f90:4729.5:
17521 continue
1
Warning: Label 17521 at (1) defined but not used
newGLMnet.f90:4739.5:
17512 continue
1
Warning: Label 17512 at (1) defined but not used
newGLMnet.f90:4715.5:
17510 do 17511 l=1,nin
1
Warning: Label 17510 at (1) defined but not used
newGLMnet.f90:4711.5:
17500 continue
1
Warning: Label 17500 at (1) defined but not used
newGLMnet.f90:4684.5:
17431 continue
1
Warning: Label 17431 at (1) defined but not used
newGLMnet.f90:4670.5:
17420 do 17421 k=1,ni
1
Warning: Label 17420 at (1) defined but not used
newGLMnet.f90:4666.5:
17410 continue
1
Warning: Label 17410 at (1) defined but not used
newGLMnet.f90:4665.5:
17402 continue
1
Warning: Label 17402 at (1) defined but not used
newGLMnet.f90:4657.5:
17400 do 17401 j=1,ni
1
Warning: Label 17400 at (1) defined but not used
newGLMnet.f90:4653.5:
17390 continue
1
Warning: Label 17390 at (1) defined but not used
newGLMnet.f90:4651.5:
17382 continue
1
Warning: Label 17382 at (1) defined but not used
newGLMnet.f90:4646.5:
17380 do 17381 k=1,ni
1
Warning: Label 17380 at (1) defined but not used
newGLMnet.f90:4638.5:
17372 continue
1
Warning: Label 17372 at (1) defined but not used
newGLMnet.f90:4634.5:
17370 do 17371 j=1,ni
1
Warning: Label 17370 at (1) defined but not used
newGLMnet.f90:4621.5:
17310 do 17311 ilm=1,nlam
1
Warning: Label 17310 at (1) defined but not used
newGLMnet.f90:4620.5:
17302 continue
1
Warning: Label 17302 at (1) defined but not used
newGLMnet.f90:4613.5:
17300 do 17301 j=1,ni
1
Warning: Label 17300 at (1) defined but not used
newGLMnet.f90:4598.5:
17272 continue
1
Warning: Label 17272 at (1) defined but not used
newGLMnet.f90:4595.5:
17270 do 17271 i=1,no
1
Warning: Label 17270 at (1) defined but not used
newGLMnet.f90:4586.5:
17262 continue
1
Warning: Label 17262 at (1) defined but not used
newGLMnet.f90:4580.5:
17260 do 17261 j=1,ni
1
Warning: Label 17260 at (1) defined but not used
newGLMnet.f90:4588.5:
17231 continue
1
Warning: Label 17231 at (1) defined but not used
newGLMnet.f90:4812.5:
11790 continue
1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4844.5:
17732 continue
1
Warning: Label 17732 at (1) defined but not used
newGLMnet.f90:4838.5:
17730 do 17731 j=1,ni
1
Warning: Label 17730 at (1) defined but not used
newGLMnet.f90:4849.5:
17722 continue
1
Warning: Label 17722 at (1) defined but not used
newGLMnet.f90:4836.5:
17720 do 17721 lam=1,nlam
1
Warning: Label 17720 at (1) defined but not used
newGLMnet.f90:4883.5:
17792 continue
1
Warning: Label 17792 at (1) defined but not used
newGLMnet.f90:4877.5:
17790 do 17791 k=1,nin(lam)
1
Warning: Label 17790 at (1) defined but not used
newGLMnet.f90:4888.5:
17782 continue
1
Warning: Label 17782 at (1) defined but not used
newGLMnet.f90:4875.5:
17780 do 17781 lam=1,nlam
1
Warning: Label 17780 at (1) defined but not used
newGLMnet.f90:4527.25:
*min,ulam, shri,isd,maxit,xb,xs,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,j
1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:4158.17:
*,shri, isd,maxit,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,jerr)
1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:4038.25:
function risk(no,ni,nk,d,dk,f,e,kp,jp,u)
1
Warning: Unused dummy argument 'ni' at (1)
newGLMnet.f90:4041.24:
real e(no),u(nk),s
1
Warning: Unused variable 's' declared at (1)
newGLMnet.f90:3642.19:
*m,cthri, isd,maxit,lmu,ao,m,kin,dev0,dev,alm,nlp,jerr)
1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:1394.8:
*rr)
1
Warning: Unused dummy argument 'jerr' at (1)
newGLMnet.f90:1150.9:
*err)
1
Warning: Unused dummy argument 'jerr' at (1)
newGLMnet.f90: In function ‘azero’:
newGLMnet.f90:2086:0: warning: control reaches end of non-void function [-Wreturn-type]
if(jerr.ne.0) return 1413
^
newGLMnet.f90: In function ‘spfishnet1’:
newGLMnet.f90:4640:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 2613
^
newGLMnet.f90:4535:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,ixx
^
newGLMnet.f90:4535:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0: warning: ‘t.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: qy,t,w,wr,v,a,as,xm,ga
^
newGLMnet.f90:4534:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘fishnet1’:
newGLMnet.f90:4254:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 2431
^
newGLMnet.f90:4164:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
^
newGLMnet.f90:4165:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,ixx
^
newGLMnet.f90:4165:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
^
newGLMnet.f90:4164:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘coxnet1’:
newGLMnet.f90:3750:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 2193
^
newGLMnet.f90:3649:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: jp,kp,mm,ixx
^
newGLMnet.f90:3647:0: warning: ‘wr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq
^
newGLMnet.f90:3649:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: jp,kp,mm,ixx
^
newGLMnet.f90:3647:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq
^
newGLMnet.f90:3647:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3647:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘sprlognetn’:
newGLMnet.f90:3270:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 1961
^
newGLMnet.f90:3111:0: warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: sc,xm,v,r,ga
^
newGLMnet.f90:3110:0: warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: sxp,sxpl
^
newGLMnet.f90:3110:0: warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0: warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,is,iy
^
newGLMnet.f90:3111:0: warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: sc,xm,v,r,ga
^
newGLMnet.f90:3113:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,is,iy
^
newGLMnet.f90:3111:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: sc,xm,v,r,ga
^
newGLMnet.f90:3109:0: warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: q
^
newGLMnet.f90:3109:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0: warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: b,bs,xv
^
newGLMnet.f90:3112:0: warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘sprlognet2n’:
newGLMnet.f90:2883:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 1779
^
newGLMnet.f90:2758:0: warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
^
newGLMnet.f90:2758:0: warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2759:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,ixx
^
newGLMnet.f90:2759:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
^
newGLMnet.f90:2758:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘lognetn’:
newGLMnet.f90:2258:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 1491
^
newGLMnet.f90:2116:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,is,ixx
^
newGLMnet.f90:2114:0: warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: di,v,r,ga
^
newGLMnet.f90:2114:0: warning: ‘di.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0: warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: sxp,sxpl
^
newGLMnet.f90:2113:0: warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2116:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,is,ixx
^
newGLMnet.f90:2114:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: di,v,r,ga
^
newGLMnet.f90:2112:0: warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: q
^
newGLMnet.f90:2112:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2112:0: warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: b,bs,xv
^
newGLMnet.f90:2115:0: warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘lognet2n’:
newGLMnet.f90:1889:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
al=alf*al0 1320
^
newGLMnet.f90:1779:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
^
newGLMnet.f90:1779:0: warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1780:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,ixx
^
newGLMnet.f90:1780:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
^
newGLMnet.f90:1779:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘spelnet2’:
newGLMnet.f90:1479:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
alm=alf*alm0 1128
^
newGLMnet.f90:1428:0: warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,iy
^
newGLMnet.f90:1428:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1427:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: a,g
^
newGLMnet.f90: In function ‘spelnetn’:
newGLMnet.f90:1356:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,xv,vlam
^
newGLMnet.f90:1357:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90: In function ‘spelnet1’:
newGLMnet.f90:1220:0: warning: ‘alm’ may be used uninitialized in this function [-Wmaybe-uninitialized]
alm=alm*alf 999
^
newGLMnet.f90:1233:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
alm=alf*alm/max(bta,1.0e-3) 1006
^
newGLMnet.f90:1192:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm
^
newGLMnet.f90:1191:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: a,da
^
newGLMnet.f90:1193:0: warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: c
^
newGLMnet.f90:1193:0: warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘spelnetu’:
newGLMnet.f90:1110:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,g,xv,vlam
^
newGLMnet.f90:1111:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90: In function ‘elnet2’:
newGLMnet.f90:929:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
alm=alf*alm0 836
^
newGLMnet.f90:881:0: warning: ‘ix.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm,ix
^
newGLMnet.f90:881:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:880:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: a,g
^
newGLMnet.f90: In function ‘elnetn’:
newGLMnet.f90:801:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,xv,vlam
^
newGLMnet.f90:802:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90: In function ‘elnet1’:
newGLMnet.f90:678:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
alm=alf*alm/max(bta,1.0e-3) 712
^
newGLMnet.f90:637:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: mm
^
newGLMnet.f90:636:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: a,da
^
newGLMnet.f90:638:0: warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:,:), allocatable :: c
^
newGLMnet.f90:638:0: warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘elnetu’:
newGLMnet.f90:550:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,g,xv,vlam
^
newGLMnet.f90:551:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90: In function ‘lognet’:
newGLMnet.f90:1694:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90:1695:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90:1694:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90: In function ‘splognet’:
newGLMnet.f90:2672:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90:2673:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90:2672:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90: In function ‘coxnet’:
newGLMnet.f90:3579:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xs,ww,vq
^
newGLMnet.f90:3580:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90: In function ‘fishnet’:
newGLMnet.f90:4104:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90:4105:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90:4104:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90: In function ‘spfishnet’:
newGLMnet.f90:4476:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90:4477:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
integer, dimension (:), allocatable :: ju
^
newGLMnet.f90:4476:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: xm,xs,ww,vq
^
newGLMnet.f90: In function ‘spdeviance’:
newGLMnet.f90:4819:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: w,f
^
newGLMnet.f90:4819:0: warning: ‘w.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘cspdeviance’:
newGLMnet.f90:4858:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
real, dimension (:), allocatable :: w,f
^
newGLMnet.f90:4858:0: warning: ‘w.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran-4.8 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o iClusterPlus.so iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/lib/gcc/x86_64-apple-darwin13.0.0/4.8.2 -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Users/biocbuild/bbs-3.4-bioc/meat/iClusterPlus.Rcheck/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** preparing package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded
* DONE (iClusterPlus)
iClusterPlus.Rcheck/iClusterPlus-Ex.timings:
| name | user | system | elapsed | |
| CNregions | 0 | 0 | 0 | |
| compute.pod | 0.001 | 0.000 | 0.000 | |
| iCluster | 4.438 | 0.028 | 4.468 | |
| iCluster2 | 0.536 | 0.008 | 0.544 | |
| iClusterPlus | 0.001 | 0.000 | 0.001 | |
| plotHeatmap | 0.000 | 0.000 | 0.001 | |
| plotRI | 0.000 | 0.000 | 0.001 | |
| plotiCluster | 0 | 0 | 0 | |
| tune.iClusterPlus | 0 | 0 | 0 | |
| utility | 0.001 | 0.000 | 0.000 | |