| 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 2014-10-08 09:07:21 -0700 (Wed, 08 Oct 2014).
| Package 405/824 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | ||||
| iClusterPlus 1.0.1 Qianxing Mo
| zin2 | Linux (Ubuntu 12.04.4 LTS) / x86_64 | NotNeeded | OK | OK | |||||
| moscato2 | Windows Server 2008 R2 Enterprise SP1 (64-bit) / x64 | NotNeeded | OK | OK | OK | |||||
| petty | Mac OS X Snow Leopard (10.6.8) / x86_64 | NotNeeded | OK | OK | OK | |||||
| morelia | Mac OS X Mavericks (10.9.5) / x86_64 | NotNeeded | OK | [ WARNINGS ] | OK |
| Package: iClusterPlus |
| Version: 1.0.1 |
| Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --no-vignettes --timings --no-multiarch iClusterPlus_1.0.1.tar.gz |
| StartedAt: 2014-10-07 23:33:25 -0700 (Tue, 07 Oct 2014) |
| EndedAt: 2014-10-07 23:35:49 -0700 (Tue, 07 Oct 2014) |
| EllapsedTime: 144.6 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 --no-multiarch iClusterPlus_1.0.1.tar.gz
###
##############################################################################
##############################################################################
* using log directory ‘/Users/biocbuild/bbs-2.14-bioc/meat/iClusterPlus.Rcheck’
* using R version 3.1.1 (2014-07-10)
* using platform: x86_64-apple-darwin13.1.0 (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘iClusterPlus/DESCRIPTION’ ... OK
* this is package ‘iClusterPlus’ version ‘1.0.1’
* 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 ... [22s/22s] WARNING
Found the following significant warnings:
newGLMnet.f90:2086:0: warning: control reaches end of non-void function [-Wreturn-type]
See ‘/Users/biocbuild/bbs-2.14-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 ... OK
* 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 ... OK
* 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 : get.medoid: no visible global function definition for ‘pam’
classError: no visible global function definition for ‘mapClass’
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 : 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: no visible global function definition for ‘levelplot’
* 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 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 ... [7s/8s] OK
Examples with CPU or elapsed time > 5s
user system elapsed
iCluster 6.343 0.053 6.438
* checking for unstated dependencies in tests ... OK
* checking tests ...
Running ‘runTests.R’ [83s/83s]
[83s/83s] 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
WARNING: There was 1 warning.
NOTE: There were 2 notes.
See
‘/Users/biocbuild/bbs-2.14-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
gfortran-4.8 -fdefault-real-8 -ffixed-form -fno-common -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/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-2.14-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.001 | 0.000 | 0.001 | |
| compute.pod | 0.001 | 0.000 | 0.000 | |
| iCluster | 6.343 | 0.053 | 6.438 | |
| iCluster2 | 0.634 | 0.011 | 0.646 | |
| iClusterPlus | 0 | 0 | 0 | |
| plotHeatmap | 0.000 | 0.001 | 0.000 | |
| plotRI | 0.001 | 0.000 | 0.001 | |
| plotiCluster | 0.001 | 0.000 | 0.000 | |
| tune.iClusterPlus | 0.000 | 0.000 | 0.001 | |
| utility | 0.000 | 0.000 | 0.001 | |