Qianxing Mo
| Snapshot Date: 2018-10-15 16:45:08 -0400 (Mon, 15 Oct 2018) |
| URL: https://git.bioconductor.org/packages/iClusterPlus |
| Branch: RELEASE_3_7 |
| Last Commit: 6db4562 |
| Last Changed Date: 2018-04-30 10:35:32 -0400 (Mon, 30 Apr 2018) |
| Back to Multiple platform build/check report for BioC 3.7 |
|
This page was generated on 2018-10-17 08:52:23 -0400 (Wed, 17 Oct 2018).
| Package 712/1561 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | ||||||
| iClusterPlus 1.16.0 Qianxing Mo
| malbec2 | Linux (Ubuntu 16.04.1 LTS) / x86_64 | OK | OK | OK | | ||||||
| tokay2 | Windows Server 2012 R2 Standard / x64 | OK | OK | OK | OK | | ||||||
| merida2 | OS X 10.11.6 El Capitan / x86_64 | OK | OK | [ WARNINGS ] | OK | |
| Package: iClusterPlus |
| Version: 1.16.0 |
| Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.16.0.tar.gz |
| StartedAt: 2018-10-16 22:02:22 -0400 (Tue, 16 Oct 2018) |
| EndedAt: 2018-10-16 22:04:39 -0400 (Tue, 16 Oct 2018) |
| EllapsedTime: 136.3 seconds |
| RetCode: 0 |
| Status: WARNINGS |
| CheckDir: iClusterPlus.Rcheck |
| Warnings: 1 |
##############################################################################
##############################################################################
###
### Running command:
###
### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.16.0.tar.gz
###
##############################################################################
##############################################################################
* using log directory ‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck’
* using R version 3.5.1 Patched (2018-07-12 r74967)
* using platform: x86_64-apple-darwin15.6.0 (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘iClusterPlus/DESCRIPTION’ ... OK
* this is package ‘iClusterPlus’ version ‘1.16.0’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘iClusterPlus’ can be installed ... WARNING
Found the following significant warnings:
Warning: control reaches end of non-void function [-Wreturn-type]
See ‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck/00install.out’ for details.
* checking installed package size ... NOTE
installed size is 22.7Mb
sub-directories of 1Mb or more:
data 17.9Mb
doc 4.2Mb
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... NOTE
Malformed Description field: should contain one or more complete sentences.
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking dependencies in R code ... NOTE
Package in Depends field not imported from: ‘parallel’
These packages need to be imported from (in the NAMESPACE file)
for when this namespace is loaded but not attached.
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
CNregions: no visible binding for global variable ‘chromosome’
CNregions: no visible binding for global variable ‘num.mark’
CNregions: no visible global function definition for ‘GRanges’
CNregions: no visible global function definition for ‘IRanges’
CNregions: no visible global function definition for ‘findOverlaps’
CNregions: no visible global function definition for ‘tail’
CNregions: no visible global function definition for ‘quantile’
CNregions : get.medoid: no visible global function definition for ‘pam’
classError: no visible global function definition for ‘mapClass’
compute.pod: no visible global function definition for ‘model.matrix’
iCluster: no visible global function definition for ‘kmeans’
iCluster2: no visible global function definition for ‘kmeans’
iClusterBayes: no visible global function definition for ‘kmeans’
iClusterPlus: no visible global function definition for ‘rnorm’
iClusterPlus: no visible global function definition for ‘kmeans’
mcmcBayes: no visible global function definition for ‘rnorm’
plotHMBayes: no visible global function definition for ‘bluered’
plotHMBayes : my.panel.levelplot: no visible global function definition
for ‘panel.levelplot’
plotHMBayes : my.panel.levelplot: no visible global function definition
for ‘panel.abline’
plotHMBayes: no visible global function definition for ‘cor’
plotHMBayes: no visible global function definition for ‘hclust’
plotHMBayes: no visible global function definition for ‘as.dist’
plotHMBayes : my.panel.levelplot.2: no visible global function
definition for ‘panel.levelplot’
plotHMBayes : my.panel.levelplot.2: no visible global function
definition for ‘panel.abline’
plotHMBayes : scale.fn: no visible binding for global variable ‘sd’
plotHMBayes: no visible global function definition for ‘quantile’
plotHMBayes: no visible global function definition for ‘levelplot’
plotHeatmap: no visible global function definition for ‘bluered’
plotHeatmap : my.panel.levelplot: no visible global function definition
for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot: no visible global function definition
for ‘panel.abline’
plotHeatmap: no visible global function definition for ‘quantile’
plotHeatmap: no visible global function definition for ‘cor’
plotHeatmap: no visible global function definition for ‘hclust’
plotHeatmap: no visible global function definition for ‘as.dist’
plotHeatmap : my.panel.levelplot.2: no visible global function
definition for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot.2: no visible global function
definition for ‘panel.abline’
plotHeatmap : scale.fn: no visible binding for global variable ‘sd’
plotHeatmap: no visible global function definition for ‘levelplot’
plotRI: no visible global function definition for ‘plot’
plotRI: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘image’
plotiCluster: no visible global function definition for ‘gray’
plotiCluster: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘mtext’
plotiCluster: no visible global function definition for ‘box’
predict.kmeans: no visible global function definition for ‘dist’
tune.iCluster2: no visible global function definition for ‘data’
tune.iCluster2: no visible binding for global variable ‘glp’
tune.iClusterBayes: no visible global function definition for
‘mclapply’
tune.iClusterPlus: no visible global function definition for ‘data’
tune.iClusterPlus: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible global function definition for ‘mclapply’
Undefined global functions or variables:
GRanges IRanges as.dist axis bluered box chromosome cor data dist
findOverlaps glp gray hclust image kmeans levelplot mapClass mclapply
model.matrix mtext num.mark pam panel.abline panel.levelplot plot
quantile rnorm sd tail
Consider adding
importFrom("grDevices", "gray")
importFrom("graphics", "axis", "box", "image", "mtext", "plot")
importFrom("stats", "as.dist", "cor", "dist", "hclust", "kmeans",
"model.matrix", "quantile", "rnorm", "sd")
importFrom("utils", "data", "tail")
to your NAMESPACE file.
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking line endings in shell scripts ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking line endings in Makefiles ... OK
* checking compilation flags in Makevars ... OK
* checking for GNU extensions in Makefiles ... OK
* checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
* checking compiled code ... NOTE
Note: information on .o files is not available
* checking sizes of PDF files under ‘inst/doc’ ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
Examples with CPU or elapsed time > 5s
user system elapsed
iCluster 4.911 0.062 5.011
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
Running ‘runTests.R’
OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE
Status: 1 WARNING, 5 NOTEs
See
‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck/00check.log’
for details.
iClusterPlus.Rcheck/00install.out
##############################################################################
##############################################################################
###
### Running command:
###
### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus
###
##############################################################################
##############################################################################
* installing to library ‘/Library/Frameworks/R.framework/Versions/3.5/Resources/library’
* 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 -fPIC -Wall -g -O2 -c iClusterBayes.c -o iClusterBayes.o
clang -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/usr/local/include -fPIC -Wall -g -O2 -c iClusterPlus.c -o iClusterPlus.o
iClusterPlus.c:1101:60: warning: unused variable 'tempm3' [-Wunused-variable]
double *btp,*btpb, *EXZt,*tempX,*tempm0,*tempm1,*tempm2,*tempm3,*BOld,*PhivecOld, *XtXdiag;
^
1 warning generated.
gfortran -fdefault-real-8 -ffixed-form -fPIC -Wall -g -O2 -c newGLMnet.f90 -o newGLMnet.o
newGLMnet.f90:519:72:
subroutine elnet (ka,parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam 609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:521:72:
real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam) 610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:522:72:
real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam) 611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:523:72:
integer jd(*),ia(nx),nin(nlam) 612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:525:72:
if(maxval(vp) .gt. 0.0)goto 10021 615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:526:72:
jerr=10000 615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:527:72:
return 615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:528:72:
10021 continue 616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:529:72:
allocate(vq(1:ni),stat=jerr) 616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:530:72:
if(jerr.ne.0) return 617
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:531:72:
vq=max(0.0,vp) 617
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:532:72:
vq=vq*ni/sum(vq) 618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:533:72:
if(ka .ne. 1)goto 10041 619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:534:72:
call elnetu (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd 622
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:536:72:
goto 10051 623
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:537:72:
10041 continue 624
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:538:72:
call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd, 627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:540:72:
10051 continue 628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:72:
10031 continue 628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:542:72:
deallocate(vq) 629
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:543:72:
return 630
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:544:72:
end 631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:545:72:
subroutine elnetu (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t 634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:547:72:
real x(no,ni),y(no),w(no),vp(ni),ulam(nlam) 635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:548:72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:549:72:
integer jd(*),ia(nx),nin(nlam) 637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:552:72:
allocate(g(1:ni),stat=jerr) 642
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:553:72:
allocate(xm(1:ni),stat=ierr) 642
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:554:72:
jerr=jerr+ierr 643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:555:72:
allocate(xs(1:ni),stat=ierr) 643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:556:72:
jerr=jerr+ierr 644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:557:72:
allocate(ju(1:ni),stat=ierr) 644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:558:72:
jerr=jerr+ierr 645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:559:72:
allocate(xv(1:ni),stat=ierr) 645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:560:72:
jerr=jerr+ierr 646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:561:72:
allocate(vlam(1:nlam),stat=ierr) 646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:562:72:
jerr=jerr+ierr 647
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:563:72:
if(jerr.ne.0) return 648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:564:72:
call chkvars(no,ni,x,ju) 649
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:565:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:566:72:
if(maxval(ju) .gt. 0)goto 10071 650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:567:72:
jerr=7777 650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:568:72:
return 650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:569:72:
10071 continue 651
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:570:72:
call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr) 652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:571:72:
if(jerr.ne.0) return 653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:572:72:
if(flmin.ge.1.0) vlam=ulam/ys 654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:573:72:
call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x 656
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:575:72:
if(jerr.gt.0) return 657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:576:72:
10080 do 10081 k=1,lmu 657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:577:72:
alm(k)=ys*alm(k) 657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:578:72:
nk=nin(k) 658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:579:72:
10090 do 10091 l=1,nk 658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:580:72:
ca(l,k)=ys*ca(l,k)/xs(ia(l)) 658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:581:72:
10091 continue 659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:582:72:
10092 continue 659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:583:72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:584:72:
10081 continue 661
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:585:72:
10082 continue 661
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:586:72:
deallocate(xm,xs,g,ju,xv,vlam) 662
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:587:72:
return 663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:588:72:
end 664
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:589:72:
subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr) 665
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:590:72:
real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni) 665
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:591:72:
integer ju(ni) 666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:593:72:
allocate(v(1:no),stat=jerr) 669
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:594:72:
if(jerr.ne.0) return 670
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:595:72:
w=w/sum(w) 670
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:596:72:
v=sqrt(w) 671
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:597:72:
10100 do 10101 j=1,ni 671
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:598:72:
if(ju(j).eq.0)goto 10101 672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:599:72:
xm(j)=dot_product(w,x(:,j)) 672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:600:72:
x(:,j)=v*(x(:,j)-xm(j)) 673
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:601:72:
xv(j)=dot_product(x(:,j),x(:,j)) 673
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:602:72:
if(isd.gt.0) xs(j)=sqrt(xv(j)) 674
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:603:72:
10101 continue 675
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:604:72:
10102 continue 675
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:605:72:
if(isd .ne. 0)goto 10121 675
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:606:72:
xs=1.0 675
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:607:72:
goto 10131 676
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:608:72:
10121 continue 677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:609:72:
10140 do 10141 j=1,ni 677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:610:72:
if(ju(j).eq.0)goto 10141 677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:611:72:
x(:,j)=x(:,j)/xs(j) 677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:612:72:
10141 continue 678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:613:72:
10142 continue 678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:614:72:
xv=1.0 679
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:615:72:
10131 continue 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:616:72:
10111 continue 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:617:72:
ym=dot_product(w,y) 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:618:72:
y=v*(y-ym) 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:619:72:
ys=sqrt(dot_product(y,y)) 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:620:72:
y=y/ys 680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:621:72:
g=0.0 681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:622:72:
10150 do 10151 j=1,ni 681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:623:72:
if(ju(j).ne.0) g(j)=dot_product(y,x(:,j)) 681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:624:72:
10151 continue 682
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:625:72:
10152 continue 682
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:626:72:
deallocate(v) 683
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:627:72:
return 684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:628:72:
end 685
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:629:72:
subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr, 687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:631:72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 688
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:633:72:
real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo( 689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:635:72:
integer ju(ni),ia(nx),kin(nlam) 690
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:640:72:
allocate(a(1:ni),stat=ierr) 696
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:641:72:
jerr=jerr+ierr 697
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:642:72:
allocate(mm(1:ni),stat=ierr) 697
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:643:72:
jerr=jerr+ierr 698
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:644:72:
allocate(da(1:ni),stat=ierr) 698
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:645:72:
jerr=jerr+ierr 699
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:646:72:
if(jerr.ne.0) return 700
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:647:72:
bta=beta 700
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:648:72:
omb=1.0-bta 701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:649:72:
if(flmin .ge. 1.0)goto 10171 701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:650:72:
eqs=max(eps,flmin) 701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:651:72:
alf=eqs**(1.0/(nlam-1)) 701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:652:72:
10171 continue 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:653:72:
rsq=0.0 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:654:72:
a=0.0 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:655:72:
mm=0 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:656:72:
nlp=0 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:657:72:
nin=nlp 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:658:72:
iz=0 702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:659:72:
mnl=min(mnlam,nlam) 703
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:660:72:
10180 do 10181 m=1,nlam 704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:661:72:
if(flmin .lt. 1.0)goto 10201 704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:662:72:
alm=ulam(m) 704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:663:72:
goto 10191 705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:664:72:
10201 if(m .le. 2)goto 10211 705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:665:72:
alm=alm*alf 705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:666:72:
goto 10191 706
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:667:72:
10211 if(m .ne. 1)goto 10221 706
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:668:72:
alm=big 706
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:669:72:
goto 10231 707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:670:72:
10221 continue 707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:671:72:
alm=0.0 708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:672:72:
10240 do 10241 j=1,ni 708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:673:72:
if(ju(j).eq.0)goto 10241 708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:674:72:
if(vp(j).le.0.0)goto 10241 709
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:675:72:
alm=max(alm,abs(g(j))/vp(j)) 710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:676:72:
10241 continue 711
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:677:72:
10242 continue 711
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:678:72:
alm=alf*alm/max(bta,1.0e-3) 712
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:679:72:
10231 continue 713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:680:72:
10191 continue 713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:681:72:
dem=alm*omb 713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:682:72:
ab=alm*bta 713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:683:72:
rsq0=rsq 713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:684:72:
jz=1 714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:685:72:
10250 continue 714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:686:72:
10251 continue 714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:687:72:
if(iz*jz.ne.0) go to 10260 714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:688:72:
nlp=nlp+1 714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:689:72:
dlx=0.0 715
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:690:72:
10270 do 10271 k=1,ni 715
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:691:72:
if(ju(k).eq.0)goto 10271 716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:692:72:
ak=a(k) 716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:693:72:
u=g(k)+ak*xv(k) 716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:694:72:
v=abs(u)-vp(k)*ab 716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:695:72:
a(k)=0.0 717
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:696:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 718
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:697:72:
if(a(k).eq.ak)goto 10271 719
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:698:72:
if(mm(k) .ne. 0)goto 10291 719
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:699:72:
nin=nin+1 719
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:700:72:
if(nin.gt.nx)goto 10272 720
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:701:72:
10300 do 10301 j=1,ni 720
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:702:72:
if(ju(j).eq.0)goto 10301 721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:703:72:
if(mm(j) .eq. 0)goto 10321 721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:704:72:
c(j,nin)=c(k,mm(j)) 721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:705:72:
goto 10301 721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:706:72:
10321 continue 722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:707:72:
if(j .ne. k)goto 10341 722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:708:72:
c(j,nin)=xv(j) 722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:709:72:
goto 10301 722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:710:72:
10341 continue 723
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:711:72:
c(j,nin)=dot_product(x(:,j),x(:,k)) 724
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:712:72:
10301 continue 725
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:713:72:
10302 continue 725
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:714:72:
mm(k)=nin 725
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:715:72:
ia(nin)=k 726
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:716:72:
10291 continue 727
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:717:72:
del=a(k)-ak 727
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:718:72:
rsq=rsq+del*(2.0*g(k)-del*xv(k)) 728
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:719:72:
dlx=max(xv(k)*del**2,dlx) 729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:720:72:
10350 do 10351 j=1,ni 729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:721:72:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:722:72:
10351 continue 730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:723:72:
10352 continue 730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:724:72:
10271 continue 731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:725:72:
10272 continue 731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:726:72:
if(dlx.lt.thr)goto 10252 731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:727:72:
if(nin.gt.nx)goto 10252 732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:728:72:
if(nlp .le. maxit)goto 10371 732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:729:72:
jerr=-m 732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:730:72:
return 732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:731:72:
10371 continue 733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:732:72:
10260 continue 733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:733:72:
iz=1 733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:734:72:
da(1:nin)=a(ia(1:nin)) 734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:735:72:
10380 continue 734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:736:72:
10381 continue 734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:737:72:
nlp=nlp+1 734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:738:72:
dlx=0.0 735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:739:72:
10390 do 10391 l=1,nin 735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:740:72:
k=ia(l) 735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:741:72:
ak=a(k) 735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:742:72:
u=g(k)+ak*xv(k) 735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:743:72:
v=abs(u)-vp(k)*ab 736
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:744:72:
a(k)=0.0 737
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:745:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 738
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:746:72:
if(a(k).eq.ak)goto 10391 739
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:747:72:
del=a(k)-ak 739
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:748:72:
rsq=rsq+del*(2.0*g(k)-del*xv(k)) 740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:749:72:
dlx=max(xv(k)*del**2,dlx) 741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:750:72:
10400 do 10401 j=1,nin 741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:751:72:
g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del 741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:752:72:
10401 continue 742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:753:72:
10402 continue 742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:754:72:
10391 continue 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:755:72:
10392 continue 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:756:72:
if(dlx.lt.thr)goto 10382 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:757:72:
if(nlp .le. maxit)goto 10421 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:758:72:
jerr=-m 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:759:72:
return 743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:760:72:
10421 continue 744
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:761:72:
goto 10381 745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:762:72:
10382 continue 745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:763:72:
da(1:nin)=a(ia(1:nin))-da(1:nin) 746
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:764:72:
10430 do 10431 j=1,ni 746
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:765:72:
if(mm(j).ne.0)goto 10431 747
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:766:72:
if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin)) 748
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:767:72:
10431 continue 749
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:768:72:
10432 continue 749
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:769:72:
jz=0 750
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:770:72:
goto 10251 751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:771:72:
10252 continue 751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:772:72:
if(nin .le. nx)goto 10451 751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:773:72:
jerr=-10000-m 751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:774:72:
goto 10182 751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:775:72:
10451 continue 752
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:776:72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 752
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:777:72:
kin(m)=nin 753
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:778:72:
rsqo(m)=rsq 753
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:779:72:
almo(m)=alm 753
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:780:72:
lmu=m 754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:781:72:
if(m.lt.mnl)goto 10181 754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:782:72:
if(flmin.ge.1.0)goto 10181 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:783:72:
me=0 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:784:72:
10460 do 10461 j=1,nin 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:785:72:
if(ao(j,m).ne.0.0) me=me+1 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:786:72:
10461 continue 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:787:72:
10462 continue 755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:788:72:
if(me.gt.ne)goto 10182 756
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:789:72:
if(rsq-rsq0.lt.sml*rsq)goto 10182 756
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:790:72:
if(rsq.gt.rsqmax)goto 10182 757
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:791:72:
10181 continue 758
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:792:72:
10182 continue 758
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:793:72:
deallocate(a,mm,c,da) 759
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:794:72:
return 760
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:795:72:
end 761
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:796:72:
subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th 763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:798:72:
real vp(ni),x(no,ni),y(no),w(no),ulam(nlam) 764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:799:72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 765
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:800:72:
integer jd(*),ia(nx),nin(nlam) 766
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:803:72:
allocate(xm(1:ni),stat=jerr) 771
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:804:72:
allocate(xs(1:ni),stat=ierr) 771
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:805:72:
jerr=jerr+ierr 772
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:806:72:
allocate(ju(1:ni),stat=ierr) 772
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:807:72:
jerr=jerr+ierr 773
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:808:72:
allocate(xv(1:ni),stat=ierr) 773
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:809:72:
jerr=jerr+ierr 774
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:810:72:
allocate(vlam(1:nlam),stat=ierr) 774
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:811:72:
jerr=jerr+ierr 775
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:812:72:
if(jerr.ne.0) return 776
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:813:72:
call chkvars(no,ni,x,ju) 777
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:814:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:815:72:
if(maxval(ju) .gt. 0)goto 10481 778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:816:72:
jerr=7777 778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:817:72:
return 778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:818:72:
10481 continue 779
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:819:72:
call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr) 780
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:820:72:
if(jerr.ne.0) return 781
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:821:72:
if(flmin.ge.1.0) vlam=ulam/ys 782
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:822:72:
call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x 784
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:824:72:
if(jerr.gt.0) return 785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:825:72:
10490 do 10491 k=1,lmu 785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:826:72:
alm(k)=ys*alm(k) 785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:827:72:
nk=nin(k) 786
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:828:72:
10500 do 10501 l=1,nk 786
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:829:72:
ca(l,k)=ys*ca(l,k)/xs(ia(l)) 786
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:830:72:
10501 continue 787
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:831:72:
10502 continue 787
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:832:72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 788
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:833:72:
10491 continue 789
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:834:72:
10492 continue 789
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:835:72:
deallocate(xm,xs,ju,xv,vlam) 790
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:836:72:
return 791
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:837:72:
end 792
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:838:72:
subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr) 793
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:839:72:
real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni) 793
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:840:72:
integer ju(ni) 794
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:842:72:
allocate(v(1:no),stat=jerr) 797
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:843:72:
if(jerr.ne.0) return 798
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:844:72:
w=w/sum(w) 798
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:845:72:
v=sqrt(w) 799
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:846:72:
10510 do 10511 j=1,ni 799
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:847:72:
if(ju(j).eq.0)goto 10511 800
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:848:72:
xm(j)=dot_product(w,x(:,j)) 800
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:849:72:
x(:,j)=v*(x(:,j)-xm(j)) 801
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:850:72:
xv(j)=dot_product(x(:,j),x(:,j)) 801
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:851:72:
if(isd.gt.0) xs(j)=sqrt(xv(j)) 802
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:852:72:
10511 continue 803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:853:72:
10512 continue 803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:854:72:
if(isd .ne. 0)goto 10531 803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:855:72:
xs=1.0 803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:856:72:
goto 10541 804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:857:72:
10531 continue 804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:858:72:
10550 do 10551 j=1,ni 804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:859:72:
if(ju(j).eq.0)goto 10551 804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:860:72:
x(:,j)=x(:,j)/xs(j) 804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:861:72:
10551 continue 805
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:862:72:
10552 continue 805
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:863:72:
xv=1.0 806
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:864:72:
10541 continue 807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:865:72:
10521 continue 807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:866:72:
ym=dot_product(w,y) 807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:867:72:
y=v*(y-ym) 807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:868:72:
ys=sqrt(dot_product(y,y)) 807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:869:72:
y=y/ys 808
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:870:72:
deallocate(v) 809
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:871:72:
return 810
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:872:72:
end 811
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:873:72:
subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m 813
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:875:72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 814
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:877:72:
real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo( 815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:879:72:
integer ju(ni),ia(nx),kin(nlam) 816
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:882:72:
allocate(a(1:ni),stat=jerr) 821
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:883:72:
allocate(mm(1:ni),stat=ierr) 821
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:884:72:
jerr=jerr+ierr 822
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:885:72:
allocate(g(1:ni),stat=ierr) 822
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:886:72:
jerr=jerr+ierr 823
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:887:72:
allocate(ix(1:ni),stat=ierr) 823
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:888:72:
jerr=jerr+ierr 824
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:889:72:
if(jerr.ne.0) return 825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:890:72:
bta=beta 825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:891:72:
omb=1.0-bta 825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:892:72:
ix=0 826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:893:72:
if(flmin .ge. 1.0)goto 10571 826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:894:72:
eqs=max(eps,flmin) 826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:895:72:
alf=eqs**(1.0/(nlam-1)) 826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:896:72:
10571 continue 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:897:72:
rsq=0.0 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:898:72:
a=0.0 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:899:72:
mm=0 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:900:72:
nlp=0 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:901:72:
nin=nlp 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:902:72:
iz=0 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:903:72:
mnl=min(mnlam,nlam) 827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:904:72:
alm=0.0 828
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:905:72:
10580 do 10581 j=1,ni 828
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:906:72:
if(ju(j).eq.0)goto 10581 828
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:907:72:
g(j)=abs(dot_product(y,x(:,j))) 828
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:908:72:
10581 continue 829
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:909:72:
10582 continue 829
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:910:72:
10590 do 10591 m=1,nlam 829
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:911:72:
alm0=alm 830
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:912:72:
if(flmin .lt. 1.0)goto 10611 830
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:913:72:
alm=ulam(m) 830
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:914:72:
goto 10601 831
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:915:72:
10611 if(m .le. 2)goto 10621 831
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:916:72:
alm=alm*alf 831
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:917:72:
goto 10601 832
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:918:72:
10621 if(m .ne. 1)goto 10631 832
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:919:72:
alm=big 832
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:920:72:
goto 10641 833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:921:72:
10631 continue 833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:922:72:
alm0=0.0 834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:923:72:
10650 do 10651 j=1,ni 834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:924:72:
if(ju(j).eq.0)goto 10651 834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:925:72:
if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j)) 834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:926:72:
10651 continue 835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:927:72:
10652 continue 835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:928:72:
alm0=alm0/max(bta,1.0e-3) 835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:929:72:
alm=alf*alm0 836
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:930:72:
10641 continue 837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:931:72:
10601 continue 837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:932:72:
dem=alm*omb 837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:933:72:
ab=alm*bta 837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:934:72:
rsq0=rsq 837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:935:72:
jz=1 838
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:936:72:
tlam=bta*(2.0*alm-alm0) 839
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:937:72:
10660 do 10661 k=1,ni 839
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:938:72:
if(ix(k).eq.1)goto 10661 839
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:939:72:
if(ju(k).eq.0)goto 10661 840
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:940:72:
if(g(k).gt.tlam*vp(k)) ix(k)=1 841
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:941:72:
10661 continue 842
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:942:72:
10662 continue 842
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:943:72:
10670 continue 842
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:944:72:
10671 continue 842
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:945:72:
if(iz*jz.ne.0) go to 10260 843
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:946:72:
10680 continue 843
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:947:72:
nlp=nlp+1 843
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:948:72:
dlx=0.0 844
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:949:72:
10690 do 10691 k=1,ni 844
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:950:72:
if(ix(k).eq.0)goto 10691 844
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:951:72:
gk=dot_product(y,x(:,k)) 845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:952:72:
ak=a(k) 845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:953:72:
u=gk+ak*xv(k) 845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:954:72:
v=abs(u)-vp(k)*ab 845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:955:72:
a(k)=0.0 846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:956:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 847
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:957:72:
if(a(k).eq.ak)goto 10691 848
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:958:72:
if(mm(k) .ne. 0)goto 10711 848
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:959:72:
nin=nin+1 848
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:960:72:
if(nin.gt.nx)goto 10692 849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:961:72:
mm(k)=nin 849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:962:72:
ia(nin)=k 850
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:963:72:
10711 continue 851
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:964:72:
del=a(k)-ak 851
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:965:72:
rsq=rsq+del*(2.0*gk-del*xv(k)) 852
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:966:72:
y=y-del*x(:,k) 852
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:967:72:
dlx=max(xv(k)*del**2,dlx) 853
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:968:72:
10691 continue 854
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:969:72:
10692 continue 854
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:970:72:
if(nin.gt.nx)goto 10672 855
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:971:72:
if(dlx .ge. thr)goto 10731 855
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:972:72:
ixx=0 856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:973:72:
10740 do 10741 k=1,ni 856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:974:72:
if(ix(k).eq.1)goto 10741 856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:975:72:
if(ju(k).eq.0)goto 10741 857
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:976:72:
g(k)=abs(dot_product(y,x(:,k))) 858
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:977:72:
if(g(k) .le. ab*vp(k))goto 10761 858
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:978:72:
ix(k)=1 858
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:979:72:
ixx=1 858
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:980:72:
10761 continue 859
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:981:72:
10741 continue 860
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:982:72:
10742 continue 860
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:983:72:
if(ixx.eq.1) go to 10680 861
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:984:72:
goto 10672 862
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:985:72:
10731 continue 863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:986:72:
if(nlp .le. maxit)goto 10781 863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:987:72:
jerr=-m 863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:988:72:
return 863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:989:72:
10781 continue 864
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:990:72:
10260 continue 864
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:991:72:
iz=1 865
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:992:72:
10790 continue 865
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:993:72:
10791 continue 865
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:994:72:
nlp=nlp+1 865
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:995:72:
dlx=0.0 866
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:996:72:
10800 do 10801 l=1,nin 866
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:997:72:
k=ia(l) 866
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:998:72:
gk=dot_product(y,x(:,k)) 867
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:999:72:
ak=a(k) 867
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1000:72:
u=gk+ak*xv(k) 867
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1001:72:
v=abs(u)-vp(k)*ab 867
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1002:72:
a(k)=0.0 868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1003:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 869
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1004:72:
if(a(k).eq.ak)goto 10801 870
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1005:72:
del=a(k)-ak 870
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1006:72:
rsq=rsq+del*(2.0*gk-del*xv(k)) 871
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1007:72:
y=y-del*x(:,k) 871
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1008:72:
dlx=max(xv(k)*del**2,dlx) 872
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1009:72:
10801 continue 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1010:72:
10802 continue 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1011:72:
if(dlx.lt.thr)goto 10792 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1012:72:
if(nlp .le. maxit)goto 10821 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1013:72:
jerr=-m 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1014:72:
return 873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1015:72:
10821 continue 874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1016:72:
goto 10791 875
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1017:72:
10792 continue 875
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1018:72:
jz=0 876
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1019:72:
goto 10671 877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1020:72:
10672 continue 877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1021:72:
if(nin .le. nx)goto 10841 877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1022:72:
jerr=-10000-m 877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1023:72:
goto 10592 877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1024:72:
10841 continue 878
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1025:72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 878
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1026:72:
kin(m)=nin 879
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1027:72:
rsqo(m)=rsq 879
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1028:72:
almo(m)=alm 879
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1029:72:
lmu=m 880
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1030:72:
if(m.lt.mnl)goto 10591 880
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1031:72:
if(flmin.ge.1.0)goto 10591 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1032:72:
me=0 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1033:72:
10850 do 10851 j=1,nin 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1034:72:
if(ao(j,m).ne.0.0) me=me+1 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1035:72:
10851 continue 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1036:72:
10852 continue 881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1037:72:
if(me.gt.ne)goto 10592 882
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1038:72:
if(rsq-rsq0.lt.sml*rsq)goto 10592 882
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1039:72:
if(rsq.gt.rsqmax)goto 10592 883
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1040:72:
10591 continue 884
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1041:72:
10592 continue 884
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1042:72:
deallocate(a,mm,g,ix) 885
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1043:72:
return 886
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1044:72:
end 887
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1045:72:
subroutine chkvars(no,ni,x,ju) 888
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1046:72:
real x(no,ni) 888
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1047:72:
integer ju(ni) 889
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1048:72:
10860 do 10861 j=1,ni 889
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1049:72:
ju(j)=0 889
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1050:72:
t=x(1,j) 890
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1051:72:
10870 do 10871 i=2,no 890
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1052:72:
if(x(i,j).eq.t)goto 10871 890
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1053:72:
ju(j)=1 890
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1054:72:
goto 10872 890
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1055:72:
10871 continue 891
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1056:72:
10872 continue 891
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1057:72:
10861 continue 892
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1058:72:
10862 continue 892
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1059:72:
return 893
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1060:72:
end 894
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1061:72:
subroutine uncomp(ni,ca,ia,nin,a) 895
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1062:72:
real ca(*),a(ni) 895
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1063:72:
integer ia(*) 896
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1064:72:
a=0.0 896
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1065:72:
if(nin.gt.0) a(ia(1:nin))=ca(1:nin) 897
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1066:72:
return 898
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1067:72:
end 899
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1068:72:
subroutine modval(a0,ca,ia,nin,n,x,f) 900
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1069:72:
real ca(nin),x(n,*),f(n) 900
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1070:72:
integer ia(nin) 901
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1071:72:
f=a0 901
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1072:72:
if(nin.le.0) return 902
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1073:72:
10880 do 10881 i=1,n 902
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1074:72:
f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin))) 902
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1075:72:
10881 continue 903
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1076:72:
10882 continue 903
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1077:72:
return 904
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1078:72:
end 905
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1079:72:
subroutine spelnet (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl 908
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1081:72:
real x(*),y(no),w(no),vp(ni),ulam(nlam) 909
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1082:72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 910
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1083:72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 911
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1085:72:
if(maxval(vp) .gt. 0.0)goto 10901 914
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1086:72:
jerr=10000 914
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1087:72:
return 914
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1088:72:
10901 continue 915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1089:72:
allocate(vq(1:ni),stat=jerr) 915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1090:72:
if(jerr.ne.0) return 916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1091:72:
vq=max(0.0,vp) 916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1092:72:
vq=vq*ni/sum(vq) 917
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1093:72:
if(ka .ne. 1)goto 10921 918
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1094:72:
call spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam 921
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1096:72:
goto 10931 922
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1097:72:
10921 continue 923
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1098:72:
call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam, 926
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1100:72:
10931 continue 927
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1101:72:
10911 continue 927
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1102:72:
deallocate(vq) 928
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1103:72:
return 929
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1104:72:
end 930
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1105:72:
subroutine spelnetu (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi 933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1107:72:
real x(*),y(no),w(no),vp(ni),ulam(nlam) 934
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1108:72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 935
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1109:72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 936
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1112:72:
allocate(g(1:ni),stat=jerr) 941
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1113:72:
allocate(xm(1:ni),stat=ierr) 941
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1114:72:
jerr=jerr+ierr 942
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1115:72:
allocate(xs(1:ni),stat=ierr) 942
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1116:72:
jerr=jerr+ierr 943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1117:72:
allocate(ju(1:ni),stat=ierr) 943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1118:72:
jerr=jerr+ierr 944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1119:72:
allocate(xv(1:ni),stat=ierr) 944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1120:72:
jerr=jerr+ierr 945
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1121:72:
allocate(vlam(1:nlam),stat=ierr) 945
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1122:72:
jerr=jerr+ierr 946
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1123:72:
if(jerr.ne.0) return 947
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1124:72:
call spchkvars(no,ni,x,ix,ju) 948
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1125:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 949
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1126:72:
if(maxval(ju) .gt. 0)goto 10951 949
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1127:72:
jerr=7777 949
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1128:72:
return 949
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1129:72:
10951 continue 950
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1130:72:
call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr) 951
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1131:72:
if(jerr.ne.0) return 952
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1132:72:
if(flmin.ge.1.0) vlam=ulam/ys 953
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1133:72:
call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t 955
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1135:72:
if(jerr.gt.0) return 956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1136:72:
10960 do 10961 k=1,lmu 956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1137:72:
alm(k)=ys*alm(k) 956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1138:72:
nk=nin(k) 957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1139:72:
10970 do 10971 l=1,nk 957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1140:72:
ca(l,k)=ys*ca(l,k)/xs(ia(l)) 957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1141:72:
10971 continue 958
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1142:72:
10972 continue 958
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1143:72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 959
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1144:72:
10961 continue 960
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1145:72:
10962 continue 960
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1146:72:
deallocate(xm,xs,g,ju,xv,vlam) 961
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1147:72:
return 962
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1148:72:
end 963
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1149:72:
subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j 964
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1151:72:
real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni) 964
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1152:72:
integer ix(*),jx(*),ju(ni) 965
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1153:72:
w=w/sum(w) 966
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1154:72:
10980 do 10981 j=1,ni 966
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1155:72:
if(ju(j).eq.0)goto 10981 967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1156:72:
jb=ix(j) 967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1157:72:
je=ix(j+1)-1 967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1158:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 968
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1159:72:
xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2 969
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1160:72:
if(isd.gt.0) xs(j)=sqrt(xv(j)) 970
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1161:72:
10981 continue 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1162:72:
10982 continue 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1163:72:
if(isd .ne. 0)goto 11001 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1164:72:
xs=1.0 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1165:72:
goto 11011 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1166:72:
11001 continue 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1167:72:
xv=1.0 971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1168:72:
11011 continue 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1169:72:
10991 continue 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1170:72:
ym=dot_product(w,y) 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1171:72:
y=y-ym 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1172:72:
ys=sqrt(dot_product(w,y**2)) 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1173:72:
y=y/ys 972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1174:72:
g=0.0 973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1175:72:
11020 do 11021 j=1,ni 973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1176:72:
if(ju(j).eq.0)goto 11021 973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1177:72:
jb=ix(j) 973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1178:72:
je=ix(j+1)-1 974
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1179:72:
g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j) 975
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1180:72:
11021 continue 976
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1181:72:
11022 continue 976
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1182:72:
return 977
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1183:72:
end 978
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1184:72:
subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin, 980
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1186:72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 981
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1188:72:
real g(ni),vp(ni),x(*),ulam(nlam),w(no) 982
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1189:72:
real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni) 983
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1190:72:
integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 984
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1195:72:
allocate(a(1:ni),stat=ierr) 990
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1196:72:
jerr=jerr+ierr 991
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1197:72:
allocate(mm(1:ni),stat=ierr) 991
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1198:72:
jerr=jerr+ierr 992
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1199:72:
allocate(da(1:ni),stat=ierr) 992
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1200:72:
jerr=jerr+ierr 993
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1201:72:
if(jerr.ne.0) return 994
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1202:72:
bta=beta 994
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1203:72:
omb=1.0-bta 995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1204:72:
if(flmin .ge. 1.0)goto 11041 995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1205:72:
eqs=max(eps,flmin) 995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1206:72:
alf=eqs**(1.0/(nlam-1)) 995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1207:72:
11041 continue 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1208:72:
rsq=0.0 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1209:72:
a=0.0 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1210:72:
mm=0 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1211:72:
nlp=0 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1212:72:
nin=nlp 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1213:72:
iz=0 996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1214:72:
mnl=min(mnlam,nlam) 997
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1215:72:
11050 do 11051 m=1,nlam 998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1216:72:
if(flmin .lt. 1.0)goto 11071 998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1217:72:
alm=ulam(m) 998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1218:72:
goto 11061 999
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1219:72:
11071 if(m .le. 2)goto 11081 999
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1220:72:
alm=alm*alf 999
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1221:72:
goto 11061 1000
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1222:72:
11081 if(m .ne. 1)goto 11091 1000
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1223:72:
alm=big 1000
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1224:72:
goto 11101 1001
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1225:72:
11091 continue 1001
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1226:72:
alm=0.0 1002
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1227:72:
11110 do 11111 j=1,ni 1002
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1228:72:
if(ju(j).eq.0)goto 11111 1002
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1229:72:
if(vp(j).le.0.0)goto 11111 1003
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1230:72:
alm=max(alm,abs(g(j))/vp(j)) 1004
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1231:72:
11111 continue 1005
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1232:72:
11112 continue 1005
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1233:72:
alm=alf*alm/max(bta,1.0e-3) 1006
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1234:72:
11101 continue 1007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1235:72:
11061 continue 1007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1236:72:
dem=alm*omb 1007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1237:72:
ab=alm*bta 1007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1238:72:
rsq0=rsq 1007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1239:72:
jz=1 1008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1240:72:
11120 continue 1008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1241:72:
11121 continue 1008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1242:72:
if(iz*jz.ne.0) go to 10260 1008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1243:72:
nlp=nlp+1 1008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1244:72:
dlx=0.0 1009
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1245:72:
11130 do 11131 k=1,ni 1009
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1246:72:
if(ju(k).eq.0)goto 11131 1010
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1247:72:
ak=a(k) 1010
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1248:72:
u=g(k)+ak*xv(k) 1010
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1249:72:
v=abs(u)-vp(k)*ab 1010
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1250:72:
a(k)=0.0 1011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1251:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1012
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1252:72:
if(a(k).eq.ak)goto 11131 1013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1253:72:
if(mm(k) .ne. 0)goto 11151 1013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1254:72:
nin=nin+1 1013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1255:72:
if(nin.gt.nx)goto 11132 1014
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1256:72:
11160 do 11161 j=1,ni 1014
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1257:72:
if(ju(j).eq.0)goto 11161 1015
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1258:72:
if(mm(j) .eq. 0)goto 11181 1015
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1259:72:
c(j,nin)=c(k,mm(j)) 1015
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1260:72:
goto 11161 1015
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1261:72:
11181 continue 1016
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1262:72:
if(j .ne. k)goto 11201 1016
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1263:72:
c(j,nin)=xv(j) 1016
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1264:72:
goto 11161 1016
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1265:72:
11201 continue 1017
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1266:72:
c(j,nin)= (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k)) 1019
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1267:72:
11161 continue 1020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1268:72:
11162 continue 1020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1269:72:
mm(k)=nin 1020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1270:72:
ia(nin)=k 1021
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1271:72:
11151 continue 1022
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1272:72:
del=a(k)-ak 1022
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1273:72:
rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1023
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1274:72:
dlx=max(xv(k)*del**2,dlx) 1024
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1275:72:
11210 do 11211 j=1,ni 1024
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1276:72:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 1024
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1277:72:
11211 continue 1025
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1278:72:
11212 continue 1025
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1279:72:
11131 continue 1026
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1280:72:
11132 continue 1026
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1281:72:
if(dlx.lt.thr)goto 11122 1026
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1282:72:
if(nin.gt.nx)goto 11122 1027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1283:72:
if(nlp .le. maxit)goto 11231 1027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1284:72:
jerr=-m 1027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1285:72:
return 1027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1286:72:
11231 continue 1028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1287:72:
10260 continue 1028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1288:72:
iz=1 1028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1289:72:
da(1:nin)=a(ia(1:nin)) 1029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1290:72:
11240 continue 1029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1291:72:
11241 continue 1029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1292:72:
nlp=nlp+1 1029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1293:72:
dlx=0.0 1030
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1294:72:
11250 do 11251 l=1,nin 1030
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1295:72:
k=ia(l) 1031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1296:72:
ak=a(k) 1031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1297:72:
u=g(k)+ak*xv(k) 1031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1298:72:
v=abs(u)-vp(k)*ab 1031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1299:72:
a(k)=0.0 1032
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1300:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1033
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1301:72:
if(a(k).eq.ak)goto 11251 1034
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1302:72:
del=a(k)-ak 1034
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1303:72:
rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1035
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1304:72:
dlx=max(xv(k)*del**2,dlx) 1036
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1305:72:
11260 do 11261 j=1,nin 1036
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1306:72:
g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del 1036
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1307:72:
11261 continue 1037
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1308:72:
11262 continue 1037
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1309:72:
11251 continue 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1310:72:
11252 continue 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1311:72:
if(dlx.lt.thr)goto 11242 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1312:72:
if(nlp .le. maxit)goto 11281 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1313:72:
jerr=-m 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1314:72:
return 1038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1315:72:
11281 continue 1039
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1316:72:
goto 11241 1040
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1317:72:
11242 continue 1040
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1318:72:
da(1:nin)=a(ia(1:nin))-da(1:nin) 1041
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1319:72:
11290 do 11291 j=1,ni 1041
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1320:72:
if(mm(j).ne.0)goto 11291 1042
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1321:72:
if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin)) 1043
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1322:72:
11291 continue 1044
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1323:72:
11292 continue 1044
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1324:72:
jz=0 1045
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1325:72:
goto 11121 1046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1326:72:
11122 continue 1046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1327:72:
if(nin .le. nx)goto 11311 1046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1328:72:
jerr=-10000-m 1046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1329:72:
goto 11052 1046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1330:72:
11311 continue 1047
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1331:72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 1047
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1332:72:
kin(m)=nin 1048
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1333:72:
rsqo(m)=rsq 1048
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1334:72:
almo(m)=alm 1048
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1335:72:
lmu=m 1049
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1336:72:
if(m.lt.mnl)goto 11051 1049
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1337:72:
if(flmin.ge.1.0)goto 11051 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1338:72:
me=0 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1339:72:
11320 do 11321 j=1,nin 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1340:72:
if(ao(j,m).ne.0.0) me=me+1 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1341:72:
11321 continue 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1342:72:
11322 continue 1050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1343:72:
if(me.gt.ne)goto 11052 1051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1344:72:
if(rsq-rsq0.lt.sml*rsq)goto 11052 1051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1345:72:
if(rsq.gt.rsqmax)goto 11052 1052
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1346:72:
11051 continue 1053
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1347:72:
11052 continue 1053
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1348:72:
deallocate(a,mm,c,da) 1054
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1349:72:
return 1055
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1350:72:
end 1056
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1351:72:
subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin, 1058
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1353:72:
real x(*),vp(ni),y(no),w(no),ulam(nlam) 1059
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1354:72:
real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 1060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1355:72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1061
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1358:72:
allocate(xm(1:ni),stat=jerr) 1066
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1359:72:
allocate(xs(1:ni),stat=ierr) 1066
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1360:72:
jerr=jerr+ierr 1067
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1361:72:
allocate(ju(1:ni),stat=ierr) 1067
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1362:72:
jerr=jerr+ierr 1068
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1363:72:
allocate(xv(1:ni),stat=ierr) 1068
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1364:72:
jerr=jerr+ierr 1069
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1365:72:
allocate(vlam(1:nlam),stat=ierr) 1069
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1366:72:
jerr=jerr+ierr 1070
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1367:72:
if(jerr.ne.0) return 1071
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1368:72:
call spchkvars(no,ni,x,ix,ju) 1072
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1369:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1370:72:
if(maxval(ju) .gt. 0)goto 11341 1073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1371:72:
jerr=7777 1073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1372:72:
return 1073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1373:72:
11341 continue 1074
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1374:72:
call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr) 1075
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1375:72:
if(jerr.ne.0) return 1076
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1376:72:
if(flmin.ge.1.0) vlam=ulam/ys 1077
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1377:72:
call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t 1079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1379:72:
if(jerr.gt.0) return 1080
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1380:72:
11350 do 11351 k=1,lmu 1080
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1381:72:
alm(k)=ys*alm(k) 1080
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1382:72:
nk=nin(k) 1081
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1383:72:
11360 do 11361 l=1,nk 1081
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1384:72:
ca(l,k)=ys*ca(l,k)/xs(ia(l)) 1081
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1385:72:
11361 continue 1082
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1386:72:
11362 continue 1082
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1387:72:
a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk))) 1083
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1388:72:
11351 continue 1084
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1389:72:
11352 continue 1084
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1390:72:
deallocate(xm,xs,ju,xv,vlam) 1085
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1391:72:
return 1086
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1392:72:
end 1087
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1393:72:
subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je 1088
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1395:72:
real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni) 1088
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1396:72:
integer ix(*),jx(*),ju(ni) 1089
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1397:72:
w=w/sum(w) 1090
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1398:72:
11370 do 11371 j=1,ni 1090
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1399:72:
if(ju(j).eq.0)goto 11371 1091
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1400:72:
jb=ix(j) 1091
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1401:72:
je=ix(j+1)-1 1091
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1402:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1403:72:
xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2 1093
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1404:72:
if(isd.gt.0) xs(j)=sqrt(xv(j)) 1094
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1405:72:
11371 continue 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1406:72:
11372 continue 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1407:72:
if(isd .ne. 0)goto 11391 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1408:72:
xs=1.0 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1409:72:
goto 11401 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1410:72:
11391 continue 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1411:72:
xv=1.0 1095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1412:72:
11401 continue 1096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1413:72:
11381 continue 1096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1414:72:
ym=dot_product(w,y) 1096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1415:72:
y=y-ym 1096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1416:72:
ys=sqrt(dot_product(w,y**2)) 1096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1417:72:
y=y/ys 1097
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1418:72:
return 1098
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1419:72:
end 1099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1420:72:
subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin, 1101
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1422:72:
parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99 1102
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1424:72:
real y(no),w(no),x(*),vp(ni),ulam(nlam) 1103
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1425:72:
real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni) 1104
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1426:72:
integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 1105
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1429:72:
allocate(a(1:ni),stat=jerr) 1110
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1430:72:
allocate(mm(1:ni),stat=ierr) 1110
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1431:72:
jerr=jerr+ierr 1111
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1432:72:
allocate(g(1:ni),stat=ierr) 1111
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1433:72:
jerr=jerr+ierr 1112
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1434:72:
allocate(iy(1:ni),stat=ierr) 1112
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1435:72:
jerr=jerr+ierr 1113
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1436:72:
if(jerr.ne.0) return 1114
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1437:72:
bta=beta 1114
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1438:72:
omb=1.0-bta 1114
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1439:72:
alm=0.0 1114
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1440:72:
iy=0 1115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1441:72:
if(flmin .ge. 1.0)goto 11421 1115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1442:72:
eqs=max(eps,flmin) 1115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1443:72:
alf=eqs**(1.0/(nlam-1)) 1115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1444:72:
11421 continue 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1445:72:
rsq=0.0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1446:72:
a=0.0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1447:72:
mm=0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1448:72:
o=0.0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1449:72:
nlp=0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1450:72:
nin=nlp 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1451:72:
iz=0 1116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1452:72:
mnl=min(mnlam,nlam) 1117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1453:72:
11430 do 11431 j=1,ni 1117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1454:72:
if(ju(j).eq.0)goto 11431 1118
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1455:72:
jb=ix(j) 1118
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1456:72:
je=ix(j+1)-1 1119
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1457:72:
g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 1120
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1458:72:
11431 continue 1121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1459:72:
11432 continue 1121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1460:72:
11440 do 11441 m=1,nlam 1121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1461:72:
alm0=alm 1122
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1462:72:
if(flmin .lt. 1.0)goto 11461 1122
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1463:72:
alm=ulam(m) 1122
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1464:72:
goto 11451 1123
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1465:72:
11461 if(m .le. 2)goto 11471 1123
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1466:72:
alm=alm*alf 1123
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1467:72:
goto 11451 1124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1468:72:
11471 if(m .ne. 1)goto 11481 1124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1469:72:
alm=big 1124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1470:72:
goto 11491 1125
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1471:72:
11481 continue 1125
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1472:72:
alm0=0.0 1126
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1473:72:
11500 do 11501 j=1,ni 1126
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1474:72:
if(ju(j).eq.0)goto 11501 1126
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1475:72:
if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j)) 1126
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1476:72:
11501 continue 1127
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1477:72:
11502 continue 1127
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1478:72:
alm0=alm0/max(bta,1.0e-3) 1127
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1479:72:
alm=alf*alm0 1128
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1480:72:
11491 continue 1129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1481:72:
11451 continue 1129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1482:72:
dem=alm*omb 1129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1483:72:
ab=alm*bta 1129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1484:72:
rsq0=rsq 1129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1485:72:
jz=1 1130
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1486:72:
tlam=bta*(2.0*alm-alm0) 1131
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1487:72:
11510 do 11511 k=1,ni 1131
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1488:72:
if(iy(k).eq.1)goto 11511 1131
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1489:72:
if(ju(k).eq.0)goto 11511 1132
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1490:72:
if(g(k).gt.tlam*vp(k)) iy(k)=1 1133
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1491:72:
11511 continue 1134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1492:72:
11512 continue 1134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1493:72:
11520 continue 1134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1494:72:
11521 continue 1134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1495:72:
if(iz*jz.ne.0) go to 10260 1135
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1496:72:
10680 continue 1135
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1497:72:
nlp=nlp+1 1135
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1498:72:
dlx=0.0 1136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1499:72:
11530 do 11531 k=1,ni 1136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1500:72:
if(iy(k).eq.0)goto 11531 1136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1501:72:
jb=ix(k) 1136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1502:72:
je=ix(k+1)-1 1137
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1503:72:
gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k) 1138
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1504:72:
ak=a(k) 1138
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1505:72:
u=gk+ak*xv(k) 1138
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1506:72:
v=abs(u)-vp(k)*ab 1138
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1507:72:
a(k)=0.0 1139
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1508:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1140
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1509:72:
if(a(k).eq.ak)goto 11531 1141
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1510:72:
if(mm(k) .ne. 0)goto 11551 1141
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1511:72:
nin=nin+1 1141
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1512:72:
if(nin.gt.nx)goto 11532 1142
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1513:72:
mm(k)=nin 1142
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1514:72:
ia(nin)=k 1143
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1515:72:
11551 continue 1144
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1516:72:
del=a(k)-ak 1144
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1517:72:
rsq=rsq+del*(2.0*gk-del*xv(k)) 1145
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1518:72:
y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k) 1146
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1519:72:
o=o+del*xm(k)/xs(k) 1146
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1520:72:
dlx=max(xv(k)*del**2,dlx) 1147
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1521:72:
11531 continue 1148
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1522:72:
11532 continue 1148
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1523:72:
if(nin.gt.nx)goto 11522 1149
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1524:72:
if(dlx .ge. thr)goto 11571 1149
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1525:72:
ixx=0 1150
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1526:72:
11580 do 11581 j=1,ni 1150
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1527:72:
if(iy(j).eq.1)goto 11581 1150
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1528:72:
if(ju(j).eq.0)goto 11581 1151
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1529:72:
jb=ix(j) 1151
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1530:72:
je=ix(j+1)-1 1152
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1531:72:
g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 1153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1532:72:
if(g(j) .le. ab*vp(j))goto 11601 1153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1533:72:
iy(j)=1 1153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1534:72:
ixx=1 1153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1535:72:
11601 continue 1154
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1536:72:
11581 continue 1155
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1537:72:
11582 continue 1155
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1538:72:
if(ixx.eq.1) go to 10680 1156
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1539:72:
goto 11522 1157
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1540:72:
11571 continue 1158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1541:72:
if(nlp .le. maxit)goto 11621 1158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1542:72:
jerr=-m 1158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1543:72:
return 1158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1544:72:
11621 continue 1159
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1545:72:
10260 continue 1159
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1546:72:
iz=1 1160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1547:72:
11630 continue 1160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1548:72:
11631 continue 1160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1549:72:
nlp=nlp+1 1160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1550:72:
dlx=0.0 1161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1551:72:
11640 do 11641 l=1,nin 1161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1552:72:
k=ia(l) 1161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1553:72:
jb=ix(k) 1161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1554:72:
je=ix(k+1)-1 1162
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1555:72:
gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k) 1163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1556:72:
ak=a(k) 1163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1557:72:
u=gk+ak*xv(k) 1163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1558:72:
v=abs(u)-vp(k)*ab 1163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1559:72:
a(k)=0.0 1164
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1560:72:
if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem) 1165
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1561:72:
if(a(k).eq.ak)goto 11641 1166
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1562:72:
del=a(k)-ak 1166
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1563:72:
rsq=rsq+del*(2.0*gk-del*xv(k)) 1167
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1564:72:
y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k) 1168
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1565:72:
o=o+del*xm(k)/xs(k) 1168
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1566:72:
dlx=max(xv(k)*del**2,dlx) 1169
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1567:72:
11641 continue 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1568:72:
11642 continue 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1569:72:
if(dlx.lt.thr)goto 11632 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1570:72:
if(nlp .le. maxit)goto 11661 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1571:72:
jerr=-m 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1572:72:
return 1170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1573:72:
11661 continue 1171
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1574:72:
goto 11631 1172
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1575:72:
11632 continue 1172
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1576:72:
jz=0 1173
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1577:72:
goto 11521 1174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1578:72:
11522 continue 1174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1579:72:
if(nin .le. nx)goto 11681 1174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1580:72:
jerr=-10000-m 1174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1581:72:
goto 11442 1174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1582:72:
11681 continue 1175
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1583:72:
if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin)) 1175
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1584:72:
kin(m)=nin 1176
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1585:72:
rsqo(m)=rsq 1176
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1586:72:
almo(m)=alm 1176
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1587:72:
lmu=m 1177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1588:72:
if(m.lt.mnl)goto 11441 1177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1589:72:
if(flmin.ge.1.0)goto 11441 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1590:72:
me=0 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1591:72:
11690 do 11691 j=1,nin 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1592:72:
if(ao(j,m).ne.0.0) me=me+1 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1593:72:
11691 continue 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1594:72:
11692 continue 1178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1595:72:
if(me.gt.ne)goto 11442 1179
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1596:72:
if(rsq-rsq0.lt.sml*rsq)goto 11442 1179
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1597:72:
if(rsq.gt.rsqmax)goto 11442 1180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1598:72:
11441 continue 1181
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1599:72:
11442 continue 1181
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1600:72:
deallocate(a,mm,g,iy) 1182
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1601:72:
return 1183
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1602:72:
end 1184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1603:72:
subroutine spchkvars(no,ni,x,ix,ju) 1185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1604:72:
real x(*) 1185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1605:72:
integer ix(*),ju(ni) 1186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1606:72:
11700 do 11701 j=1,ni 1186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1607:72:
ju(j)=0 1186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1608:72:
jb=ix(j) 1186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1609:72:
nj=ix(j+1)-jb 1186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1610:72:
if(nj.eq.0)goto 11701 1187
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1611:72:
je=ix(j+1)-1 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1612:72:
if(nj .ge. no)goto 11721 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1613:72:
11730 do 11731 i=jb,je 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1614:72:
if(x(i).eq.0.0)goto 11731 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1615:72:
ju(j)=1 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1616:72:
goto 11732 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1617:72:
11731 continue 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1618:72:
11732 continue 1188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1619:72:
goto 11741 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1620:72:
11721 continue 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1621:72:
t=x(jb) 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1622:72:
11750 do 11751 i=jb+1,je 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1623:72:
if(x(i).eq.t)goto 11751 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1624:72:
ju(j)=1 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1625:72:
goto 11752 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1626:72:
11751 continue 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1627:72:
11752 continue 1189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1628:72:
11741 continue 1190
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1629:72:
11711 continue 1190
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1630:72:
11701 continue 1191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1631:72:
11702 continue 1191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1632:72:
return 1192
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1633:72:
end 1193
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1634:72:
subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f) 1194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1635:72:
real ca(*),x(*),f(n) 1194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1636:72:
integer ia(*),ix(*),jx(*) 1195
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1637:72:
f=a0 1196
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1638:72:
11760 do 11761 j=1,nin 1196
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1639:72:
k=ia(j) 1196
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1640:72:
kb=ix(k) 1196
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1641:72:
ke=ix(k+1)-1 1197
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1642:72:
f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke) 1198
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1643:72:
11761 continue 1199
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1644:72:
11762 continue 1199
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1645:72:
return 1200
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1646:72:
end 1201
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1647:72:
function row_prod(i,j,ia,ja,ra,w) 1202
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1648:72:
integer ia(*),ja(*) 1202
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1649:72:
real ra(*),w(*) 1203
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1650:72:
row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)), ia(i+1)-ia( 1205
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1652:72:
return 1206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1653:72:
end 1207
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1654:72:
function dot(x,y,mx,my,nx,ny,w) 1208
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1655:72:
real x(*),y(*),w(*) 1208
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1656:72:
integer mx(*),my(*) 1209
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1657:72:
i=1 1209
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1658:72:
j=i 1209
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1659:72:
s=0.0 1210
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1660:72:
11770 continue 1210
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1661:72:
11771 continue 1210
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1662:72:
11780 continue 1211
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1663:72:
11781 if(mx(i).ge.my(j))goto 11782 1211
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1664:72:
i=i+1 1211
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1665:72:
if(i.gt.nx) go to 11790 1211
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1666:72:
goto 11781 1212
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1667:72:
11782 continue 1212
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1668:72:
if(mx(i).eq.my(j)) go to 11800 1213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1669:72:
11810 continue 1213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1670:72:
11811 if(my(j).ge.mx(i))goto 11812 1213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1671:72:
j=j+1 1213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1672:72:
if(j.gt.ny) go to 11790 1213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1673:72:
goto 11811 1214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1674:72:
11812 continue 1214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1675:72:
if(mx(i).eq.my(j)) go to 11800 1214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1676:72:
goto 11771 1215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1677:72:
11800 continue 1215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1678:72:
s=s+w(mx(i))*x(i)*y(j) 1216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1679:72:
i=i+1 1216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1680:72:
if(i.gt.nx)goto 11772 1216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1681:72:
j=j+1 1216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1682:72:
if(j.gt.ny)goto 11772 1217
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1683:72:
goto 11771 1218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1684:72:
11772 continue 1218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1685:72:
11790 continue 1218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1686:72:
dot=s 1219
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1687:72:
return 1220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1688:72:
end 1221
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1689:72:
subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam 1223
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1691:72:
real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam) 1224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1692:72:
real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1225
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1693:72:
integer jd(*),ia(nx),nin(nlam) 1226
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1696:72:
if(maxval(vp) .gt. 0.0)goto 11831 1230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1697:72:
jerr=10000 1230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1698:72:
return 1230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1699:72:
11831 continue 1231
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1700:72:
allocate(ww(1:no),stat=jerr) 1232
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1701:72:
allocate(ju(1:ni),stat=ierr) 1232
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1702:72:
jerr=jerr+ierr 1233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1703:72:
allocate(vq(1:ni),stat=ierr) 1233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1704:72:
jerr=jerr+ierr 1234
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1705:72:
allocate(xm(1:ni),stat=ierr) 1234
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1706:72:
jerr=jerr+ierr 1235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1707:72:
if(isd .le. 0)goto 11851 1235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1708:72:
allocate(xs(1:ni),stat=ierr) 1235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1709:72:
jerr=jerr+ierr 1235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1710:72:
11851 continue 1236
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1711:72:
if(jerr.ne.0) return 1237
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1712:72:
call chkvars(no,ni,x,ju) 1238
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1713:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1714:72:
if(maxval(ju) .gt. 0)goto 11871 1239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1715:72:
jerr=7777 1239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1716:72:
return 1239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1717:72:
11871 continue 1240
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1718:72:
vq=max(0.0,vp) 1240
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1719:72:
vq=vq*ni/sum(vq) 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1720:72:
11880 do 11881 i=1,no 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1721:72:
ww(i)=sum(y(i,:)) 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1722:72:
y(i,:)=y(i,:)/ww(i) 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1723:72:
11881 continue 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1724:72:
11882 continue 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1725:72:
sw=sum(ww) 1241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1726:72:
ww=ww/sw 1242
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1727:72:
call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 1243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1728:72:
if(nc .ne. 1)goto 11901 1244
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1729:72:
call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin 1246
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1731:72:
goto 11911 1247
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1732:72:
11901 continue 1248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1733:72:
call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th 1250
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1735:72:
11911 continue 1251
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1736:72:
11891 continue 1251
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1737:72:
if(jerr.gt.0) return 1251
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1738:72:
dev0=2.0*sw*dev0 1252
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1739:72:
11920 do 11921 k=1,lmu 1252
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1740:72:
nk=nin(k) 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1741:72:
11930 do 11931 ic=1,nc 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1742:72:
if(isd .le. 0)goto 11951 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1743:72:
11960 do 11961 l=1,nk 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1744:72:
ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1745:72:
11961 continue 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1746:72:
11962 continue 1253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1747:72:
11951 continue 1254
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1748:72:
a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk))) 1255
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1749:72:
11931 continue 1256
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1750:72:
11932 continue 1256
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1751:72:
11921 continue 1257
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1752:72:
11922 continue 1257
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1753:72:
deallocate(ww,ju,vq,xm) 1257
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1754:72:
if(isd.gt.0) deallocate(xs) 1258
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1755:72:
return 1259
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1756:72:
end 1260
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1757:72:
subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs) 1261
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1758:72:
real x(no,ni),w(no),xm(ni),xs(ni) 1261
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1759:72:
integer ju(ni) 1262
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1760:72:
11970 do 11971 j=1,ni 1262
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1761:72:
if(ju(j).eq.0)goto 11971 1263
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1762:72:
xm(j)=dot_product(w,x(:,j)) 1263
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1763:72:
x(:,j)=x(:,j)-xm(j) 1264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1764:72:
if(isd .le. 0)goto 11991 1264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1765:72:
xs(j)=sqrt(dot_product(w,x(:,j)**2)) 1264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1766:72:
x(:,j)=x(:,j)/xs(j) 1264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1767:72:
11991 continue 1265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1768:72:
11971 continue 1266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1769:72:
11972 continue 1266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1770:72:
return 1267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1771:72:
end 1268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1772:72:
subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam 1270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1774:72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1272
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1776:72:
real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam) 1273
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1777:72:
real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1778:72:
integer ju(ni),m(nx),kin(nlam) 1275
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1781:72:
allocate(b(0:ni),stat=jerr) 1280
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1782:72:
allocate(xv(1:ni),stat=ierr) 1280
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1783:72:
jerr=jerr+ierr 1281
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1784:72:
allocate(ga(1:ni),stat=ierr) 1281
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1785:72:
jerr=jerr+ierr 1282
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1786:72:
allocate(bs(0:ni),stat=ierr) 1282
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1787:72:
jerr=jerr+ierr 1283
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1788:72:
allocate(mm(1:ni),stat=ierr) 1283
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1789:72:
jerr=jerr+ierr 1284
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1790:72:
allocate(ixx(1:ni),stat=ierr) 1284
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1791:72:
jerr=jerr+ierr 1285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1792:72:
allocate(r(1:no),stat=ierr) 1285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1793:72:
jerr=jerr+ierr 1286
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1794:72:
allocate(v(1:no),stat=ierr) 1286
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1795:72:
jerr=jerr+ierr 1287
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1796:72:
allocate(q(1:no),stat=ierr) 1287
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1797:72:
jerr=jerr+ierr 1288
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1798:72:
if(jerr.ne.0) return 1289
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1799:72:
fmax=log(1.0/pmin-1.0) 1289
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1800:72:
fmin=-fmax 1289
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1801:72:
vmin=(1.0+pmin)*pmin*(1.0-pmin) 1290
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1802:72:
bta=parm 1290
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1803:72:
omb=1.0-bta 1291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1804:72:
q0=dot_product(w,y) 1291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1805:72:
if(q0 .gt. pmin)goto 12011 1291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1806:72:
jerr=8001 1291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1807:72:
return 1291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1808:72:
12011 continue 1292
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1809:72:
if(q0 .lt. 1.0-pmin)goto 12031 1292
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1810:72:
jerr=9001 1292
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1811:72:
return 1292
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1812:72:
12031 continue 1293
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1813:72:
ixx=0 1293
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1814:72:
al=0.0 1293
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1815:72:
bz=log(q0/(1.0-q0)) 1294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1816:72:
if(nonzero(no,g) .ne. 0)goto 12051 1294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1817:72:
vi=q0*(1.0-q0) 1294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1818:72:
b(0)=bz 1294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1819:72:
v=vi*w 1295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1820:72:
r=w*(y-q0) 1295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1821:72:
q=q0 1295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1822:72:
xmz=vi 1295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1823:72:
dev1=-(bz*q0+log(1.0-q0)) 1296
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1824:72:
goto 12061 1297
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1825:72:
12051 continue 1297
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1826:72:
b(0)=azero(no,y,g,w,jerr) 1297
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1827:72:
if(jerr.ne.0) return 1298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1828:72:
q=1.0/(1.0+exp(-b(0)-g)) 1298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1829:72:
v=w*q*(1.0-q) 1298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1830:72:
r=w*(y-q) 1298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1831:72:
xmz=sum(v) 1299
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1832:72:
dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q))) 1300
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1833:72:
12061 continue 1301
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1834:72:
12041 continue 1301
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1835:72:
if(kopt .le. 0)goto 12081 1302
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1836:72:
if(isd .le. 0)goto 12101 1302
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1837:72:
xv=0.25 1302
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1838:72:
goto 12111 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1839:72:
12101 continue 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1840:72:
12120 do 12121 j=1,ni 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1841:72:
if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2) 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1842:72:
12121 continue 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1843:72:
12122 continue 1303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1844:72:
12111 continue 1304
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1845:72:
12091 continue 1304
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1846:72:
12081 continue 1305
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1847:72:
dev0=dev1 1306
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1848:72:
12130 do 12131 i=1,no 1306
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1849:72:
if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i)) 1307
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1850:72:
if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i)) 1308
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1851:72:
12131 continue 1309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1852:72:
12132 continue 1309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1853:72:
if(flmin .ge. 1.0)goto 12151 1309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1854:72:
eqs=max(eps,flmin) 1309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1855:72:
alf=eqs**(1.0/(nlam-1)) 1309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1856:72:
12151 continue 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1857:72:
m=0 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1858:72:
mm=0 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1859:72:
nlp=0 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1860:72:
nin=nlp 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1861:72:
mnl=min(mnlam,nlam) 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1862:72:
bs=0.0 1310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1863:72:
b(1:ni)=0.0 1311
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1864:72:
shr=shri*dev0 1312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1865:72:
12160 do 12161 j=1,ni 1312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1866:72:
if(ju(j).eq.0)goto 12161 1312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1867:72:
ga(j)=abs(dot_product(r,x(:,j))) 1312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1868:72:
12161 continue 1313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1869:72:
12162 continue 1313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1870:72:
12170 do 12171 ilm=1,nlam 1313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1871:72:
al0=al 1314
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1872:72:
if(flmin .lt. 1.0)goto 12191 1314
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1873:72:
al=ulam(ilm) 1314
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1874:72:
goto 12181 1315
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1875:72:
12191 if(ilm .le. 2)goto 12201 1315
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1876:72:
al=al*alf 1315
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1877:72:
goto 12181 1316
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1878:72:
12201 if(ilm .ne. 1)goto 12211 1316
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1879:72:
al=big 1316
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1880:72:
goto 12221 1317
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1881:72:
12211 continue 1317
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1882:72:
al0=0.0 1318
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1883:72:
12230 do 12231 j=1,ni 1318
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1884:72:
if(ju(j).eq.0)goto 12231 1318
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1885:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1318
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1886:72:
12231 continue 1319
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1887:72:
12232 continue 1319
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1888:72:
al0=al0/max(bta,1.0e-3) 1319
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1889:72:
al=alf*al0 1320
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1890:72:
12221 continue 1321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1891:72:
12181 continue 1321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1892:72:
al2=al*omb 1321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1893:72:
al1=al*bta 1321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1894:72:
tlam=bta*(2.0*al-al0) 1322
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1895:72:
12240 do 12241 k=1,ni 1322
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1896:72:
if(ixx(k).eq.1)goto 12241 1322
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1897:72:
if(ju(k).eq.0)goto 12241 1323
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1898:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1324
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1899:72:
12241 continue 1325
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1900:72:
12242 continue 1325
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1901:72:
10680 continue 1326
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1902:72:
12250 continue 1326
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1903:72:
12251 continue 1326
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1904:72:
bs(0)=b(0) 1326
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1905:72:
if(nin.gt.0) bs(m(1:nin))=b(m(1:nin)) 1327
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1906:72:
if(kopt .ne. 0)goto 12271 1328
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1907:72:
12280 do 12281 j=1,ni 1328
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1908:72:
if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2) 1328
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1909:72:
12281 continue 1329
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1910:72:
12282 continue 1329
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1911:72:
12271 continue 1330
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1912:72:
12290 continue 1330
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1913:72:
12291 continue 1330
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1914:72:
nlp=nlp+1 1330
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1915:72:
dlx=0.0 1331
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1916:72:
12300 do 12301 k=1,ni 1331
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1917:72:
if(ixx(k).eq.0)goto 12301 1332
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1918:72:
bk=b(k) 1332
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1919:72:
gk=dot_product(r,x(:,k)) 1333
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1920:72:
u=gk+xv(k)*b(k) 1333
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1921:72:
au=abs(u)-vp(k)*al1 1334
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1922:72:
if(au .gt. 0.0)goto 12321 1334
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1923:72:
b(k)=0.0 1334
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1924:72:
goto 12331 1335
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1925:72:
12321 continue 1335
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1926:72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1335
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1927:72:
12331 continue 1336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1928:72:
12311 continue 1336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1929:72:
d=b(k)-bk 1336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1930:72:
if(abs(d).le.0.0)goto 12301 1336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1931:72:
dlx=max(dlx,xv(k)*d**2) 1337
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1932:72:
r=r-d*v*x(:,k) 1338
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1933:72:
if(mm(k) .ne. 0)goto 12351 1338
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1934:72:
nin=nin+1 1338
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1935:72:
if(nin.gt.nx)goto 12302 1339
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1936:72:
mm(k)=nin 1339
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1937:72:
m(nin)=k 1340
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1938:72:
12351 continue 1341
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1939:72:
12301 continue 1342
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1940:72:
12302 continue 1342
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1941:72:
if(nin.gt.nx)goto 12292 1343
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1942:72:
d=sum(r)/xmz 1344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1943:72:
if(d .eq. 0.0)goto 12371 1344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1944:72:
b(0)=b(0)+d 1344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1945:72:
dlx=max(dlx,xmz*d**2) 1344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1946:72:
r=r-d*v 1344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1947:72:
12371 continue 1345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1948:72:
if(dlx.lt.shr)goto 12292 1345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1949:72:
if(nlp .le. maxit)goto 12391 1345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1950:72:
jerr=-ilm 1345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1951:72:
return 1345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1952:72:
12391 continue 1346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1953:72:
12400 continue 1346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1954:72:
12401 continue 1346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1955:72:
nlp=nlp+1 1346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1956:72:
dlx=0.0 1347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1957:72:
12410 do 12411 l=1,nin 1347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1958:72:
k=m(l) 1347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1959:72:
bk=b(k) 1348
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1960:72:
gk=dot_product(r,x(:,k)) 1349
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1961:72:
u=gk+xv(k)*b(k) 1349
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1962:72:
au=abs(u)-vp(k)*al1 1350
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1963:72:
if(au .gt. 0.0)goto 12431 1350
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1964:72:
b(k)=0.0 1350
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1965:72:
goto 12441 1351
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1966:72:
12431 continue 1351
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1967:72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1351
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1968:72:
12441 continue 1352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1969:72:
12421 continue 1352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1970:72:
d=b(k)-bk 1352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1971:72:
if(abs(d).le.0.0)goto 12411 1352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1972:72:
dlx=max(dlx,xv(k)*d**2) 1353
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1973:72:
r=r-d*v*x(:,k) 1354
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1974:72:
12411 continue 1355
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1975:72:
12412 continue 1355
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1976:72:
d=sum(r)/xmz 1356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1977:72:
if(d .eq. 0.0)goto 12461 1356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1978:72:
b(0)=b(0)+d 1356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1979:72:
dlx=max(dlx,xmz*d**2) 1356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1980:72:
r=r-d*v 1356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1981:72:
12461 continue 1357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1982:72:
if(dlx.lt.shr)goto 12402 1357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1983:72:
if(nlp .le. maxit)goto 12481 1357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1984:72:
jerr=-ilm 1357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1985:72:
return 1357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1986:72:
12481 continue 1358
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1987:72:
goto 12401 1359
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1988:72:
12402 continue 1359
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1989:72:
goto 12291 1360
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1990:72:
12292 continue 1360
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1991:72:
if(nin.gt.nx)goto 12252 1361
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1992:72:
12490 do 12491 i=1,no 1361
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1993:72:
fi=b(0)+g(i) 1362
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1994:72:
if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin))) 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1995:72:
if(fi .ge. fmin)goto 12511 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1996:72:
q(i)=0.0 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1997:72:
goto 12501 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1998:72:
12511 if(fi .le. fmax)goto 12521 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1999:72:
q(i)=1.0 1363
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2000:72:
goto 12531 1364
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2001:72:
12521 continue 1364
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2002:72:
q(i)=1.0/(1.0+exp(-fi)) 1364
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2003:72:
12531 continue 1365
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2004:72:
12501 continue 1365
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2005:72:
12491 continue 1366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2006:72:
12492 continue 1366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2007:72:
v=w*q*(1.0-q) 1366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2008:72:
xmz=sum(v) 1366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2009:72:
if(xmz.le.vmin)goto 12252 1366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2010:72:
r=w*(y-q) 1367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2011:72:
if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551 1367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2012:72:
ix=0 1368
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2013:72:
12560 do 12561 j=1,nin 1368
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2014:72:
k=m(j) 1369
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2015:72:
if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561 1369
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2016:72:
ix=1 1369
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2017:72:
goto 12562 1370
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2018:72:
12561 continue 1371
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2019:72:
12562 continue 1371
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2020:72:
if(ix .ne. 0)goto 12581 1372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2021:72:
12590 do 12591 k=1,ni 1372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2022:72:
if(ixx(k).eq.1)goto 12591 1372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2023:72:
if(ju(k).eq.0)goto 12591 1373
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2024:72:
ga(k)=abs(dot_product(r,x(:,k))) 1374
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2025:72:
if(ga(k) .le. al1*vp(k))goto 12611 1374
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2026:72:
ixx(k)=1 1374
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2027:72:
ix=1 1374
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2028:72:
12611 continue 1375
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2029:72:
12591 continue 1376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2030:72:
12592 continue 1376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2031:72:
if(ix.eq.1) go to 10680 1377
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2032:72:
goto 12252 1378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2033:72:
12581 continue 1379
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2034:72:
12551 continue 1380
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2035:72:
goto 12251 1381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2036:72:
12252 continue 1381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2037:72:
if(nin .le. nx)goto 12631 1381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2038:72:
jerr=-10000-ilm 1381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2039:72:
goto 12172 1381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2040:72:
12631 continue 1382
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2041:72:
if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin)) 1382
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2042:72:
kin(ilm)=nin 1383
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2043:72:
a0(ilm)=b(0) 1383
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2044:72:
alm(ilm)=al 1383
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2045:72:
lmu=ilm 1384
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2046:72:
devi=dev2(no,w,y,q,pmin) 1385
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2047:72:
dev(ilm)=(dev1-devi)/dev0 1385
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2048:72:
if(xmz.le.vmin)goto 12172 1386
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2049:72:
if(ilm.lt.mnl)goto 12171 1386
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2050:72:
if(flmin.ge.1.0)goto 12171 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2051:72:
me=0 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2052:72:
12640 do 12641 j=1,nin 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2053:72:
if(a(j,ilm).ne.0.0) me=me+1 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2054:72:
12641 continue 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2055:72:
12642 continue 1387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2056:72:
if(me.gt.ne)goto 12172 1388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2057:72:
if(dev(ilm).gt.devmax)goto 12172 1388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2058:72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172 1389
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2059:72:
12171 continue 1390
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2060:72:
12172 continue 1390
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2061:72:
g=log(q/(1.0-q)) 1391
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2062:72:
deallocate(b,bs,v,r,xv,q,mm,ga,ixx) 1392
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2063:72:
return 1393
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2064:72:
end 1394
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2065:72:
function dev2(n,w,y,p,pmin) 1395
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2066:72:
real w(n),y(n),p(n) 1396
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2067:72:
pmax=1.0-pmin 1396
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2068:72:
s=0.0 1397
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2069:72:
12650 do 12651 i=1,n 1397
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2070:72:
pi=min(max(pmin,p(i)),pmax) 1398
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2071:72:
s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi)) 1399
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2072:72:
12651 continue 1400
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2073:72:
12652 continue 1400
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2074:72:
dev2=s 1401
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2075:72:
return 1402
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2076:72:
end 1403
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2077:72:
function azero(n,y,g,q,jerr) 1404
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2078:72:
parameter(eps=1.0e-7) 1405
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2079:72:
real y(n),g(n),q(n) 1406
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2081:72:
allocate(e(1:n),stat=jerr) 1410
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2082:72:
allocate(p(1:n),stat=ierr) 1410
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2083:72:
jerr=jerr+ierr 1411
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2084:72:
allocate(w(1:n),stat=ierr) 1411
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2085:72:
jerr=jerr+ierr 1412
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2086:72:
if(jerr.ne.0) return 1413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2087:72:
az=0.0 1413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2088:72:
e=exp(-g) 1413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2089:72:
qy=dot_product(q,y) 1413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2090:72:
p=1.0/(1.0+e) 1414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2091:72:
12660 continue 1414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2092:72:
12661 continue 1414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2093:72:
w=q*p*(1.0-p) 1415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2094:72:
d=(qy-dot_product(q,p))/sum(w) 1415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2095:72:
az=az+d 1415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2096:72:
if(abs(d).lt.eps)goto 12662 1416
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2097:72:
ea0=exp(-az) 1416
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2098:72:
p=1.0/(1.0+ea0*e) 1417
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2099:72:
goto 12661 1418
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2100:72:
12662 continue 1418
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2101:72:
azero=az 1419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2102:72:
deallocate(e,p,w) 1420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2103:72:
return 1421
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2104:72:
end 1422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2105:72:
subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul 1424
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2107:72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1426
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2109:72:
real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam) 1427
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2110:72:
real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1428
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2111:72:
integer ju(ni),m(nx),kin(nlam) 1429
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2121:72:
allocate(r(1:no),stat=ierr) 1440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2122:72:
jerr=jerr+ierr 1441
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2123:72:
allocate(v(1:no),stat=ierr) 1441
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2124:72:
jerr=jerr+ierr 1442
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2125:72:
allocate(mm(1:ni),stat=ierr) 1442
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2126:72:
jerr=jerr+ierr 1443
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2127:72:
allocate(is(1:max(nc,ni)),stat=ierr) 1443
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2128:72:
jerr=jerr+ierr 1444
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2129:72:
allocate(sxp(1:no),stat=ierr) 1444
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2130:72:
jerr=jerr+ierr 1445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2131:72:
allocate(sxpl(1:no),stat=ierr) 1445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2132:72:
jerr=jerr+ierr 1446
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2133:72:
allocate(di(1:no),stat=ierr) 1446
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2134:72:
jerr=jerr+ierr 1447
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2135:72:
allocate(ga(1:ni),stat=ierr) 1447
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2136:72:
jerr=jerr+ierr 1448
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2137:72:
allocate(ixx(1:ni),stat=ierr) 1448
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2138:72:
jerr=jerr+ierr 1449
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2139:72:
if(jerr.ne.0) return 1450
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2140:72:
pmax=1.0-pmin 1450
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2141:72:
emin=pmin/pmax 1450
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2142:72:
emax=1.0/emin 1451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2143:72:
pfm=(1.0+pmin)*pmin 1451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2144:72:
pfx=(1.0-pmin)*pmax 1451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2145:72:
vmin=pfm*pmax 1452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2146:72:
bta=parm 1452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2147:72:
omb=1.0-bta 1452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2148:72:
dev1=0.0 1452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2149:72:
dev0=0.0 1453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2150:72:
12670 do 12671 ic=1,nc 1453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2151:72:
q0=dot_product(w,y(:,ic)) 1454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2152:72:
if(q0 .gt. pmin)goto 12691 1454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2153:72:
jerr =8000+ic 1454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2154:72:
return 1454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2155:72:
12691 continue 1455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2156:72:
if(q0 .lt. 1.0-pmin)goto 12711 1455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2157:72:
jerr =9000+ic 1455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2158:72:
return 1455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2159:72:
12711 continue 1456
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2160:72:
b(0,ic)=log(q0) 1456
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2161:72:
dev1=dev1-q0*b(0,ic) 1456
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2162:72:
b(1:ni,ic)=0.0 1457
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2163:72:
12671 continue 1458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2164:72:
12672 continue 1458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2165:72:
ixx=0 1458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2166:72:
al=0.0 1459
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2167:72:
if(nonzero(no*nc,g) .ne. 0)goto 12731 1460
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2168:72:
b(0,:)=b(0,:)-sum(b(0,:))/nc 1460
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2169:72:
sxp=0.0 1461
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2170:72:
12740 do 12741 ic=1,nc 1461
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2171:72:
q(:,ic)=exp(b(0,ic)) 1461
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2172:72:
sxp=sxp+q(:,ic) 1461
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2173:72:
12741 continue 1462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2174:72:
12742 continue 1462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2175:72:
goto 12751 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2176:72:
12731 continue 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2177:72:
12760 do 12761 i=1,no 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2178:72:
g(i,:)=g(i,:)-sum(g(i,:))/nc 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2179:72:
12761 continue 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2180:72:
12762 continue 1463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2181:72:
sxp=0.0 1464
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2182:72:
call kazero(nc,no,y,g,w,b(0,:),jerr) 1464
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2183:72:
if(jerr.ne.0) return 1465
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2184:72:
dev1=0.0 1466
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2185:72:
12770 do 12771 ic=1,nc 1466
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2186:72:
q(:,ic)=b(0,ic)+g(:,ic) 1467
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2187:72:
dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1468
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2188:72:
q(:,ic)=exp(q(:,ic)) 1468
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2189:72:
sxp=sxp+q(:,ic) 1469
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2190:72:
12771 continue 1470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2191:72:
12772 continue 1470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2192:72:
sxpl=w*log(sxp) 1470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2193:72:
12780 do 12781 ic=1,nc 1470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2194:72:
dev1=dev1+dot_product(y(:,ic),sxpl) 1470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2195:72:
12781 continue 1471
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2196:72:
12782 continue 1471
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2197:72:
12751 continue 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2198:72:
12721 continue 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2199:72:
12790 do 12791 ic=1,nc 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2200:72:
12800 do 12801 i=1,no 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2201:72:
if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic)) 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2202:72:
12801 continue 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2203:72:
12802 continue 1472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2204:72:
12791 continue 1473
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2205:72:
12792 continue 1473
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2206:72:
dev0=dev0+dev1 1474
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2207:72:
if(kopt .le. 0)goto 12821 1475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2208:72:
if(isd .le. 0)goto 12841 1475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2209:72:
xv=0.25 1475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2210:72:
goto 12851 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2211:72:
12841 continue 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2212:72:
12860 do 12861 j=1,ni 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2213:72:
if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2) 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2214:72:
12861 continue 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2215:72:
12862 continue 1476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2216:72:
12851 continue 1477
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2217:72:
12831 continue 1477
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2218:72:
12821 continue 1478
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2219:72:
if(flmin .ge. 1.0)goto 12881 1478
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2220:72:
eqs=max(eps,flmin) 1478
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2221:72:
alf=eqs**(1.0/(nlam-1)) 1478
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2222:72:
12881 continue 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2223:72:
m=0 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2224:72:
mm=0 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2225:72:
nin=0 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2226:72:
nlp=0 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2227:72:
mnl=min(mnlam,nlam) 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2228:72:
bs=0.0 1479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2229:72:
shr=shri*dev0 1480
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2230:72:
ga=0.0 1481
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2231:72:
12890 do 12891 ic=1,nc 1481
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2232:72:
r=w*(y(:,ic)-q(:,ic)/sxp) 1482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2233:72:
12900 do 12901 j=1,ni 1482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2234:72:
if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j)))) 1482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2235:72:
12901 continue 1483
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2236:72:
12902 continue 1483
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2237:72:
12891 continue 1484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2238:72:
12892 continue 1484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2239:72:
12910 do 12911 ilm=1,nlam 1484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2240:72:
al0=al 1485
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2241:72:
if(flmin .lt. 1.0)goto 12931 1485
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2242:72:
al=ulam(ilm) 1485
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2243:72:
goto 12921 1486
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2244:72:
12931 if(ilm .le. 2)goto 12941 1486
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2245:72:
al=al*alf 1486
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2246:72:
goto 12921 1487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2247:72:
12941 if(ilm .ne. 1)goto 12951 1487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2248:72:
al=big 1487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2249:72:
goto 12961 1488
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2250:72:
12951 continue 1488
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2251:72:
al0=0.0 1489
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2252:72:
12970 do 12971 j=1,ni 1489
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2253:72:
if(ju(j).eq.0)goto 12971 1489
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2254:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1489
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2255:72:
12971 continue 1490
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2256:72:
12972 continue 1490
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2257:72:
al0=al0/max(bta,1.0e-3) 1490
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2258:72:
al=alf*al0 1491
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2259:72:
12961 continue 1492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2260:72:
12921 continue 1492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2261:72:
al2=al*omb 1492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2262:72:
al1=al*bta 1492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2263:72:
tlam=bta*(2.0*al-al0) 1493
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2264:72:
12980 do 12981 k=1,ni 1493
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2265:72:
if(ixx(k).eq.1)goto 12981 1493
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2266:72:
if(ju(k).eq.0)goto 12981 1494
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2267:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1495
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2268:72:
12981 continue 1496
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2269:72:
12982 continue 1496
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2270:72:
10680 continue 1497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2271:72:
12990 continue 1497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2272:72:
12991 continue 1497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2273:72:
ix=0 1497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2274:72:
jx=ix 1497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2275:72:
ig=0 1498
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2276:72:
13000 do 13001 ic=1,nc 1498
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2277:72:
bs(0,ic)=b(0,ic) 1499
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2278:72:
if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic) 1500
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2279:72:
xmz=0.0 1501
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2280:72:
13010 do 13011 i=1,no 1501
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2281:72:
pic=q(i,ic)/sxp(i) 1502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2282:72:
if(pic .ge. pfm)goto 13031 1502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2283:72:
pic=0.0 1502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2284:72:
v(i)=0.0 1502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2285:72:
goto 13021 1503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2286:72:
13031 if(pic .le. pfx)goto 13041 1503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2287:72:
pic=1.0 1503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2288:72:
v(i)=0.0 1503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2289:72:
goto 13051 1504
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2290:72:
13041 continue 1504
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2291:72:
v(i)=w(i)*pic*(1.0-pic) 1504
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2292:72:
xmz=xmz+v(i) 1504
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2293:72:
13051 continue 1505
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2294:72:
13021 continue 1505
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2295:72:
r(i)=w(i)*(y(i,ic)-pic) 1506
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2296:72:
13011 continue 1507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2297:72:
13012 continue 1507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2298:72:
if(xmz.le.vmin)goto 13001 1507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2299:72:
ig=1 1508
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2300:72:
if(kopt .ne. 0)goto 13071 1509
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2301:72:
13080 do 13081 j=1,ni 1509
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2302:72:
if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2) 1509
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2303:72:
13081 continue 1510
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2304:72:
13082 continue 1510
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2305:72:
13071 continue 1511
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2306:72:
13090 continue 1511
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2307:72:
13091 continue 1511
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2308:72:
nlp=nlp+1 1511
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2309:72:
dlx=0.0 1512
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2310:72:
13100 do 13101 k=1,ni 1512
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2311:72:
if(ixx(k).eq.0)goto 13101 1513
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2312:72:
bk=b(k,ic) 1513
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2313:72:
gk=dot_product(r,x(:,k)) 1514
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2314:72:
u=gk+xv(k,ic)*b(k,ic) 1514
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2315:72:
au=abs(u)-vp(k)*al1 1515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2316:72:
if(au .gt. 0.0)goto 13121 1515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2317:72:
b(k,ic)=0.0 1515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2318:72:
goto 13131 1516
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2319:72:
13121 continue 1516
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2320:72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1516
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2321:72:
13131 continue 1517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2322:72:
13111 continue 1517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2323:72:
d=b(k,ic)-bk 1517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2324:72:
if(abs(d).le.0.0)goto 13101 1518
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2325:72:
dlx=max(dlx,xv(k,ic)*d**2) 1518
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2326:72:
r=r-d*v*x(:,k) 1519
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2327:72:
if(mm(k) .ne. 0)goto 13151 1519
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2328:72:
nin=nin+1 1520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2329:72:
if(nin .le. nx)goto 13171 1520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2330:72:
jx=1 1520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2331:72:
goto 13102 1520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2332:72:
13171 continue 1521
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2333:72:
mm(k)=nin 1521
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2334:72:
m(nin)=k 1522
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2335:72:
13151 continue 1523
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2336:72:
13101 continue 1524
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2337:72:
13102 continue 1524
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2338:72:
if(jx.gt.0)goto 13092 1525
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2339:72:
d=sum(r)/xmz 1526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2340:72:
if(d .eq. 0.0)goto 13191 1526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2341:72:
b(0,ic)=b(0,ic)+d 1526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2342:72:
dlx=max(dlx,xmz*d**2) 1526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2343:72:
r=r-d*v 1526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2344:72:
13191 continue 1527
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2345:72:
if(dlx.lt.shr)goto 13092 1528
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2346:72:
if(nlp .le. maxit)goto 13211 1528
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2347:72:
jerr=-ilm 1528
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2348:72:
return 1528
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2349:72:
13211 continue 1529
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2350:72:
13220 continue 1529
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2351:72:
13221 continue 1529
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2352:72:
nlp=nlp+1 1529
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2353:72:
dlx=0.0 1530
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2354:72:
13230 do 13231 l=1,nin 1530
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2355:72:
k=m(l) 1530
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2356:72:
bk=b(k,ic) 1531
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2357:72:
gk=dot_product(r,x(:,k)) 1532
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2358:72:
u=gk+xv(k,ic)*b(k,ic) 1532
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2359:72:
au=abs(u)-vp(k)*al1 1533
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2360:72:
if(au .gt. 0.0)goto 13251 1533
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2361:72:
b(k,ic)=0.0 1533
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2362:72:
goto 13261 1534
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2363:72:
13251 continue 1534
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2364:72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1534
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2365:72:
13261 continue 1535
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2366:72:
13241 continue 1535
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2367:72:
d=b(k,ic)-bk 1535
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2368:72:
if(abs(d).le.0.0)goto 13231 1536
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2369:72:
dlx=max(dlx,xv(k,ic)*d**2) 1536
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2370:72:
r=r-d*v*x(:,k) 1537
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2371:72:
13231 continue 1538
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2372:72:
13232 continue 1538
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2373:72:
d=sum(r)/xmz 1539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2374:72:
if(d .eq. 0.0)goto 13281 1539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2375:72:
b(0,ic)=b(0,ic)+d 1540
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2376:72:
dlx=max(dlx,xmz*d**2) 1540
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2377:72:
r=r-d*v 1541
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2378:72:
13281 continue 1542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2379:72:
if(dlx.lt.shr)goto 13222 1542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2380:72:
if(nlp .le. maxit)goto 13301 1542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2381:72:
jerr=-ilm 1542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2382:72:
return 1542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2383:72:
13301 continue 1543
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2384:72:
goto 13221 1544
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2385:72:
13222 continue 1544
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2386:72:
goto 13091 1545
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2387:72:
13092 continue 1545
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2388:72:
if(jx.gt.0)goto 13002 1546
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2389:72:
if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1 1547
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2390:72:
if(ix .ne. 0)goto 13321 1548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2391:72:
13330 do 13331 j=1,nin 1548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2392:72:
k=m(j) 1549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2393:72:
if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351 1549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2394:72:
ix=1 1549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2395:72:
goto 13332 1549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2396:72:
13351 continue 1550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2397:72:
13331 continue 1551
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2398:72:
13332 continue 1551
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2399:72:
13321 continue 1552
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2400:72:
13360 do 13361 i=1,no 1552
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2401:72:
fi=b(0,ic)+g(i,ic) 1554
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2402:72:
if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin))) 1555
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2403:72:
fi=min(max(exmn,fi),exmx) 1555
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2404:72:
sxp(i)=sxp(i)-q(i,ic) 1556
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2405:72:
q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i)) 1557
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2406:72:
sxp(i)=sxp(i)+q(i,ic) 1558
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2407:72:
13361 continue 1559
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2408:72:
13362 continue 1559
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2409:72:
13001 continue 1560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2410:72:
13002 continue 1560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2411:72:
s=-sum(b(0,:))/nc 1560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2412:72:
b(0,:)=b(0,:)+s 1560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2413:72:
di=s 1561
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2414:72:
13370 do 13371 j=1,nin 1561
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2415:72:
l=m(j) 1562
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2416:72:
if(vp(l) .gt. 0.0)goto 13391 1562
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2417:72:
s=sum(b(l,:))/nc 1562
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2418:72:
goto 13401 1563
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2419:72:
13391 continue 1563
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2420:72:
s=elc(parm,nc,b(l,:),is) 1563
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2421:72:
13401 continue 1564
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2422:72:
13381 continue 1564
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2423:72:
b(l,:)=b(l,:)-s 1564
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2424:72:
di=di-s*x(:,l) 1565
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2425:72:
13371 continue 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2426:72:
13372 continue 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2427:72:
di=exp(di) 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2428:72:
sxp=sxp*di 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2429:72:
13410 do 13411 ic=1,nc 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2430:72:
q(:,ic)=q(:,ic)*di 1566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2431:72:
13411 continue 1567
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2432:72:
13412 continue 1567
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2433:72:
if(jx.gt.0)goto 12992 1567
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2434:72:
if(ig.eq.0)goto 12992 1568
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2435:72:
if(ix .ne. 0)goto 13431 1569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2436:72:
13440 do 13441 k=1,ni 1569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2437:72:
if(ixx(k).eq.1)goto 13441 1569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2438:72:
if(ju(k).eq.0)goto 13441 1569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2439:72:
ga(k)=0.0 1569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2440:72:
13441 continue 1570
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2441:72:
13442 continue 1570
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2442:72:
13450 do 13451 ic=1,nc 1570
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2443:72:
r=w*(y(:,ic)-q(:,ic)/sxp) 1571
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2444:72:
13460 do 13461 k=1,ni 1571
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2445:72:
if(ixx(k).eq.1)goto 13461 1571
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2446:72:
if(ju(k).eq.0)goto 13461 1572
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2447:72:
ga(k)=max(ga(k),abs(dot_product(r,x(:,k)))) 1573
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2448:72:
13461 continue 1574
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2449:72:
13462 continue 1574
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2450:72:
13451 continue 1575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2451:72:
13452 continue 1575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2452:72:
13470 do 13471 k=1,ni 1575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2453:72:
if(ixx(k).eq.1)goto 13471 1575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2454:72:
if(ju(k).eq.0)goto 13471 1576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2455:72:
if(ga(k) .le. al1*vp(k))goto 13491 1576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2456:72:
ixx(k)=1 1576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2457:72:
ix=1 1576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2458:72:
13491 continue 1577
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2459:72:
13471 continue 1578
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2460:72:
13472 continue 1578
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2461:72:
if(ix.eq.1) go to 10680 1579
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2462:72:
goto 12992 1580
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2463:72:
13431 continue 1581
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2464:72:
goto 12991 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2465:72:
12992 continue 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2466:72:
if(jx .le. 0)goto 13511 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2467:72:
jerr=-10000-ilm 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2468:72:
goto 12912 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2469:72:
13511 continue 1582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2470:72:
devi=0.0 1583
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2471:72:
13520 do 13521 ic=1,nc 1584
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2472:72:
if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic) 1584
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2473:72:
a0(ic,ilm)=b(0,ic) 1585
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2474:72:
13530 do 13531 i=1,no 1585
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2475:72:
if(y(i,ic).le.0.0)goto 13531 1586
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2476:72:
devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i)) 1587
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2477:72:
13531 continue 1588
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2478:72:
13532 continue 1588
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2479:72:
13521 continue 1589
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2480:72:
13522 continue 1589
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2481:72:
kin(ilm)=nin 1589
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2482:72:
alm(ilm)=al 1589
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2483:72:
lmu=ilm 1590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2484:72:
dev(ilm)=(dev1-devi)/dev0 1590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2485:72:
if(ig.eq.0)goto 12912 1591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2486:72:
if(ilm.lt.mnl)goto 12911 1591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2487:72:
if(flmin.ge.1.0)goto 12911 1592
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2488:72:
if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912 1593
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2489:72:
if(dev(ilm).gt.devmax)goto 12912 1593
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2490:72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912 1594
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2491:72:
12911 continue 1595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2492:72:
12912 continue 1595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2493:72:
g=log(q) 1595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2494:72:
13540 do 13541 i=1,no 1595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2495:72:
g(i,:)=g(i,:)-sum(g(i,:))/nc 1595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2496:72:
13541 continue 1596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2497:72:
13542 continue 1596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2498:72:
deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx) 1597
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2499:72:
return 1598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2500:72:
end 1599
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2501:72:
subroutine kazero(kk,n,y,g,q,az,jerr) 1600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2502:72:
parameter(eps=1.0e-7) 1601
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2503:72:
real y(n,kk),g(n,kk),q(n),az(kk) 1602
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2507:72:
allocate(s(1:n),stat=ierr) 1607
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2508:72:
jerr=jerr+ierr 1608
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2509:72:
if(jerr.ne.0) return 1609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2510:72:
az=0.0 1609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2511:72:
e=exp(g) 1609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2512:72:
13550 do 13551 i=1,n 1609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2513:72:
s(i)=sum(e(i,:)) 1609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2514:72:
13551 continue 1610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2515:72:
13552 continue 1610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2516:72:
13560 continue 1610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2517:72:
13561 continue 1610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2518:72:
dm=0.0 1611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2519:72:
13570 do 13571 k=1,kk 1611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2520:72:
t=0.0 1611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2521:72:
u=t 1612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2522:72:
13580 do 13581 i=1,n 1612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2523:72:
pik=e(i,k)/s(i) 1613
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2524:72:
t=t+q(i)*(y(i,k)-pik) 1613
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2525:72:
u=u+q(i)*pik*(1.0-pik) 1614
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2526:72:
13581 continue 1615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2527:72:
13582 continue 1615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2528:72:
d=t/u 1615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2529:72:
az(k)=az(k)+d 1615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2530:72:
ed=exp(d) 1615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2531:72:
dm=max(dm,abs(d)) 1616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2532:72:
13590 do 13591 i=1,n 1616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2533:72:
z=e(i,k) 1616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2534:72:
e(i,k)=z*ed 1616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2535:72:
s(i)=s(i)-z+e(i,k) 1616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2536:72:
13591 continue 1617
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2537:72:
13592 continue 1617
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2538:72:
13571 continue 1618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2539:72:
13572 continue 1618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2540:72:
if(dm.lt.eps)goto 13562 1618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2541:72:
goto 13561 1619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2542:72:
13562 continue 1619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2543:72:
az=az-sum(az)/kk 1620
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2544:72:
deallocate(e,s) 1621
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2545:72:
return 1622
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2546:72:
end 1623
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2547:72:
function elc(parm,n,a,m) 1624
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2548:72:
real a(n) 1624
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2549:72:
integer m(n) 1625
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2550:72:
fn=n 1625
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2551:72:
am=sum(a)/fn 1626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2552:72:
if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611 1626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2553:72:
elc=am 1626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2554:72:
return 1626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2555:72:
13611 continue 1627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2556:72:
13620 do 13621 i=1,n 1627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2557:72:
m(i)=i 1627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2558:72:
13621 continue 1627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2559:72:
13622 continue 1627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2560:72:
call psort7(a,m,1,n) 1628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2561:72:
if(a(m(1)) .ne. a(m(n)))goto 13641 1628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2562:72:
elc=a(1) 1628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2563:72:
return 1628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2564:72:
13641 continue 1629
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2565:72:
if(mod(n,2) .ne. 1)goto 13661 1629
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2566:72:
ad=a(m(n/2+1)) 1629
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2567:72:
goto 13671 1630
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2568:72:
13661 continue 1630
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2569:72:
ad=0.5*(a(m(n/2+1))+a(m(n/2))) 1630
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2570:72:
13671 continue 1631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2571:72:
13651 continue 1631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2572:72:
if(parm .ne. 1.0)goto 13691 1631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2573:72:
elc=ad 1631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2574:72:
return 1631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2575:72:
13691 continue 1632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2576:72:
b1=min(am,ad) 1632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2577:72:
b2=max(am,ad) 1632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2578:72:
k2=1 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2579:72:
13700 continue 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2580:72:
13701 if(a(m(k2)).gt.b1)goto 13702 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2581:72:
k2=k2+1 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2582:72:
goto 13701 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2583:72:
13702 continue 1633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2584:72:
k1=k2-1 1634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2585:72:
13710 continue 1634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2586:72:
13711 if(a(m(k2)).ge.b2)goto 13712 1634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2587:72:
k2=k2+1 1634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2588:72:
goto 13711 1635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2589:72:
13712 continue 1635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2590:72:
r=parm/((1.0-parm)*fn) 1635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2591:72:
is=0 1635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2592:72:
sm=n-2*(k1-1) 1636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2593:72:
13720 do 13721 k=k1,k2-1 1636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2594:72:
sm=sm-2.0 1636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2595:72:
s=r*sm+am 1637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2596:72:
if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741 1637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2597:72:
is=k 1637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2598:72:
goto 13722 1637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2599:72:
13741 continue 1638
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2600:72:
13721 continue 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2601:72:
13722 continue 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2602:72:
if(is .eq. 0)goto 13761 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2603:72:
elc=s 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2604:72:
return 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2605:72:
13761 continue 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2606:72:
r2=2.0*r 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2607:72:
s1=a(m(k1)) 1639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2608:72:
am2=2.0*am 1640
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2609:72:
cri=r2*sum(abs(a-s1))+s1*(s1-am2) 1640
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2610:72:
elc=s1 1641
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2611:72:
13770 do 13771 k=k1+1,k2 1641
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2612:72:
s=a(m(k)) 1641
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2613:72:
if(s.eq.s1)goto 13771 1642
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2614:72:
c=r2*sum(abs(a-s))+s*(s-am2) 1643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2615:72:
if(c .ge. cri)goto 13791 1643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2616:72:
cri=c 1643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2617:72:
elc=s 1643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2618:72:
13791 continue 1643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2619:72:
s1=s 1644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2620:72:
13771 continue 1645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2621:72:
13772 continue 1645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2622:72:
return 1646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2623:72:
end 1647
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2624:72:
function nintot(ni,nx,nc,a,m,nin,is) 1648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2625:72:
real a(nx,nc) 1648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2626:72:
integer m(nx),is(ni) 1649
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2627:72:
is=0 1649
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2628:72:
nintot=0 1650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2629:72:
13800 do 13801 ic=1,nc 1650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2630:72:
13810 do 13811 j=1,nin 1650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2631:72:
k=m(j) 1650
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2632:72:
if(is(k).ne.0)goto 13811 1651
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2633:72:
if(a(j,ic).eq.0.0)goto 13811 1651
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2634:72:
is(k)=k 1651
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2635:72:
nintot=nintot+1 1652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2636:72:
13811 continue 1652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2637:72:
13812 continue 1652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2638:72:
13801 continue 1653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2639:72:
13802 continue 1653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2640:72:
return 1654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2641:72:
end 1655
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2642:72:
subroutine luncomp(ni,nx,nc,ca,ia,nin,a) 1656
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2643:72:
real ca(nx,nc),a(ni,nc) 1656
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2644:72:
integer ia(nx) 1657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2645:72:
a=0.0 1658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2646:72:
13820 do 13821 ic=1,nc 1658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2647:72:
if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic) 1658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2648:72:
13821 continue 1659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2649:72:
13822 continue 1659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2650:72:
return 1660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2651:72:
end 1661
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2652:72:
subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans) 1662
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2653:72:
real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt) 1662
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2654:72:
integer ia(nx) 1663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2655:72:
13830 do 13831 i=1,nt 1663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2656:72:
13840 do 13841 ic=1,nc 1663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2657:72:
ans(ic,i)=a0(ic) 1665
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2658:72:
if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1 1666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2660:72:
13841 continue 1666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2661:72:
13842 continue 1666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2662:72:
13831 continue 1667
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2663:72:
13832 continue 1667
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2664:72:
return 1668
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2665:72:
end 1669
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2666:72:
subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl 1671
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2669:72:
real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam) 1672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2670:72:
real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1673
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2671:72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1674
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2674:72:
if(maxval(vp) .gt. 0.0)goto 13861 1678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2675:72:
jerr=10000 1678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2676:72:
return 1678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2677:72:
13861 continue 1679
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2678:72:
allocate(ww(1:no),stat=jerr) 1680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2679:72:
allocate(ju(1:ni),stat=ierr) 1680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2680:72:
jerr=jerr+ierr 1681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2681:72:
allocate(vq(1:ni),stat=ierr) 1681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2682:72:
jerr=jerr+ierr 1682
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2683:72:
allocate(xm(1:ni),stat=ierr) 1682
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2684:72:
jerr=jerr+ierr 1683
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2685:72:
allocate(xs(1:ni),stat=ierr) 1683
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2686:72:
jerr=jerr+ierr 1684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2687:72:
if(jerr.ne.0) return 1685
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2688:72:
call spchkvars(no,ni,x,ix,ju) 1686
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2689:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 1687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2690:72:
if(maxval(ju) .gt. 0)goto 13881 1687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2691:72:
jerr=7777 1687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2692:72:
return 1687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2693:72:
13881 continue 1688
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2694:72:
vq=max(0.0,vp) 1688
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2695:72:
vq=vq*ni/sum(vq) 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2696:72:
13890 do 13891 i=1,no 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2697:72:
ww(i)=sum(y(i,:)) 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2698:72:
y(i,:)=y(i,:)/ww(i) 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2699:72:
13891 continue 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2700:72:
13892 continue 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2701:72:
sw=sum(ww) 1689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2702:72:
ww=ww/sw 1690
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2703:72:
call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs) 1691
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2704:72:
if(nc .ne. 1)goto 13911 1692
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2705:72:
call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n 1694
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2708:72:
goto 13921 1695
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2709:72:
13911 continue 1696
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2710:72:
call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi 1698
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2713:72:
13921 continue 1699
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2714:72:
13901 continue 1699
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2715:72:
if(jerr.gt.0) return 1699
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2716:72:
dev0=2.0*sw*dev0 1700
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2717:72:
13930 do 13931 k=1,lmu 1700
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2718:72:
nk=nin(k) 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2719:72:
13940 do 13941 ic=1,nc 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2720:72:
if(isd .le. 0)goto 13961 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2721:72:
13970 do 13971 l=1,nk 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2722:72:
ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2723:72:
13971 continue 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2724:72:
13972 continue 1701
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2725:72:
13961 continue 1702
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2726:72:
a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk))) 1703
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2727:72:
13941 continue 1704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2728:72:
13942 continue 1704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2729:72:
13931 continue 1705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2730:72:
13932 continue 1705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2731:72:
deallocate(ww,ju,vq,xm,xs) 1706
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2732:72:
return 1707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2733:72:
end 1708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2734:72:
subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs) 1709
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2735:72:
real x(*),w(no),xm(ni),xs(ni) 1709
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2736:72:
integer ix(*),jx(*),ju(ni) 1710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2737:72:
13980 do 13981 j=1,ni 1710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2738:72:
if(ju(j).eq.0)goto 13981 1710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2739:72:
jb=ix(j) 1710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2740:72:
je=ix(j+1)-1 1711
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2741:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1712
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2742:72:
if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j 1713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2744:72:
13981 continue 1714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2745:72:
13982 continue 1714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2746:72:
if(isd.eq.0) xs=1.0 1715
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2747:72:
return 1716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2748:72:
end 1717
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2749:72:
subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam, 1719
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2752:72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2754:72:
real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam) 1722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2755:72:
real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1723
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2756:72:
real xb(ni),xs(ni) 1723
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2757:72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1724
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2760:72:
allocate(b(0:ni),stat=jerr) 1729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2761:72:
allocate(xm(0:ni),stat=ierr) 1729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2762:72:
jerr=jerr+ierr 1730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2763:72:
allocate(xv(1:ni),stat=ierr) 1730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2764:72:
jerr=jerr+ierr 1731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2765:72:
allocate(bs(0:ni),stat=ierr) 1731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2766:72:
jerr=jerr+ierr 1732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2767:72:
allocate(ga(1:ni),stat=ierr) 1732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2768:72:
jerr=jerr+ierr 1733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2769:72:
allocate(mm(1:ni),stat=ierr) 1733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2770:72:
jerr=jerr+ierr 1734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2771:72:
allocate(ixx(1:ni),stat=ierr) 1734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2772:72:
jerr=jerr+ierr 1735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2773:72:
allocate(q(1:no),stat=ierr) 1735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2774:72:
jerr=jerr+ierr 1736
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2775:72:
allocate(r(1:no),stat=ierr) 1736
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2776:72:
jerr=jerr+ierr 1737
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2777:72:
allocate(v(1:no),stat=ierr) 1737
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2778:72:
jerr=jerr+ierr 1738
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2779:72:
allocate(sc(1:no),stat=ierr) 1738
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2780:72:
jerr=jerr+ierr 1739
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2781:72:
if(jerr.ne.0) return 1740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2782:72:
fmax=log(1.0/pmin-1.0) 1740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2783:72:
fmin=-fmax 1740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2784:72:
vmin=(1.0+pmin)*pmin*(1.0-pmin) 1741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2785:72:
bta=parm 1741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2786:72:
omb=1.0-bta 1742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2787:72:
q0=dot_product(w,y) 1742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2788:72:
if(q0 .gt. pmin)goto 14001 1742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2789:72:
jerr=8001 1742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2790:72:
return 1742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2791:72:
14001 continue 1743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2792:72:
if(q0 .lt. 1.0-pmin)goto 14021 1743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2793:72:
jerr=9001 1743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2794:72:
return 1743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2795:72:
14021 continue 1743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2796:72:
bz=log(q0/(1.0-q0)) 1744
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2797:72:
if(nonzero(no,g) .ne. 0)goto 14041 1744
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2798:72:
vi=q0*(1.0-q0) 1744
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2799:72:
b(0)=bz 1744
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2800:72:
v=vi*w 1745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2801:72:
r=w*(y-q0) 1745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2802:72:
q=q0 1745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2803:72:
xm(0)=vi 1745
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2804:72:
dev1=-(bz*q0+log(1.0-q0)) 1746
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2805:72:
goto 14051 1747
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2806:72:
14041 continue 1747
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2807:72:
b(0)=azero(no,y,g,w,jerr) 1747
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2808:72:
if(jerr.ne.0) return 1748
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2809:72:
q=1.0/(1.0+exp(-b(0)-g)) 1748
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2810:72:
v=w*q*(1.0-q) 1748
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2811:72:
r=w*(y-q) 1748
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2812:72:
xm(0)=sum(v) 1749
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2813:72:
dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q))) 1750
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2814:72:
14051 continue 1751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2815:72:
14031 continue 1751
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2816:72:
if(kopt .le. 0)goto 14071 1752
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2817:72:
if(isd .le. 0)goto 14091 1752
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2818:72:
xv=0.25 1752
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2819:72:
goto 14101 1753
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2820:72:
14091 continue 1754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2821:72:
14110 do 14111 j=1,ni 1754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2822:72:
if(ju(j).eq.0)goto 14111 1754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2823:72:
jb=ix(j) 1754
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2824:72:
je=ix(j+1)-1 1755
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2825:72:
xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2) 1756
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2826:72:
14111 continue 1757
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2827:72:
14112 continue 1757
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2828:72:
14101 continue 1758
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2829:72:
14081 continue 1758
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2830:72:
14071 continue 1759
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2831:72:
b(1:ni)=0.0 1759
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2832:72:
dev0=dev1 1760
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2833:72:
14120 do 14121 i=1,no 1760
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2834:72:
if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i)) 1761
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2835:72:
if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i)) 1762
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2836:72:
14121 continue 1763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2837:72:
14122 continue 1763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2838:72:
if(flmin .ge. 1.0)goto 14141 1763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2839:72:
eqs=max(eps,flmin) 1763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2840:72:
alf=eqs**(1.0/(nlam-1)) 1763
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2841:72:
14141 continue 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2842:72:
m=0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2843:72:
mm=0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2844:72:
nin=0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2845:72:
o=0.0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2846:72:
svr=o 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2847:72:
mnl=min(mnlam,nlam) 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2848:72:
bs=0.0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2849:72:
nlp=0 1764
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2850:72:
nin=nlp 1765
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2851:72:
shr=shri*dev0 1765
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2852:72:
al=0.0 1765
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2853:72:
ixx=0 1766
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2854:72:
14150 do 14151 j=1,ni 1766
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2855:72:
if(ju(j).eq.0)goto 14151 1767
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2856:72:
jb=ix(j) 1767
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2857:72:
je=ix(j+1)-1 1767
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2858:72:
jn=ix(j+1)-ix(j) 1768
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2859:72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1769
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2860:72:
gj=dot_product(sc(1:jn),x(jb:je)) 1770
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2861:72:
ga(j)=abs((gj-svr*xb(j))/xs(j)) 1771
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2862:72:
14151 continue 1772
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2863:72:
14152 continue 1772
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2864:72:
14160 do 14161 ilm=1,nlam 1772
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2865:72:
al0=al 1773
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2866:72:
if(flmin .lt. 1.0)goto 14181 1773
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2867:72:
al=ulam(ilm) 1773
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2868:72:
goto 14171 1774
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2869:72:
14181 if(ilm .le. 2)goto 14191 1774
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2870:72:
al=al*alf 1774
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2871:72:
goto 14171 1775
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2872:72:
14191 if(ilm .ne. 1)goto 14201 1775
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2873:72:
al=big 1775
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2874:72:
goto 14211 1776
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2875:72:
14201 continue 1776
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2876:72:
al0=0.0 1777
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2877:72:
14220 do 14221 j=1,ni 1777
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2878:72:
if(ju(j).eq.0)goto 14221 1777
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2879:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1777
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2880:72:
14221 continue 1778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2881:72:
14222 continue 1778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2882:72:
al0=al0/max(bta,1.0e-3) 1778
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2883:72:
al=alf*al0 1779
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2884:72:
14211 continue 1780
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2885:72:
14171 continue 1780
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2886:72:
al2=al*omb 1780
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2887:72:
al1=al*bta 1780
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2888:72:
tlam=bta*(2.0*al-al0) 1781
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2889:72:
14230 do 14231 k=1,ni 1781
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2890:72:
if(ixx(k).eq.1)goto 14231 1781
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2891:72:
if(ju(k).eq.0)goto 14231 1782
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2892:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1783
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2893:72:
14231 continue 1784
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2894:72:
14232 continue 1784
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2895:72:
10680 continue 1785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2896:72:
14240 continue 1785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2897:72:
14241 continue 1785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2898:72:
bs(0)=b(0) 1785
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2899:72:
if(nin.gt.0) bs(m(1:nin))=b(m(1:nin)) 1786
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2900:72:
14250 do 14251 j=1,ni 1786
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2901:72:
if(ixx(j).eq.0)goto 14251 1787
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2902:72:
jb=ix(j) 1787
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2903:72:
je=ix(j+1)-1 1787
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2904:72:
jn=ix(j+1)-ix(j) 1788
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2905:72:
sc(1:jn)=v(jx(jb:je)) 1789
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2906:72:
xm(j)=dot_product(sc(1:jn),x(jb:je)) 1790
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2907:72:
if(kopt .ne. 0)goto 14271 1791
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2908:72:
xv(j)=dot_product(sc(1:jn),x(jb:je)**2) 1792
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2909:72:
xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2 1793
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2910:72:
14271 continue 1794
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2911:72:
14251 continue 1795
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2912:72:
14252 continue 1795
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2913:72:
14280 continue 1795
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2914:72:
14281 continue 1795
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2915:72:
nlp=nlp+1 1795
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2916:72:
dlx=0.0 1796
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2917:72:
14290 do 14291 k=1,ni 1796
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2918:72:
if(ixx(k).eq.0)goto 14291 1797
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2919:72:
jb=ix(k) 1797
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2920:72:
je=ix(k+1)-1 1797
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2921:72:
jn=ix(k+1)-ix(k) 1797
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2922:72:
bk=b(k) 1798
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2923:72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1799
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2924:72:
gk=dot_product(sc(1:jn),x(jb:je)) 1800
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2925:72:
gk=(gk-svr*xb(k))/xs(k) 1801
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2926:72:
u=gk+xv(k)*b(k) 1801
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2927:72:
au=abs(u)-vp(k)*al1 1802
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2928:72:
if(au .gt. 0.0)goto 14311 1802
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2929:72:
b(k)=0.0 1802
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2930:72:
goto 14321 1803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2931:72:
14311 continue 1803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2932:72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1803
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2933:72:
14321 continue 1804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2934:72:
14301 continue 1804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2935:72:
d=b(k)-bk 1804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2936:72:
if(abs(d).le.0.0)goto 14291 1804
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2937:72:
dlx=max(dlx,xv(k)*d**2) 1805
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2938:72:
if(mm(k) .ne. 0)goto 14341 1805
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2939:72:
nin=nin+1 1805
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2940:72:
if(nin.gt.nx)goto 14292 1806
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2941:72:
mm(k)=nin 1806
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2942:72:
m(nin)=k 1806
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2943:72:
sc(1:jn)=v(jx(jb:je)) 1807
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2944:72:
xm(k)=dot_product(sc(1:jn),x(jb:je)) 1808
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2945:72:
14341 continue 1809
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2946:72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 1810
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2947:72:
o=o+d*(xb(k)/xs(k)) 1811
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2948:72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1812
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2949:72:
14291 continue 1813
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2950:72:
14292 continue 1813
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2951:72:
if(nin.gt.nx)goto 14282 1814
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2952:72:
d=svr/xm(0) 1815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2953:72:
if(d .eq. 0.0)goto 14361 1815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2954:72:
b(0)=b(0)+d 1815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2955:72:
dlx=max(dlx,xm(0)*d**2) 1815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2956:72:
r=r-d*v 1815
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2957:72:
14361 continue 1816
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2958:72:
svr=svr-d*xm(0) 1816
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2959:72:
if(dlx.lt.shr)goto 14282 1817
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2960:72:
if(nlp .le. maxit)goto 14381 1817
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2961:72:
jerr=-ilm 1817
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2962:72:
return 1817
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2963:72:
14381 continue 1818
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2964:72:
14390 continue 1818
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2965:72:
14391 continue 1818
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2966:72:
nlp=nlp+1 1818
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2967:72:
dlx=0.0 1819
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2968:72:
14400 do 14401 l=1,nin 1819
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2969:72:
k=m(l) 1819
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2970:72:
jb=ix(k) 1819
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2971:72:
je=ix(k+1)-1 1820
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2972:72:
jn=ix(k+1)-ix(k) 1820
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2973:72:
bk=b(k) 1821
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2974:72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1822
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2975:72:
gk=dot_product(sc(1:jn),x(jb:je)) 1823
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2976:72:
gk=(gk-svr*xb(k))/xs(k) 1824
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2977:72:
u=gk+xv(k)*b(k) 1824
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2978:72:
au=abs(u)-vp(k)*al1 1825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2979:72:
if(au .gt. 0.0)goto 14421 1825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2980:72:
b(k)=0.0 1825
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2981:72:
goto 14431 1826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2982:72:
14421 continue 1826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2983:72:
b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1826
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2984:72:
14431 continue 1827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2985:72:
14411 continue 1827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2986:72:
d=b(k)-bk 1827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2987:72:
if(abs(d).le.0.0)goto 14401 1827
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2988:72:
dlx=max(dlx,xv(k)*d**2) 1828
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2989:72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 1829
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2990:72:
o=o+d*(xb(k)/xs(k)) 1830
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2991:72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1831
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2992:72:
14401 continue 1832
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2993:72:
14402 continue 1832
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2994:72:
d=svr/xm(0) 1833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2995:72:
if(d .eq. 0.0)goto 14451 1833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2996:72:
b(0)=b(0)+d 1833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2997:72:
dlx=max(dlx,xm(0)*d**2) 1833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2998:72:
r=r-d*v 1833
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2999:72:
14451 continue 1834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3000:72:
svr=svr-d*xm(0) 1834
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3001:72:
if(dlx.lt.shr)goto 14392 1835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3002:72:
if(nlp .le. maxit)goto 14471 1835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3003:72:
jerr=-ilm 1835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3004:72:
return 1835
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3005:72:
14471 continue 1836
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3006:72:
goto 14391 1837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3007:72:
14392 continue 1837
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3008:72:
goto 14281 1838
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3009:72:
14282 continue 1838
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3010:72:
if(nin.gt.nx)goto 14242 1839
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3011:72:
sc=b(0) 1839
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3012:72:
b0=0.0 1840
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3013:72:
14480 do 14481 j=1,nin 1840
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3014:72:
l=m(j) 1840
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3015:72:
jb=ix(l) 1840
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3016:72:
je=ix(l+1)-1 1841
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3017:72:
sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l) 1842
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3018:72:
b0=b0-b(l)*xb(l)/xs(l) 1843
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3019:72:
14481 continue 1844
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3020:72:
14482 continue 1844
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3021:72:
sc=sc+b0 1845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3022:72:
14490 do 14491 i=1,no 1845
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3023:72:
fi=sc(i)+g(i) 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3024:72:
if(fi .ge. fmin)goto 14511 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3025:72:
q(i)=0.0 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3026:72:
goto 14501 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3027:72:
14511 if(fi .le. fmax)goto 14521 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3028:72:
q(i)=1.0 1846
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3029:72:
goto 14531 1847
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3030:72:
14521 continue 1847
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3031:72:
q(i)=1.0/(1.0+exp(-fi)) 1847
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3032:72:
14531 continue 1848
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3033:72:
14501 continue 1848
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3034:72:
14491 continue 1849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3035:72:
14492 continue 1849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3036:72:
v=w*q*(1.0-q) 1849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3037:72:
xm(0)=sum(v) 1849
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3038:72:
if(xm(0).lt.vmin)goto 14242 1850
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3039:72:
r=w*(y-q) 1850
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3040:72:
svr=sum(r) 1850
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3041:72:
o=0.0 1851
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3042:72:
if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551 1851
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3043:72:
kx=0 1852
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3044:72:
14560 do 14561 j=1,nin 1852
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3045:72:
k=m(j) 1853
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3046:72:
if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561 1853
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3047:72:
kx=1 1853
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3048:72:
goto 14562 1854
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3049:72:
14561 continue 1855
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3050:72:
14562 continue 1855
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3051:72:
if(kx .ne. 0)goto 14581 1856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3052:72:
14590 do 14591 j=1,ni 1856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3053:72:
if(ixx(j).eq.1)goto 14591 1856
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3054:72:
if(ju(j).eq.0)goto 14591 1857
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3055:72:
jb=ix(j) 1857
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3056:72:
je=ix(j+1)-1 1857
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3057:72:
jn=ix(j+1)-ix(j) 1858
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3058:72:
sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o 1859
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3059:72:
gj=dot_product(sc(1:jn),x(jb:je)) 1860
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3060:72:
ga(j)=abs((gj-svr*xb(j))/xs(j)) 1861
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3061:72:
if(ga(j) .le. al1*vp(j))goto 14611 1861
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3062:72:
ixx(j)=1 1861
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3063:72:
kx=1 1861
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3064:72:
14611 continue 1862
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3065:72:
14591 continue 1863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3066:72:
14592 continue 1863
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3067:72:
if(kx.eq.1) go to 10680 1864
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3068:72:
goto 14242 1865
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3069:72:
14581 continue 1866
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3070:72:
14551 continue 1867
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3071:72:
goto 14241 1868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3072:72:
14242 continue 1868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3073:72:
if(nin .le. nx)goto 14631 1868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3074:72:
jerr=-10000-ilm 1868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3075:72:
goto 14162 1868
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3076:72:
14631 continue 1869
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3077:72:
if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin)) 1869
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3078:72:
kin(ilm)=nin 1870
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3079:72:
a0(ilm)=b(0) 1870
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3080:72:
alm(ilm)=al 1870
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3081:72:
lmu=ilm 1871
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3082:72:
devi=dev2(no,w,y,q,pmin) 1872
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3083:72:
dev(ilm)=(dev1-devi)/dev0 1873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3084:72:
if(ilm.lt.mnl)goto 14161 1873
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3085:72:
if(flmin.ge.1.0)goto 14161 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3086:72:
me=0 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3087:72:
14640 do 14641 j=1,nin 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3088:72:
if(a(j,ilm).ne.0.0) me=me+1 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3089:72:
14641 continue 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3090:72:
14642 continue 1874
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3091:72:
if(me.gt.ne)goto 14162 1875
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3092:72:
if(dev(ilm).gt.devmax)goto 14162 1875
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3093:72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162 1876
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3094:72:
if(xm(0).lt.vmin)goto 14162 1877
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3095:72:
14161 continue 1878
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3096:72:
14162 continue 1878
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3097:72:
g=log(q/(1.0-q)) 1879
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3098:72:
deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx) 1880
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3099:72:
return 1881
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3100:72:
end 1882
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3101:72:
subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam 1884
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3104:72:
parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5, big=9.9e30, mnlam= 1886
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3106:72:
real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni) 1887
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3107:72:
real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam) 1888
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3108:72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1889
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3118:72:
allocate(xm(0:ni),stat=ierr) 1900
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3119:72:
jerr=jerr+ierr 1901
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3120:72:
allocate(r(1:no),stat=ierr) 1901
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3121:72:
jerr=jerr+ierr 1902
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3122:72:
allocate(v(1:no),stat=ierr) 1902
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3123:72:
jerr=jerr+ierr 1903
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3124:72:
allocate(mm(1:ni),stat=ierr) 1903
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3125:72:
jerr=jerr+ierr 1904
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3126:72:
allocate(ga(1:ni),stat=ierr) 1904
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3127:72:
jerr=jerr+ierr 1905
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3128:72:
allocate(iy(1:ni),stat=ierr) 1905
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3129:72:
jerr=jerr+ierr 1906
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3130:72:
allocate(is(1:max(nc,ni)),stat=ierr) 1906
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3131:72:
jerr=jerr+ierr 1907
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3132:72:
allocate(sxp(1:no),stat=ierr) 1907
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3133:72:
jerr=jerr+ierr 1908
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3134:72:
allocate(sxpl(1:no),stat=ierr) 1908
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3135:72:
jerr=jerr+ierr 1909
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3136:72:
allocate(sc(1:no),stat=ierr) 1909
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3137:72:
jerr=jerr+ierr 1910
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3138:72:
if(jerr.ne.0) return 1911
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3139:72:
pmax=1.0-pmin 1911
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3140:72:
emin=pmin/pmax 1911
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3141:72:
emax=1.0/emin 1912
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3142:72:
pfm=(1.0+pmin)*pmin 1912
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3143:72:
pfx=(1.0-pmin)*pmax 1912
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3144:72:
vmin=pfm*pmax 1913
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3145:72:
bta=parm 1913
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3146:72:
omb=1.0-bta 1913
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3147:72:
dev1=0.0 1913
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3148:72:
dev0=0.0 1914
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3149:72:
14650 do 14651 ic=1,nc 1914
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3150:72:
q0=dot_product(w,y(:,ic)) 1915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3151:72:
if(q0 .gt. pmin)goto 14671 1915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3152:72:
jerr =8000+ic 1915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3153:72:
return 1915
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3154:72:
14671 continue 1916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3155:72:
if(q0 .lt. 1.0-pmin)goto 14691 1916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3156:72:
jerr =9000+ic 1916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3157:72:
return 1916
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3158:72:
14691 continue 1917
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3159:72:
b(1:ni,ic)=0.0 1917
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3160:72:
b(0,ic)=log(q0) 1917
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3161:72:
dev1=dev1-q0*b(0,ic) 1918
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3162:72:
14651 continue 1919
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3163:72:
14652 continue 1919
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3164:72:
iy=0 1919
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3165:72:
al=0.0 1920
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3166:72:
if(nonzero(no*nc,g) .ne. 0)goto 14711 1921
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3167:72:
b(0,:)=b(0,:)-sum(b(0,:))/nc 1921
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3168:72:
sxp=0.0 1922
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3169:72:
14720 do 14721 ic=1,nc 1922
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3170:72:
q(:,ic)=exp(b(0,ic)) 1922
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3171:72:
sxp=sxp+q(:,ic) 1922
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3172:72:
14721 continue 1923
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3173:72:
14722 continue 1923
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3174:72:
goto 14731 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3175:72:
14711 continue 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3176:72:
14740 do 14741 i=1,no 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3177:72:
g(i,:)=g(i,:)-sum(g(i,:))/nc 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3178:72:
14741 continue 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3179:72:
14742 continue 1924
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3180:72:
sxp=0.0 1925
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3181:72:
call kazero(nc,no,y,g,w,b(0,:),jerr) 1925
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3182:72:
if(jerr.ne.0) return 1926
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3183:72:
dev1=0.0 1927
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3184:72:
14750 do 14751 ic=1,nc 1927
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3185:72:
q(:,ic)=b(0,ic)+g(:,ic) 1928
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3186:72:
dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1929
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3187:72:
q(:,ic)=exp(q(:,ic)) 1929
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3188:72:
sxp=sxp+q(:,ic) 1930
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3189:72:
14751 continue 1931
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3190:72:
14752 continue 1931
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3191:72:
sxpl=w*log(sxp) 1931
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3192:72:
14760 do 14761 ic=1,nc 1931
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3193:72:
dev1=dev1+dot_product(y(:,ic),sxpl) 1931
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3194:72:
14761 continue 1932
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3195:72:
14762 continue 1932
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3196:72:
14731 continue 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3197:72:
14701 continue 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3198:72:
14770 do 14771 ic=1,nc 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3199:72:
14780 do 14781 i=1,no 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3200:72:
if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic)) 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3201:72:
14781 continue 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3202:72:
14782 continue 1933
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3203:72:
14771 continue 1934
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3204:72:
14772 continue 1934
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3205:72:
dev0=dev0+dev1 1935
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3206:72:
if(kopt .le. 0)goto 14801 1936
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3207:72:
if(isd .le. 0)goto 14821 1936
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3208:72:
xv=0.25 1936
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3209:72:
goto 14831 1937
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3210:72:
14821 continue 1938
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3211:72:
14840 do 14841 j=1,ni 1938
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3212:72:
if(ju(j).eq.0)goto 14841 1938
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3213:72:
jb=ix(j) 1938
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3214:72:
je=ix(j+1)-1 1939
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3215:72:
xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2) 1940
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3216:72:
14841 continue 1941
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3217:72:
14842 continue 1941
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3218:72:
14831 continue 1942
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3219:72:
14811 continue 1942
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3220:72:
14801 continue 1943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3221:72:
if(flmin .ge. 1.0)goto 14861 1943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3222:72:
eqs=max(eps,flmin) 1943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3223:72:
alf=eqs**(1.0/(nlam-1)) 1943
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3224:72:
14861 continue 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3225:72:
m=0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3226:72:
mm=0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3227:72:
nin=0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3228:72:
nlp=0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3229:72:
mnl=min(mnlam,nlam) 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3230:72:
bs=0.0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3231:72:
svr=0.0 1944
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3232:72:
o=0.0 1945
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3233:72:
shr=shri*dev0 1945
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3234:72:
ga=0.0 1946
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3235:72:
14870 do 14871 ic=1,nc 1946
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3236:72:
v=q(:,ic)/sxp 1946
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3237:72:
r=w*(y(:,ic)-v) 1946
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3238:72:
v=w*v*(1.0-v) 1947
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3239:72:
14880 do 14881 j=1,ni 1947
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3240:72:
if(ju(j).eq.0)goto 14881 1948
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3241:72:
jb=ix(j) 1948
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3242:72:
je=ix(j+1)-1 1948
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3243:72:
jn=ix(j+1)-ix(j) 1949
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3244:72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 1950
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3245:72:
gj=dot_product(sc(1:jn),x(jb:je)) 1951
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3246:72:
ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j)) 1952
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3247:72:
14881 continue 1953
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3248:72:
14882 continue 1953
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3249:72:
14871 continue 1954
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3250:72:
14872 continue 1954
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3251:72:
14890 do 14891 ilm=1,nlam 1954
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3252:72:
al0=al 1955
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3253:72:
if(flmin .lt. 1.0)goto 14911 1955
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3254:72:
al=ulam(ilm) 1955
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3255:72:
goto 14901 1956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3256:72:
14911 if(ilm .le. 2)goto 14921 1956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3257:72:
al=al*alf 1956
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3258:72:
goto 14901 1957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3259:72:
14921 if(ilm .ne. 1)goto 14931 1957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3260:72:
al=big 1957
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3261:72:
goto 14941 1958
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3262:72:
14931 continue 1958
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3263:72:
al0=0.0 1959
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3264:72:
14950 do 14951 j=1,ni 1959
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3265:72:
if(ju(j).eq.0)goto 14951 1959
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3266:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 1959
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3267:72:
14951 continue 1960
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3268:72:
14952 continue 1960
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3269:72:
al0=al0/max(bta,1.0e-3) 1960
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3270:72:
al=alf*al0 1961
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3271:72:
14941 continue 1962
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3272:72:
14901 continue 1962
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3273:72:
al2=al*omb 1962
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3274:72:
al1=al*bta 1962
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3275:72:
tlam=bta*(2.0*al-al0) 1963
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3276:72:
14960 do 14961 k=1,ni 1963
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3277:72:
if(iy(k).eq.1)goto 14961 1963
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3278:72:
if(ju(k).eq.0)goto 14961 1964
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3279:72:
if(ga(k).gt.tlam*vp(k)) iy(k)=1 1965
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3280:72:
14961 continue 1966
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3281:72:
14962 continue 1966
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3282:72:
10680 continue 1967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3283:72:
14970 continue 1967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3284:72:
14971 continue 1967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3285:72:
ixx=0 1967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3286:72:
jxx=ixx 1967
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3287:72:
ig=0 1968
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3288:72:
14980 do 14981 ic=1,nc 1968
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3289:72:
bs(0,ic)=b(0,ic) 1969
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3290:72:
if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic) 1970
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3291:72:
xm(0)=0.0 1970
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3292:72:
svr=0.0 1970
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3293:72:
o=0.0 1971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3294:72:
14990 do 14991 i=1,no 1971
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3295:72:
pic=q(i,ic)/sxp(i) 1972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3296:72:
if(pic .ge. pfm)goto 15011 1972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3297:72:
pic=0.0 1972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3298:72:
v(i)=0.0 1972
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3299:72:
goto 15001 1973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3300:72:
15011 if(pic .le. pfx)goto 15021 1973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3301:72:
pic=1.0 1973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3302:72:
v(i)=0.0 1973
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3303:72:
goto 15031 1974
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3304:72:
15021 continue 1974
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3305:72:
v(i)=w(i)*pic*(1.0-pic) 1974
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3306:72:
xm(0)=xm(0)+v(i) 1974
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3307:72:
15031 continue 1975
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3308:72:
15001 continue 1975
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3309:72:
r(i)=w(i)*(y(i,ic)-pic) 1975
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3310:72:
svr=svr+r(i) 1976
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3311:72:
14991 continue 1977
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3312:72:
14992 continue 1977
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3313:72:
if(xm(0).le.vmin)goto 14981 1977
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3314:72:
ig=1 1978
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3315:72:
15040 do 15041 j=1,ni 1978
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3316:72:
if(iy(j).eq.0)goto 15041 1979
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3317:72:
jb=ix(j) 1979
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3318:72:
je=ix(j+1)-1 1980
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3319:72:
xm(j)=dot_product(v(jx(jb:je)),x(jb:je)) 1981
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3320:72:
if(kopt .ne. 0)goto 15061 1982
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3321:72:
xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2) 1983
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3322:72:
xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2 1984
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3323:72:
15061 continue 1985
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3324:72:
15041 continue 1986
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3325:72:
15042 continue 1986
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3326:72:
15070 continue 1986
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3327:72:
15071 continue 1986
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3328:72:
nlp=nlp+1 1986
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3329:72:
dlx=0.0 1987
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3330:72:
15080 do 15081 k=1,ni 1987
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3331:72:
if(iy(k).eq.0)goto 15081 1988
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3332:72:
jb=ix(k) 1988
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3333:72:
je=ix(k+1)-1 1988
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3334:72:
jn=ix(k+1)-ix(k) 1988
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3335:72:
bk=b(k,ic) 1989
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3336:72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 1990
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3337:72:
gk=dot_product(sc(1:jn),x(jb:je)) 1991
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3338:72:
gk=(gk-svr*xb(k))/xs(k) 1992
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3339:72:
u=gk+xv(k,ic)*b(k,ic) 1992
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3340:72:
au=abs(u)-vp(k)*al1 1993
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3341:72:
if(au .gt. 0.0)goto 15101 1993
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3342:72:
b(k,ic)=0.0 1993
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3343:72:
goto 15111 1994
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3344:72:
15101 continue 1994
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3345:72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 1994
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3346:72:
15111 continue 1995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3347:72:
15091 continue 1995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3348:72:
d=b(k,ic)-bk 1995
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3349:72:
if(abs(d).le.0.0)goto 15081 1996
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3350:72:
dlx=max(dlx,xv(k,ic)*d**2) 1997
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3351:72:
if(mm(k) .ne. 0)goto 15131 1997
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3352:72:
nin=nin+1 1998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3353:72:
if(nin .le. nx)goto 15151 1998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3354:72:
jxx=1 1998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3355:72:
goto 15082 1998
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3356:72:
15151 continue 1999
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3357:72:
mm(k)=nin 1999
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3358:72:
m(nin)=k 2000
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3359:72:
xm(k)=dot_product(v(jx(jb:je)),x(jb:je)) 2001
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3360:72:
15131 continue 2002
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3361:72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 2003
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3362:72:
o=o+d*(xb(k)/xs(k)) 2004
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3363:72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2005
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3364:72:
15081 continue 2006
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3365:72:
15082 continue 2006
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3366:72:
if(jxx.gt.0)goto 15072 2007
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3367:72:
d=svr/xm(0) 2008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3368:72:
if(d .eq. 0.0)goto 15171 2008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3369:72:
b(0,ic)=b(0,ic)+d 2008
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3370:72:
dlx=max(dlx,xm(0)*d**2) 2009
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3371:72:
r=r-d*v 2009
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3372:72:
svr=svr-d*xm(0) 2010
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3373:72:
15171 continue 2011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3374:72:
if(dlx.lt.shr)goto 15072 2011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3375:72:
if(nlp .le. maxit)goto 15191 2011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3376:72:
jerr=-ilm 2011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3377:72:
return 2011
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3378:72:
15191 continue 2012
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3379:72:
15200 continue 2012
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3380:72:
15201 continue 2012
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3381:72:
nlp=nlp+1 2012
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3382:72:
dlx=0.0 2013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3383:72:
15210 do 15211 l=1,nin 2013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3384:72:
k=m(l) 2013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3385:72:
jb=ix(k) 2013
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3386:72:
je=ix(k+1)-1 2014
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3387:72:
jn=ix(k+1)-ix(k) 2014
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3388:72:
bk=b(k,ic) 2015
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3389:72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 2016
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3390:72:
gk=dot_product(sc(1:jn),x(jb:je)) 2017
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3391:72:
gk=(gk-svr*xb(k))/xs(k) 2018
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3392:72:
u=gk+xv(k,ic)*b(k,ic) 2018
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3393:72:
au=abs(u)-vp(k)*al1 2019
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3394:72:
if(au .gt. 0.0)goto 15231 2019
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3395:72:
b(k,ic)=0.0 2019
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3396:72:
goto 15241 2020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3397:72:
15231 continue 2020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3398:72:
b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2) 2020
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3399:72:
15241 continue 2021
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3400:72:
15221 continue 2021
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3401:72:
d=b(k,ic)-bk 2021
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3402:72:
if(abs(d).le.0.0)goto 15211 2022
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3403:72:
dlx=max(dlx,xv(k,ic)*d**2) 2023
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3404:72:
r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k) 2024
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3405:72:
o=o+d*(xb(k)/xs(k)) 2025
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3406:72:
svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2026
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3407:72:
15211 continue 2027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3408:72:
15212 continue 2027
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3409:72:
d=svr/xm(0) 2028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3410:72:
if(d .eq. 0.0)goto 15261 2028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3411:72:
b(0,ic)=b(0,ic)+d 2028
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3412:72:
dlx=max(dlx,xm(0)*d**2) 2029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3413:72:
r=r-d*v 2029
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3414:72:
svr=svr-d*xm(0) 2030
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3415:72:
15261 continue 2031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3416:72:
if(dlx.lt.shr)goto 15202 2031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3417:72:
if(nlp .le. maxit)goto 15281 2031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3418:72:
jerr=-ilm 2031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3419:72:
return 2031
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3420:72:
15281 continue 2032
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3421:72:
goto 15201 2033
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3422:72:
15202 continue 2033
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3423:72:
goto 15071 2034
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3424:72:
15072 continue 2034
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3425:72:
if(jxx.gt.0)goto 14982 2035
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3426:72:
if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1 2036
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3427:72:
if(ixx .ne. 0)goto 15301 2037
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3428:72:
15310 do 15311 j=1,nin 2037
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3429:72:
k=m(j) 2038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3430:72:
if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331 2038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3431:72:
ixx=1 2038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3432:72:
goto 15312 2038
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3433:72:
15331 continue 2039
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3434:72:
15311 continue 2040
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3435:72:
15312 continue 2040
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3436:72:
15301 continue 2041
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3437:72:
sc=b(0,ic)+g(:,ic) 2041
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3438:72:
b0=0.0 2042
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3439:72:
15340 do 15341 j=1,nin 2042
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3440:72:
l=m(j) 2042
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3441:72:
jb=ix(l) 2042
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3442:72:
je=ix(l+1)-1 2043
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3443:72:
sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l) 2044
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3444:72:
b0=b0-b(l,ic)*xb(l)/xs(l) 2045
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3445:72:
15341 continue 2046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3446:72:
15342 continue 2046
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3447:72:
sc=min(max(exmn,sc+b0),exmx) 2047
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3448:72:
sxp=sxp-q(:,ic) 2048
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3449:72:
q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp) 2049
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3450:72:
sxp=sxp+q(:,ic) 2050
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3451:72:
14981 continue 2051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3452:72:
14982 continue 2051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3453:72:
s=-sum(b(0,:))/nc 2051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3454:72:
b(0,:)=b(0,:)+s 2051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3455:72:
sc=s 2051
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3456:72:
b0=0.0 2052
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3457:72:
15350 do 15351 j=1,nin 2052
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3458:72:
l=m(j) 2053
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3459:72:
if(vp(l) .gt. 0.0)goto 15371 2053
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3460:72:
s=sum(b(l,:))/nc 2053
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3461:72:
goto 15381 2054
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3462:72:
15371 continue 2054
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3463:72:
s=elc(parm,nc,b(l,:),is) 2054
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3464:72:
15381 continue 2055
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3465:72:
15361 continue 2055
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3466:72:
b(l,:)=b(l,:)-s 2056
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3467:72:
jb=ix(l) 2056
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3468:72:
je=ix(l+1)-1 2057
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3469:72:
sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l) 2058
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3470:72:
b0=b0+s*xb(l)/xs(l) 2059
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3471:72:
15351 continue 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3472:72:
15352 continue 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3473:72:
sc=sc+b0 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3474:72:
sc=exp(sc) 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3475:72:
sxp=sxp*sc 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3476:72:
15390 do 15391 ic=1,nc 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3477:72:
q(:,ic)=q(:,ic)*sc 2060
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3478:72:
15391 continue 2061
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3479:72:
15392 continue 2061
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3480:72:
if(jxx.gt.0)goto 14972 2061
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3481:72:
if(ig.eq.0)goto 14972 2062
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3482:72:
if(ixx .ne. 0)goto 15411 2063
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3483:72:
15420 do 15421 j=1,ni 2063
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3484:72:
if(iy(j).eq.1)goto 15421 2063
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3485:72:
if(ju(j).eq.0)goto 15421 2063
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3486:72:
ga(j)=0.0 2063
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3487:72:
15421 continue 2064
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3488:72:
15422 continue 2064
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3489:72:
15430 do 15431 ic=1,nc 2064
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3490:72:
v=q(:,ic)/sxp 2064
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3491:72:
r=w*(y(:,ic)-v) 2064
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3492:72:
v=w*v*(1.0-v) 2065
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3493:72:
15440 do 15441 j=1,ni 2065
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3494:72:
if(iy(j).eq.1)goto 15441 2065
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3495:72:
if(ju(j).eq.0)goto 15441 2066
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3496:72:
jb=ix(j) 2066
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3497:72:
je=ix(j+1)-1 2066
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3498:72:
jn=ix(j+1)-ix(j) 2067
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3499:72:
sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je)) 2068
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3500:72:
gj=dot_product(sc(1:jn),x(jb:je)) 2069
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3501:72:
ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j)) 2070
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3502:72:
15441 continue 2071
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3503:72:
15442 continue 2071
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3504:72:
15431 continue 2072
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3505:72:
15432 continue 2072
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3506:72:
15450 do 15451 k=1,ni 2072
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3507:72:
if(iy(k).eq.1)goto 15451 2072
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3508:72:
if(ju(k).eq.0)goto 15451 2073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3509:72:
if(ga(k) .le. al1*vp(k))goto 15471 2073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3510:72:
iy(k)=1 2073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3511:72:
ixx=1 2073
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3512:72:
15471 continue 2074
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3513:72:
15451 continue 2075
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3514:72:
15452 continue 2075
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3515:72:
if(ixx.eq.1) go to 10680 2076
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3516:72:
goto 14972 2077
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3517:72:
15411 continue 2078
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3518:72:
goto 14971 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3519:72:
14972 continue 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3520:72:
if(jxx .le. 0)goto 15491 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3521:72:
jerr=-10000-ilm 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3522:72:
goto 14892 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3523:72:
15491 continue 2079
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3524:72:
devi=0.0 2080
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3525:72:
15500 do 15501 ic=1,nc 2081
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3526:72:
if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic) 2081
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3527:72:
a0(ic,ilm)=b(0,ic) 2082
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3528:72:
15510 do 15511 i=1,no 2082
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3529:72:
if(y(i,ic).le.0.0)goto 15511 2083
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3530:72:
devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i)) 2084
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3531:72:
15511 continue 2085
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3532:72:
15512 continue 2085
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3533:72:
15501 continue 2086
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3534:72:
15502 continue 2086
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3535:72:
kin(ilm)=nin 2086
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3536:72:
alm(ilm)=al 2086
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3537:72:
lmu=ilm 2087
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3538:72:
dev(ilm)=(dev1-devi)/dev0 2087
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3539:72:
if(ig.eq.0)goto 14892 2088
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3540:72:
if(ilm.lt.mnl)goto 14891 2088
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3541:72:
if(flmin.ge.1.0)goto 14891 2089
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3542:72:
if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892 2090
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3543:72:
if(dev(ilm).gt.devmax)goto 14892 2090
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3544:72:
if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892 2091
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3545:72:
14891 continue 2092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3546:72:
14892 continue 2092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3547:72:
g=log(q) 2092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3548:72:
15520 do 15521 i=1,no 2092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3549:72:
g(i,:)=g(i,:)-sum(g(i,:))/nc 2092
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3550:72:
15521 continue 2093
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3551:72:
15522 continue 2093
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3552:72:
deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy) 2094
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3553:72:
return 2095
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3554:72:
end 2096
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3555:72:
subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f) 2097
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3556:72:
real a0(nc),ca(nx,nc),x(*),f(nc,n) 2097
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3557:72:
integer ia(*),ix(*),jx(*) 2098
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3558:72:
15530 do 15531 ic=1,nc 2098
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3559:72:
f(ic,:)=a0(ic) 2098
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3560:72:
15531 continue 2099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3561:72:
15532 continue 2099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3562:72:
15540 do 15541 j=1,nin 2099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3563:72:
k=ia(j) 2099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3564:72:
kb=ix(k) 2099
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3565:72:
ke=ix(k+1)-1 2100
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3566:72:
15550 do 15551 ic=1,nc 2100
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3567:72:
f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke) 2100
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3568:72:
15551 continue 2101
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3569:72:
15552 continue 2101
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3570:72:
15541 continue 2102
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3571:72:
15542 continue 2102
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3572:72:
return 2103
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3573:72:
end 2104
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3574:72:
subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula 2106
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3576:72:
real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam) 2107
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3577:72:
real ca(nx,nlam),dev(nlam),alm(nlam) 2108
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3578:72:
integer jd(*),ia(nx),nin(nlam) 2109
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3581:72:
if(maxval(vp) .gt. 0.0)goto 15571 2113
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3582:72:
jerr=10000 2113
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3583:72:
return 2113
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3584:72:
15571 continue 2114
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3585:72:
allocate(ww(1:no),stat=jerr) 2115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3586:72:
allocate(ju(1:ni),stat=ierr) 2115
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3587:72:
jerr=jerr+ierr 2116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3588:72:
allocate(vq(1:ni),stat=ierr) 2116
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3589:72:
jerr=jerr+ierr 2117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3590:72:
if(isd .le. 0)goto 15591 2117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3591:72:
allocate(xs(1:ni),stat=ierr) 2117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3592:72:
jerr=jerr+ierr 2117
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3593:72:
15591 continue 2118
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3594:72:
if(jerr.ne.0) return 2119
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3595:72:
call chkvars(no,ni,x,ju) 2120
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3596:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3597:72:
if(maxval(ju) .gt. 0)goto 15611 2121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3598:72:
jerr=7777 2121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3599:72:
return 2121
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3600:72:
15611 continue 2122
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3601:72:
vq=max(0.0,vp) 2122
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3602:72:
vq=vq*ni/sum(vq) 2123
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3603:72:
ww=max(0.0,w) 2123
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3604:72:
sw=sum(ww) 2124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3605:72:
if(sw .gt. 0.0)goto 15631 2124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3606:72:
jerr=9999 2124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3607:72:
return 2124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3608:72:
15631 continue 2124
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3609:72:
ww=ww/sw 2125
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3610:72:
call cstandard(no,ni,x,ww,ju,isd,xs) 2126
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3611:72:
call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr 2128
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3613:72:
if(jerr.gt.0) return 2128
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3614:72:
dev0=2.0*sw*dev0 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3615:72:
if(isd .le. 0)goto 15651 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3616:72:
15660 do 15661 k=1,lmu 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3617:72:
nk=nin(k) 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3618:72:
ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3619:72:
15661 continue 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3620:72:
15662 continue 2129
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3621:72:
15651 continue 2130
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3622:72:
deallocate(ww,ju,vq) 2130
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3623:72:
if(isd.gt.0) deallocate(xs) 2131
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3624:72:
return 2132
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3625:72:
end 2133
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3626:72:
subroutine cstandard (no,ni,x,w,ju,isd,xs) 2134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3627:72:
real x(no,ni),w(no),xs(ni) 2134
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3628:72:
integer ju(ni) 2135
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3629:72:
15670 do 15671 j=1,ni 2135
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3630:72:
if(ju(j).eq.0)goto 15671 2136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3631:72:
xm=dot_product(w,x(:,j)) 2136
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3632:72:
x(:,j)=x(:,j)-xm 2137
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3633:72:
if(isd .le. 0)goto 15691 2137
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3634:72:
xs(j)=sqrt(dot_product(w,x(:,j)**2)) 2137
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3635:72:
x(:,j)=x(:,j)/xs(j) 2137
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3636:72:
15691 continue 2138
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3637:72:
15671 continue 2139
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3638:72:
15672 continue 2139
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3639:72:
return 2140
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3640:72:
end 2141
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3641:72:
subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula 2143
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3643:72:
parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99) 2144
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3644:72:
real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam) 2145
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3645:72:
real ao(nx,nlam),dev(nlam),alm(nlam) 2146
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3646:72:
integer ju(ni),m(nx),kin(nlam) 2147
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3650:72:
allocate(e(1:no),stat=jerr) 2153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3651:72:
allocate(uu(1:no),stat=ierr) 2153
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3652:72:
jerr=jerr+ierr 2154
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3653:72:
allocate(f(1:no),stat=ierr) 2154
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3654:72:
jerr=jerr+ierr 2155
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3655:72:
allocate(w(1:no),stat=ierr) 2155
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3656:72:
jerr=jerr+ierr 2156
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3657:72:
allocate(v(1:ni),stat=ierr) 2156
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3658:72:
jerr=jerr+ierr 2157
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3659:72:
allocate(a(1:ni),stat=ierr) 2157
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3660:72:
jerr=jerr+ierr 2158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3661:72:
allocate(as(1:ni),stat=ierr) 2158
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3662:72:
jerr=jerr+ierr 2159
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3663:72:
allocate(xs(1:ni),stat=ierr) 2159
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3664:72:
jerr=jerr+ierr 2160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3665:72:
allocate(ga(1:ni),stat=ierr) 2160
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3666:72:
jerr=jerr+ierr 2161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3667:72:
allocate(ixx(1:ni),stat=ierr) 2161
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3668:72:
jerr=jerr+ierr 2162
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3669:72:
allocate(jp(1:no),stat=ierr) 2162
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3670:72:
jerr=jerr+ierr 2163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3671:72:
allocate(kp(1:no),stat=ierr) 2163
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3672:72:
jerr=jerr+ierr 2164
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3673:72:
allocate(dk(1:no),stat=ierr) 2164
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3674:72:
jerr=jerr+ierr 2165
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3675:72:
allocate(wr(1:no),stat=ierr) 2165
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3676:72:
jerr=jerr+ierr 2166
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3677:72:
allocate(dq(1:no),stat=ierr) 2166
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3678:72:
jerr=jerr+ierr 2167
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3679:72:
allocate(mm(1:ni),stat=ierr) 2167
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3680:72:
jerr=jerr+ierr 2168
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3681:72:
if(jerr.ne.0)go to 11790 2169
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3682:72:
call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3683:72:
if(jerr.ne.0) go to 11790 2170
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3684:72:
alpha=parm 2171
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3685:72:
oma=1.0-alpha 2171
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3686:72:
nlm=0 2171
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3687:72:
ixx=0 2171
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3688:72:
al=0.0 2172
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3689:72:
dq=d*q 2172
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3690:72:
call died(no,nk,dq,kp,jp,dk) 2173
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3691:72:
a=0.0 2173
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3692:72:
f(1)=0.0 2173
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3693:72:
fmax=log(huge(f(1))*0.1) 2174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3694:72:
if(nonzero(no,g) .eq. 0)goto 15711 2174
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3695:72:
f=g-dot_product(q,g) 2175
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3696:72:
e=q*exp(sign(min(abs(f),fmax),f)) 2176
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3697:72:
goto 15721 2177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3698:72:
15711 continue 2177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3699:72:
f=0.0 2177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3700:72:
e=q 2177
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3701:72:
15721 continue 2178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3702:72:
15701 continue 2178
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3703:72:
r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu) 2179
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3704:72:
rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0) 2179
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3705:72:
dev0=rr 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3706:72:
15730 do 15731 i=1,no 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3707:72:
if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3708:72:
w(i)=0.0 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3709:72:
wr(i)=w(i) 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3710:72:
15751 continue 2180
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3711:72:
15731 continue 2181
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3712:72:
15732 continue 2181
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3713:72:
call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu) 2182
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3714:72:
if(jerr.ne.0) go to 11790 2183
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3715:72:
if(flmin .ge. 1.0)goto 15771 2183
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3716:72:
eqs=max(eps,flmin) 2183
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3717:72:
alf=eqs**(1.0/(nlam-1)) 2183
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3718:72:
15771 continue 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3719:72:
m=0 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3720:72:
mm=0 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3721:72:
nlp=0 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3722:72:
nin=nlp 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3723:72:
mnl=min(mnlam,nlam) 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3724:72:
as=0.0 2184
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3725:72:
cthr=cthri*dev0 2185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3726:72:
15780 do 15781 j=1,ni 2185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3727:72:
if(ju(j).eq.0)goto 15781 2185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3728:72:
ga(j)=abs(dot_product(wr,x(:,j))) 2185
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3729:72:
15781 continue 2186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3730:72:
15782 continue 2186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3731:72:
15790 do 15791 ilm=1,nlam 2186
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3732:72:
al0=al 2187
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3733:72:
if(flmin .lt. 1.0)goto 15811 2187
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3734:72:
al=ulam(ilm) 2187
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3735:72:
goto 15801 2188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3736:72:
15811 if(ilm .le. 2)goto 15821 2188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3737:72:
al=al*alf 2188
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3738:72:
goto 15801 2189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3739:72:
15821 if(ilm .ne. 1)goto 15831 2189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3740:72:
al=big 2189
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3741:72:
goto 15841 2190
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3742:72:
15831 continue 2190
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3743:72:
al0=0.0 2191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3744:72:
15850 do 15851 j=1,ni 2191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3745:72:
if(ju(j).eq.0)goto 15851 2191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3746:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2191
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3747:72:
15851 continue 2192
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3748:72:
15852 continue 2192
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3749:72:
al0=al0/max(parm,1.0e-3) 2192
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3750:72:
al=alf*al0 2193
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3751:72:
15841 continue 2194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3752:72:
15801 continue 2194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3753:72:
sa=alpha*al 2194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3754:72:
omal=oma*al 2194
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3755:72:
tlam=alpha*(2.0*al-al0) 2195
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3756:72:
15860 do 15861 k=1,ni 2195
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3757:72:
if(ixx(k).eq.1)goto 15861 2195
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3758:72:
if(ju(k).eq.0)goto 15861 2196
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3759:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2197
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3760:72:
15861 continue 2198
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3761:72:
15862 continue 2198
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3762:72:
10680 continue 2199
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3763:72:
15870 continue 2199
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3764:72:
15871 continue 2199
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3765:72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2200
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3766:72:
call vars(no,ni,x,w,ixx,v) 2201
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3767:72:
15880 continue 2201
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3768:72:
15881 continue 2201
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3769:72:
nlp=nlp+1 2201
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3770:72:
dli=0.0 2202
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3771:72:
15890 do 15891 j=1,ni 2202
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3772:72:
if(ixx(j).eq.0)goto 15891 2203
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3773:72:
u=a(j)*v(j)+dot_product(wr,x(:,j)) 2204
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3774:72:
if(abs(u) .gt. vp(j)*sa)goto 15911 2204
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3775:72:
at=0.0 2204
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3776:72:
goto 15921 2205
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3777:72:
15911 continue 2205
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3778:72:
at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal) 2205
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3779:72:
15921 continue 2206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3780:72:
15901 continue 2206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3781:72:
if(at .eq. a(j))goto 15941 2206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3782:72:
del=at-a(j) 2206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3783:72:
a(j)=at 2206
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3784:72:
dli=max(dli,v(j)*del**2) 2207
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3785:72:
wr=wr-del*w*x(:,j) 2207
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3786:72:
f=f+del*x(:,j) 2208
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3787:72:
if(mm(j) .ne. 0)goto 15961 2208
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3788:72:
nin=nin+1 2208
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3789:72:
if(nin.gt.nx)goto 15892 2209
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3790:72:
mm(j)=nin 2209
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3791:72:
m(nin)=j 2210
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3792:72:
15961 continue 2211
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3793:72:
15941 continue 2212
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3794:72:
15891 continue 2213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3795:72:
15892 continue 2213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3796:72:
if(nin.gt.nx)goto 15882 2213
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3797:72:
if(dli.lt.cthr)goto 15882 2214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3798:72:
if(nlp .le. maxit)goto 15981 2214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3799:72:
jerr=-ilm 2214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3800:72:
return 2214
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3801:72:
15981 continue 2215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3802:72:
15990 continue 2215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3803:72:
15991 continue 2215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3804:72:
nlp=nlp+1 2215
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3805:72:
dli=0.0 2216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3806:72:
16000 do 16001 l=1,nin 2216
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3807:72:
j=m(l) 2217
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3808:72:
u=a(j)*v(j)+dot_product(wr,x(:,j)) 2218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3809:72:
if(abs(u) .gt. vp(j)*sa)goto 16021 2218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3810:72:
at=0.0 2218
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3811:72:
goto 16031 2219
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3812:72:
16021 continue 2219
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3813:72:
at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal) 2219
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3814:72:
16031 continue 2220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3815:72:
16011 continue 2220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3816:72:
if(at .eq. a(j))goto 16051 2220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3817:72:
del=at-a(j) 2220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3818:72:
a(j)=at 2220
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3819:72:
dli=max(dli,v(j)*del**2) 2221
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3820:72:
wr=wr-del*w*x(:,j) 2221
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3821:72:
f=f+del*x(:,j) 2222
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3822:72:
16051 continue 2223
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3823:72:
16001 continue 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3824:72:
16002 continue 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3825:72:
if(dli.lt.cthr)goto 15992 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3826:72:
if(nlp .le. maxit)goto 16071 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3827:72:
jerr=-ilm 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3828:72:
return 2224
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3829:72:
16071 continue 2225
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3830:72:
goto 15991 2226
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3831:72:
15992 continue 2226
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3832:72:
goto 15881 2227
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3833:72:
15882 continue 2227
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3834:72:
if(nin.gt.nx)goto 15872 2228
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3835:72:
e=q*exp(sign(min(abs(f),fmax),f)) 2229
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3836:72:
call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu) 2230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3837:72:
if(jerr .eq. 0)goto 16091 2230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3838:72:
jerr=jerr-ilm 2230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3839:72:
go to 11790 2230
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3840:72:
16091 continue 2231
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3841:72:
ix=0 2232
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3842:72:
16100 do 16101 j=1,nin 2232
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3843:72:
k=m(j) 2233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3844:72:
if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101 2233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3845:72:
ix=1 2233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3846:72:
goto 16102 2233
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3847:72:
16101 continue 2234
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3848:72:
16102 continue 2234
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3849:72:
if(ix .ne. 0)goto 16121 2235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3850:72:
16130 do 16131 k=1,ni 2235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3851:72:
if(ixx(k).eq.1)goto 16131 2235
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3852:72:
if(ju(k).eq.0)goto 16131 2236
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3853:72:
ga(k)=abs(dot_product(wr,x(:,k))) 2237
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3854:72:
if(ga(k) .le. sa*vp(k))goto 16151 2237
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3855:72:
ixx(k)=1 2237
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3856:72:
ix=1 2237
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3857:72:
16151 continue 2238
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3858:72:
16131 continue 2239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3859:72:
16132 continue 2239
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3860:72:
if(ix.eq.1) go to 10680 2240
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3861:72:
goto 15872 2241
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3862:72:
16121 continue 2242
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3863:72:
goto 15871 2243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3864:72:
15872 continue 2243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3865:72:
if(nin .le. nx)goto 16171 2243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3866:72:
jerr=-10000-ilm 2243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3867:72:
goto 15792 2243
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3868:72:
16171 continue 2244
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3869:72:
if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin)) 2244
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3870:72:
kin(ilm)=nin 2245
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3871:72:
alm(ilm)=al 2245
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3872:72:
lmu=ilm 2246
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3873:72:
dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr 2247
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3874:72:
if(ilm.lt.mnl)goto 15791 2247
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3875:72:
if(flmin.ge.1.0)goto 15791 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3876:72:
me=0 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3877:72:
16180 do 16181 j=1,nin 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3878:72:
if(ao(j,ilm).ne.0.0) me=me+1 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3879:72:
16181 continue 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3880:72:
16182 continue 2248
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3881:72:
if(me.gt.ne)goto 15792 2249
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3882:72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792 2250
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3883:72:
if(dev(ilm).gt.devmax)goto 15792 2251
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3884:72:
15791 continue 2252
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3885:72:
15792 continue 2252
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3886:72:
g=f 2253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3887:72:
11790 continue 2253
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3888:72:
deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx) 2254
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3889:72:
return 2255
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3890:72:
end 2256
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3891:72:
subroutine cxmodval(ca,ia,nin,n,x,f) 2257
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3892:72:
real ca(nin),x(n,*),f(n) 2257
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3893:72:
integer ia(nin) 2258
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3894:72:
f=0.0 2258
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3895:72:
if(nin.le.0) return 2259
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3896:72:
16190 do 16191 i=1,n 2259
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3897:72:
f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin))) 2259
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3898:72:
16191 continue 2260
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3899:72:
16192 continue 2260
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3900:72:
return 2261
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3901:72:
end 2262
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3902:72:
subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr) 2263
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3903:72:
real y(no),d(no),q(no) 2263
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3904:72:
integer jp(no),kp(*) 2264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3905:72:
16200 do 16201 j=1,no 2264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3906:72:
jp(j)=j 2264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3907:72:
16201 continue 2264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3908:72:
16202 continue 2264
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3909:72:
call psort7(y,jp,1,no) 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3910:72:
nj=0 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3911:72:
16210 do 16211 j=1,no 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3912:72:
if(q(jp(j)).le.0.0)goto 16211 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3913:72:
nj=nj+1 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3914:72:
jp(nj)=jp(j) 2265
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3915:72:
16211 continue 2266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3916:72:
16212 continue 2266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3917:72:
if(nj .ne. 0)goto 16231 2266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3918:72:
jerr=20000 2266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3919:72:
return 2266
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3920:72:
16231 continue 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3921:72:
j=1 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3922:72:
16240 continue 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3923:72:
16241 if(d(jp(j)).gt.0.0)goto 16242 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3924:72:
j=j+1 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3925:72:
if(j.gt.nj)goto 16242 2267
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3926:72:
goto 16241 2268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3927:72:
16242 continue 2268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3928:72:
if(j .lt. nj-1)goto 16261 2268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3929:72:
jerr=30000 2268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3930:72:
return 2268
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3931:72:
16261 continue 2269
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3932:72:
j0=j-1 2269
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3933:72:
nj=nj-j0 2269
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3934:72:
16270 do 16271 j=1,nj 2269
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3935:72:
jp(j)=jp(j+j0) 2269
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3936:72:
16271 continue 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3937:72:
16272 continue 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3938:72:
jerr=0 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3939:72:
nk=0 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3940:72:
t0=y(jp(1)) 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3941:72:
yk=t0 2270
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3942:72:
j=2 2271
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3943:72:
16280 continue 2271
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3944:72:
16281 continue 2271
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3945:72:
16290 continue 2272
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3946:72:
16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292 2272
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3947:72:
j=j+1 2272
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3948:72:
if(j.gt.nj)goto 16292 2272
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3949:72:
goto 16291 2273
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3950:72:
16292 continue 2273
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3951:72:
nk=nk+1 2273
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3952:72:
kp(nk)=j-1 2273
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3953:72:
if(j.gt.nj)goto 16282 2274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3954:72:
if(j .ne. nj)goto 16311 2274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3955:72:
nk=nk+1 2274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3956:72:
kp(nk)=nj 2274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3957:72:
goto 16282 2274
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3958:72:
16311 continue 2275
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3959:72:
yk=y(jp(j)) 2275
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3960:72:
j=j+1 2276
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3961:72:
goto 16281 2277
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3962:72:
16282 continue 2277
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3963:72:
return 2278
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3964:72:
end 2279
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3965:72:
subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u) 2280
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3966:72:
real d(no),dk(nk),wr(no),w(no) 2281
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3967:72:
real e(no),u(no),b,c 2281
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3968:72:
integer kp(nk),jp(no) 2282
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3969:72:
call usk(no,nk,kp,jp,e,u) 2283
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3970:72:
b=dk(1)/u(1) 2283
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3971:72:
c=dk(1)/u(1)**2 2283
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3972:72:
jerr=0 2284
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3973:72:
16320 do 16321 j=1,kp(1) 2284
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3974:72:
i=jp(j) 2285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3975:72:
w(i)=e(i)*(b-e(i)*c) 2285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3976:72:
if(w(i) .gt. 0.0)goto 16341 2285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3977:72:
jerr=-3 2285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3978:72:
return 2285
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3979:72:
16341 continue 2286
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3980:72:
wr(i)=d(i)-e(i)*b 2287
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3981:72:
16321 continue 2288
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3982:72:
16322 continue 2288
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3983:72:
16350 do 16351 k=2,nk 2288
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3984:72:
j1=kp(k-1)+1 2288
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3985:72:
j2=kp(k) 2289
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3986:72:
b=b+dk(k)/u(k) 2289
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3987:72:
c=c+dk(k)/u(k)**2 2290
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3988:72:
16360 do 16361 j=j1,j2 2290
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3989:72:
i=jp(j) 2291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3990:72:
w(i)=e(i)*(b-e(i)*c) 2291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3991:72:
if(w(i) .gt. 0.0)goto 16381 2291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3992:72:
jerr=-30000 2291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3993:72:
return 2291
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3994:72:
16381 continue 2292
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3995:72:
wr(i)=d(i)-e(i)*b 2293
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3996:72:
16361 continue 2294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3997:72:
16362 continue 2294
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3998:72:
16351 continue 2295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3999:72:
16352 continue 2295
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4000:72:
return 2296
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4001:72:
end 2297
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4002:72:
subroutine vars(no,ni,x,w,ixx,v) 2298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4003:72:
real x(no,ni),w(no),v(ni) 2298
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4004:72:
integer ixx(ni) 2299
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4005:72:
16390 do 16391 j=1,ni 2299
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4006:72:
if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2) 2299
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4007:72:
16391 continue 2300
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4008:72:
16392 continue 2300
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4009:72:
return 2301
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4010:72:
end 2302
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4011:72:
subroutine died(no,nk,d,kp,jp,dk) 2303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4012:72:
real d(no),dk(nk) 2303
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4013:72:
integer kp(nk),jp(no) 2304
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4014:72:
dk(1)=sum(d(jp(1:kp(1)))) 2305
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4015:72:
16400 do 16401 k=2,nk 2305
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4016:72:
dk(k)=sum(d(jp((kp(k-1)+1):kp(k)))) 2305
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4017:72:
16401 continue 2306
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4018:72:
16402 continue 2306
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4019:72:
return 2307
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4020:72:
end 2308
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4021:72:
subroutine usk(no,nk,kp,jp,e,u) 2309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4022:72:
real e(no),u(nk),h 2309
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4023:72:
integer kp(nk),jp(no) 2310
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4024:72:
h=0.0 2311
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4025:72:
16410 do 16411 k=nk,1,-1 2311
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4026:72:
j2=kp(k) 2312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4027:72:
j1=1 2312
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4028:72:
if(k.gt.1) j1=kp(k-1)+1 2313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4029:72:
16420 do 16421 j=j2,j1,-1 2313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4030:72:
h=h+e(jp(j)) 2313
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4031:72:
16421 continue 2314
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4032:72:
16422 continue 2314
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4033:72:
u(k)=h 2315
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4034:72:
16411 continue 2316
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4035:72:
16412 continue 2316
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4036:72:
return 2317
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4037:72:
end 2318
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4038:72:
function risk(no,ni,nk,d,dk,f,e,kp,jp,u) 2319
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4039:72:
real d(no),dk(nk),f(no) 2320
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4040:72:
integer kp(nk),jp(no) 2320
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4041:72:
real e(no),u(nk),s 2321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4042:72:
call usk(no,nk,kp,jp,e,u) 2321
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4043:72:
u=log(u) 2322
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4044:72:
risk=dot_product(d,f)-dot_product(dk,u) 2323
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4045:72:
return 2324
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4046:72:
end 2325
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4047:72:
subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr) 2326
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4048:72:
real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam) 2327
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4052:72:
allocate(e(1:no),stat=jerr) 2333
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4053:72:
allocate(q(1:no),stat=ierr) 2333
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4054:72:
jerr=jerr+ierr 2334
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4055:72:
allocate(uu(1:no),stat=ierr) 2334
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4056:72:
jerr=jerr+ierr 2335
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4057:72:
allocate(f(1:no),stat=ierr) 2335
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4058:72:
jerr=jerr+ierr 2336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4059:72:
allocate(dk(1:no),stat=ierr) 2336
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4060:72:
jerr=jerr+ierr 2337
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4061:72:
allocate(jp(1:no),stat=ierr) 2337
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4062:72:
jerr=jerr+ierr 2338
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4063:72:
allocate(kp(1:no),stat=ierr) 2338
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4064:72:
jerr=jerr+ierr 2339
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4065:72:
allocate(dq(1:no),stat=ierr) 2339
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4066:72:
jerr=jerr+ierr 2340
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4067:72:
allocate(xm(1:ni),stat=ierr) 2340
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4068:72:
jerr=jerr+ierr 2341
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4069:72:
if(jerr.ne.0) go to 11790 2342
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4070:72:
q=max(0.0,w) 2342
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4071:72:
sw=sum(q) 2343
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4072:72:
if(sw .gt. 0.0)goto 16441 2343
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4073:72:
jerr=9999 2343
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4074:72:
go to 11790 2343
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4075:72:
16441 continue 2344
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4076:72:
call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4077:72:
if(jerr.ne.0) go to 11790 2345
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4078:72:
fmax=log(huge(e(1))*0.1) 2346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4079:72:
dq=d*q 2346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4080:72:
call died(no,nk,dq,kp,jp,dk) 2346
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4081:72:
gm=dot_product(q,g)/sw 2347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4082:72:
16450 do 16451 j=1,ni 2347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4083:72:
xm(j)=dot_product(q,x(:,j))/sw 2347
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4084:72:
16451 continue 2348
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4085:72:
16452 continue 2348
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4086:72:
16460 do 16461 lam=1,nlam 2349
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4087:72:
16470 do 16471 i=1,no 2349
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4088:72:
f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm)) 2350
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4089:72:
e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i))) 2351
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4090:72:
16471 continue 2352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4091:72:
16472 continue 2352
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4092:72:
flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu) 2353
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4093:72:
16461 continue 2354
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4094:72:
16462 continue 2354
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4095:72:
11790 continue 2354
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4096:72:
deallocate(e,uu,dk,f,jp,kp,dq) 2355
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4097:72:
return 2356
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4098:72:
end 2357
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4099:72:
subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam 2359
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4101:72:
real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam) 2360
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4102:72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2361
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4103:72:
integer jd(*),ia(nx),nin(nlam) 2362
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4106:72:
if(maxval(vp) .gt. 0.0)goto 16491 2366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4107:72:
jerr=10000 2366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4108:72:
return 2366
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4109:72:
16491 continue 2367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4110:72:
if(minval(y) .ge. 0.0)goto 16511 2367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4111:72:
jerr=8888 2367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4112:72:
return 2367
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4113:72:
16511 continue 2368
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4114:72:
allocate(ww(1:no),stat=jerr) 2369
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4115:72:
allocate(ju(1:ni),stat=ierr) 2369
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4116:72:
jerr=jerr+ierr 2370
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4117:72:
allocate(vq(1:ni),stat=ierr) 2370
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4118:72:
jerr=jerr+ierr 2371
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4119:72:
allocate(xm(1:ni),stat=ierr) 2371
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4120:72:
jerr=jerr+ierr 2372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4121:72:
if(isd .le. 0)goto 16531 2372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4122:72:
allocate(xs(1:ni),stat=ierr) 2372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4123:72:
jerr=jerr+ierr 2372
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4124:72:
16531 continue 2373
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4125:72:
if(jerr.ne.0) return 2374
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4126:72:
call chkvars(no,ni,x,ju) 2375
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4127:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4128:72:
if(maxval(ju) .gt. 0)goto 16551 2376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4129:72:
jerr=7777 2376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4130:72:
go to 11790 2376
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4131:72:
16551 continue 2377
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4132:72:
vq=max(0.0,vp) 2377
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4133:72:
vq=vq*ni/sum(vq) 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4134:72:
ww=max(0.0,w) 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4135:72:
sw=sum(ww) 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4136:72:
if(sw .gt. 0.0)goto 16571 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4137:72:
jerr=9999 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4138:72:
go to 11790 2378
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4139:72:
16571 continue 2379
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4140:72:
ww=ww/sw 2380
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4141:72:
call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 2381
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4142:72:
call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr, 2383
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4144:72:
if(jerr.gt.0) go to 11790 2383
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4145:72:
dev0=2.0*sw*dev0 2384
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4146:72:
16580 do 16581 k=1,lmu 2384
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4147:72:
nk=nin(k) 2385
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4148:72:
if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2386
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4149:72:
a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk))) 2387
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4150:72:
16581 continue 2388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4151:72:
16582 continue 2388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4152:72:
11790 continue 2388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4153:72:
deallocate(ww,ju,vq,xm) 2388
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4154:72:
if(isd.gt.0) deallocate(xs) 2389
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4155:72:
return 2390
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4156:72:
end 2391
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4157:72:
subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam 2393
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4159:72:
parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99 2394
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4161:72:
real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam) 2395
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4162:72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2396
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4163:72:
integer ju(ni),m(nx),kin(nlam) 2397
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4166:72:
allocate(a(1:ni),stat=jerr) 2402
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4167:72:
allocate(as(1:ni),stat=ierr) 2402
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4168:72:
jerr=jerr+ierr 2403
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4169:72:
allocate(t(1:no),stat=ierr) 2403
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4170:72:
jerr=jerr+ierr 2404
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4171:72:
allocate(mm(1:ni),stat=ierr) 2404
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4172:72:
jerr=jerr+ierr 2405
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4173:72:
allocate(ga(1:ni),stat=ierr) 2405
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4174:72:
jerr=jerr+ierr 2406
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4175:72:
allocate(ixx(1:ni),stat=ierr) 2406
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4176:72:
jerr=jerr+ierr 2407
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4177:72:
allocate(wr(1:no),stat=ierr) 2407
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4178:72:
jerr=jerr+ierr 2408
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4179:72:
allocate(v(1:ni),stat=ierr) 2408
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4180:72:
jerr=jerr+ierr 2409
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4181:72:
allocate(w(1:no),stat=ierr) 2409
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4182:72:
jerr=jerr+ierr 2410
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4183:72:
allocate(f(1:no),stat=ierr) 2410
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4184:72:
jerr=jerr+ierr 2411
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4185:72:
if(jerr.ne.0) return 2412
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4186:72:
bta=parm 2412
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4187:72:
omb=1.0-bta 2413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4188:72:
t=q*y 2413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4189:72:
yb=sum(t) 2413
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4190:72:
fmax=log(huge(bta)*0.1) 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4191:72:
if(nonzero(no,g) .ne. 0)goto 16601 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4192:72:
w=q*yb 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4193:72:
az=log(yb) 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4194:72:
f=az 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4195:72:
dv0=yb*(log(yb)-1.0) 2414
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4196:72:
goto 16611 2415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4197:72:
16601 continue 2415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4198:72:
w=q*exp(sign(min(abs(g),fmax),g)) 2415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4199:72:
v0=sum(w) 2415
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4200:72:
eaz=yb/v0 2416
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4201:72:
w=eaz*w 2416
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4202:72:
az=log(eaz) 2416
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4203:72:
f=az+g 2417
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4204:72:
dv0=dot_product(t,g)-yb*(1.0-az) 2418
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4205:72:
16611 continue 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4206:72:
16591 continue 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4207:72:
a=0.0 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4208:72:
as=0.0 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4209:72:
wr=t-w 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4210:72:
v0=yb 2419
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4211:72:
dvr=-yb 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4212:72:
16620 do 16621 i=1,no 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4213:72:
if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i)) 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4214:72:
16621 continue 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4215:72:
16622 continue 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4216:72:
dvr=dvr-dv0 2420
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4217:72:
dev0=dvr 2421
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4218:72:
if(flmin .ge. 1.0)goto 16641 2421
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4219:72:
eqs=max(eps,flmin) 2421
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4220:72:
alf=eqs**(1.0/(nlam-1)) 2421
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4221:72:
16641 continue 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4222:72:
m=0 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4223:72:
mm=0 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4224:72:
nlp=0 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4225:72:
nin=nlp 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4226:72:
mnl=min(mnlam,nlam) 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4227:72:
shr=shri*dev0 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4228:72:
ixx=0 2422
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4229:72:
al=0.0 2423
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4230:72:
16650 do 16651 j=1,ni 2423
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4231:72:
if(ju(j).eq.0)goto 16651 2423
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4232:72:
ga(j)=abs(dot_product(wr,x(:,j))) 2423
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4233:72:
16651 continue 2424
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4234:72:
16652 continue 2424
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4235:72:
16660 do 16661 ilm=1,nlam 2424
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4236:72:
al0=al 2425
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4237:72:
if(flmin .lt. 1.0)goto 16681 2425
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4238:72:
al=ulam(ilm) 2425
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4239:72:
goto 16671 2426
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4240:72:
16681 if(ilm .le. 2)goto 16691 2426
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4241:72:
al=al*alf 2426
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4242:72:
goto 16671 2427
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4243:72:
16691 if(ilm .ne. 1)goto 16701 2427
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4244:72:
al=big 2427
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4245:72:
goto 16711 2428
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4246:72:
16701 continue 2428
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4247:72:
al0=0.0 2429
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4248:72:
16720 do 16721 j=1,ni 2429
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4249:72:
if(ju(j).eq.0)goto 16721 2429
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4250:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2429
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4251:72:
16721 continue 2430
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4252:72:
16722 continue 2430
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4253:72:
al0=al0/max(bta,1.0e-3) 2430
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4254:72:
al=alf*al0 2431
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4255:72:
16711 continue 2432
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4256:72:
16671 continue 2432
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4257:72:
al2=al*omb 2432
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4258:72:
al1=al*bta 2432
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4259:72:
tlam=bta*(2.0*al-al0) 2433
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4260:72:
16730 do 16731 k=1,ni 2433
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4261:72:
if(ixx(k).eq.1)goto 16731 2433
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4262:72:
if(ju(k).eq.0)goto 16731 2434
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4263:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2435
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4264:72:
16731 continue 2436
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4265:72:
16732 continue 2436
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4266:72:
10680 continue 2437
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4267:72:
16740 continue 2437
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4268:72:
16741 continue 2437
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4269:72:
az0=az 2438
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4270:72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2439
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4271:72:
16750 do 16751 j=1,ni 2439
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4272:72:
if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2) 2439
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4273:72:
16751 continue 2440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4274:72:
16752 continue 2440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4275:72:
16760 continue 2440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4276:72:
16761 continue 2440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4277:72:
nlp=nlp+1 2440
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4278:72:
dlx=0.0 2441
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4279:72:
16770 do 16771 k=1,ni 2441
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4280:72:
if(ixx(k).eq.0)goto 16771 2441
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4281:72:
ak=a(k) 2442
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4282:72:
u=dot_product(wr,x(:,k))+v(k)*ak 2442
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4283:72:
au=abs(u)-vp(k)*al1 2443
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4284:72:
if(au .gt. 0.0)goto 16791 2443
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4285:72:
a(k)=0.0 2443
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4286:72:
goto 16801 2444
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4287:72:
16791 continue 2444
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4288:72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2444
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4289:72:
16801 continue 2445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4290:72:
16781 continue 2445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4291:72:
if(a(k).eq.ak)goto 16771 2445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4292:72:
d=a(k)-ak 2445
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4293:72:
dlx=max(dlx,v(k)*d**2) 2446
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4294:72:
wr=wr-d*w*x(:,k) 2446
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4295:72:
f=f+d*x(:,k) 2447
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4296:72:
if(mm(k) .ne. 0)goto 16821 2447
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4297:72:
nin=nin+1 2447
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4298:72:
if(nin.gt.nx)goto 16772 2448
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4299:72:
mm(k)=nin 2448
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4300:72:
m(nin)=k 2449
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4301:72:
16821 continue 2450
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4302:72:
16771 continue 2451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4303:72:
16772 continue 2451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4304:72:
if(nin.gt.nx)goto 16762 2451
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4305:72:
d=sum(wr)/v0 2452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4306:72:
az=az+d 2452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4307:72:
dlx=max(dlx,v0*d**2) 2452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4308:72:
wr=wr-d*w 2452
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4309:72:
f=f+d 2453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4310:72:
if(dlx.lt.shr)goto 16762 2453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4311:72:
if(nlp .le. maxit)goto 16841 2453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4312:72:
jerr=-ilm 2453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4313:72:
return 2453
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4314:72:
16841 continue 2454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4315:72:
16850 continue 2454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4316:72:
16851 continue 2454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4317:72:
nlp=nlp+1 2454
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4318:72:
dlx=0.0 2455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4319:72:
16860 do 16861 l=1,nin 2455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4320:72:
k=m(l) 2455
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4321:72:
ak=a(k) 2456
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4322:72:
u=dot_product(wr,x(:,k))+v(k)*ak 2456
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4323:72:
au=abs(u)-vp(k)*al1 2457
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4324:72:
if(au .gt. 0.0)goto 16881 2457
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4325:72:
a(k)=0.0 2457
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4326:72:
goto 16891 2458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4327:72:
16881 continue 2458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4328:72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2458
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4329:72:
16891 continue 2459
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4330:72:
16871 continue 2459
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4331:72:
if(a(k).eq.ak)goto 16861 2459
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4332:72:
d=a(k)-ak 2459
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4333:72:
dlx=max(dlx,v(k)*d**2) 2460
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4334:72:
wr=wr-d*w*x(:,k) 2460
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4335:72:
f=f+d*x(:,k) 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4336:72:
16861 continue 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4337:72:
16862 continue 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4338:72:
d=sum(wr)/v0 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4339:72:
az=az+d 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4340:72:
dlx=max(dlx,v0*d**2) 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4341:72:
wr=wr-d*w 2462
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4342:72:
f=f+d 2463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4343:72:
if(dlx.lt.shr)goto 16852 2463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4344:72:
if(nlp .le. maxit)goto 16911 2463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4345:72:
jerr=-ilm 2463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4346:72:
return 2463
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4347:72:
16911 continue 2464
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4348:72:
goto 16851 2465
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4349:72:
16852 continue 2465
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4350:72:
goto 16761 2466
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4351:72:
16762 continue 2466
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4352:72:
if(nin.gt.nx)goto 16742 2467
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4353:72:
w=q*exp(sign(min(abs(f),fmax),f)) 2467
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4354:72:
v0=sum(w) 2467
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4355:72:
wr=t-w 2468
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4356:72:
if(v0*(az-az0)**2 .ge. shr)goto 16931 2468
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4357:72:
ix=0 2469
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4358:72:
16940 do 16941 j=1,nin 2469
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4359:72:
k=m(j) 2470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4360:72:
if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941 2470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4361:72:
ix=1 2470
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4362:72:
goto 16942 2471
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4363:72:
16941 continue 2472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4364:72:
16942 continue 2472
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4365:72:
if(ix .ne. 0)goto 16961 2473
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4366:72:
16970 do 16971 k=1,ni 2473
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4367:72:
if(ixx(k).eq.1)goto 16971 2473
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4368:72:
if(ju(k).eq.0)goto 16971 2474
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4369:72:
ga(k)=abs(dot_product(wr,x(:,k))) 2475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4370:72:
if(ga(k) .le. al1*vp(k))goto 16991 2475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4371:72:
ixx(k)=1 2475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4372:72:
ix=1 2475
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4373:72:
16991 continue 2476
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4374:72:
16971 continue 2477
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4375:72:
16972 continue 2477
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4376:72:
if(ix.eq.1) go to 10680 2478
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4377:72:
goto 16742 2479
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4378:72:
16961 continue 2480
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4379:72:
16931 continue 2481
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4380:72:
goto 16741 2482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4381:72:
16742 continue 2482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4382:72:
if(nin .le. nx)goto 17011 2482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4383:72:
jerr=-10000-ilm 2482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4384:72:
goto 16662 2482
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4385:72:
17011 continue 2483
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4386:72:
if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin)) 2483
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4387:72:
kin(ilm)=nin 2484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4388:72:
a0(ilm)=az 2484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4389:72:
alm(ilm)=al 2484
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4390:72:
lmu=ilm 2485
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4391:72:
dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr 2486
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4392:72:
if(ilm.lt.mnl)goto 16661 2486
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4393:72:
if(flmin.ge.1.0)goto 16661 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4394:72:
me=0 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4395:72:
17020 do 17021 j=1,nin 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4396:72:
if(ca(j,ilm).ne.0.0) me=me+1 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4397:72:
17021 continue 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4398:72:
17022 continue 2487
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4399:72:
if(me.gt.ne)goto 16662 2488
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4400:72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662 2489
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4401:72:
if(dev(ilm).gt.devmax)goto 16662 2490
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4402:72:
16661 continue 2491
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4403:72:
16662 continue 2491
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4404:72:
g=f 2492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4405:72:
11790 continue 2492
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4406:72:
deallocate(t,w,wr,v,a,f,as,mm,ga,ixx) 2493
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4407:72:
return 2494
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4408:72:
end 2495
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4409:72:
function nonzero(n,v) 2496
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4410:72:
real v(n) 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4411:72:
nonzero=0 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4412:72:
17030 do 17031 i=1,n 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4413:72:
if(v(i) .eq. 0.0)goto 17051 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4414:72:
nonzero=1 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4415:72:
return 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4416:72:
17051 continue 2497
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4417:72:
17031 continue 2498
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4418:72:
17032 continue 2498
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4419:72:
return 2499
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4420:72:
end 2500
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4421:72:
subroutine solns(ni,nx,lmu,a,ia,nin,b) 2501
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4422:72:
real a(nx,lmu),b(ni,lmu) 2501
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4423:72:
integer ia(nx),nin(lmu) 2502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4424:72:
17060 do 17061 lam=1,lmu 2502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4425:72:
call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam)) 2502
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4426:72:
17061 continue 2503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4427:72:
17062 continue 2503
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4428:72:
return 2504
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4429:72:
end 2505
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4430:72:
subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b) 2506
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4431:72:
real a(nx,nc,lmu),b(ni,nc,lmu) 2506
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4432:72:
integer ia(nx),nin(lmu) 2507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4433:72:
17070 do 17071 lam=1,lmu 2507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4434:72:
call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam)) 2507
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4435:72:
17071 continue 2508
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4436:72:
17072 continue 2508
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4437:72:
return 2509
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4438:72:
end 2510
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4439:72:
subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr) 2511
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4440:72:
real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam) 2512
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4442:72:
if(minval(y) .ge. 0.0)goto 17091 2515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4443:72:
jerr=8888 2515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4444:72:
return 2515
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4445:72:
17091 continue 2516
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4446:72:
allocate(w(1:no),stat=jerr) 2516
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4447:72:
if(jerr.ne.0) return 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4448:72:
w=max(0.0,q) 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4449:72:
sw=sum(w) 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4450:72:
if(sw .gt. 0.0)goto 17111 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4451:72:
jerr=9999 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4452:72:
go to 11790 2517
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4453:72:
17111 continue 2518
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4454:72:
yb=dot_product(w,y)/sw 2518
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4455:72:
fmax=log(huge(y(1))*0.1) 2519
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4456:72:
17120 do 17121 lam=1,nlam 2519
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4457:72:
s=0.0 2520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4458:72:
17130 do 17131 i=1,no 2520
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4459:72:
if(w(i).le.0.0)goto 17131 2521
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4460:72:
f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:)) 2522
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4461:72:
s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f))) 2523
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4462:72:
17131 continue 2524
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4463:72:
17132 continue 2524
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4464:72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2525
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4465:72:
17121 continue 2526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4466:72:
17122 continue 2526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4467:72:
11790 continue 2526
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4468:72:
deallocate(w) 2527
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4469:72:
return 2528
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4470:72:
end 2529
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4471:72:
subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl 2531
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4473:72:
real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam) 2532
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4474:72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2533
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4475:72:
integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 2534
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4478:72:
if(maxval(vp) .gt. 0.0)goto 17151 2538
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4479:72:
jerr=10000 2538
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4480:72:
return 2538
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4481:72:
17151 continue 2539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4482:72:
if(minval(y) .ge. 0.0)goto 17171 2539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4483:72:
jerr=8888 2539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4484:72:
return 2539
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4485:72:
17171 continue 2540
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4486:72:
allocate(ww(1:no),stat=jerr) 2541
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4487:72:
allocate(ju(1:ni),stat=ierr) 2541
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4488:72:
jerr=jerr+ierr 2542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4489:72:
allocate(vq(1:ni),stat=ierr) 2542
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4490:72:
jerr=jerr+ierr 2543
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4491:72:
allocate(xm(1:ni),stat=ierr) 2543
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4492:72:
jerr=jerr+ierr 2544
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4493:72:
allocate(xs(1:ni),stat=ierr) 2544
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4494:72:
jerr=jerr+ierr 2545
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4495:72:
if(jerr.ne.0) return 2546
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4496:72:
call spchkvars(no,ni,x,ix,ju) 2547
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4497:72:
if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0 2548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4498:72:
if(maxval(ju) .gt. 0)goto 17191 2548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4499:72:
jerr=7777 2548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4500:72:
go to 11790 2548
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4501:72:
17191 continue 2549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4502:72:
vq=max(0.0,vp) 2549
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4503:72:
vq=vq*ni/sum(vq) 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4504:72:
ww=max(0.0,w) 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4505:72:
sw=sum(ww) 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4506:72:
if(sw .gt. 0.0)goto 17211 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4507:72:
jerr=9999 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4508:72:
go to 11790 2550
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4509:72:
17211 continue 2551
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4510:72:
ww=ww/sw 2552
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4511:72:
call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs) 2553
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4512:72:
call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u 2555
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4514:72:
if(jerr.gt.0) go to 11790 2555
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4515:72:
dev0=2.0*sw*dev0 2556
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4516:72:
17220 do 17221 k=1,lmu 2556
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4517:72:
nk=nin(k) 2557
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4518:72:
if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk)) 2558
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4519:72:
a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk))) 2559
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4520:72:
17221 continue 2560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4521:72:
17222 continue 2560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4522:72:
11790 continue 2560
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4523:72:
deallocate(ww,ju,vq,xm,xs) 2561
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4524:72:
return 2562
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4525:72:
end 2563
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4526:72:
subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl 2565
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4529:72:
parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99 2566
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4531:72:
real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni) 2567
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4532:72:
real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2568
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4533:72:
integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 2569
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4536:72:
allocate(a(1:ni),stat=jerr) 2574
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4537:72:
allocate(as(1:ni),stat=ierr) 2574
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4538:72:
jerr=jerr+ierr 2575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4539:72:
allocate(t(1:no),stat=ierr) 2575
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4540:72:
jerr=jerr+ierr 2576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4541:72:
allocate(mm(1:ni),stat=ierr) 2576
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4542:72:
jerr=jerr+ierr 2577
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4543:72:
allocate(ga(1:ni),stat=ierr) 2577
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4544:72:
jerr=jerr+ierr 2578
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4545:72:
allocate(ixx(1:ni),stat=ierr) 2578
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4546:72:
jerr=jerr+ierr 2579
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4547:72:
allocate(wr(1:no),stat=ierr) 2579
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4548:72:
jerr=jerr+ierr 2580
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4549:72:
allocate(v(1:ni),stat=ierr) 2580
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4550:72:
jerr=jerr+ierr 2581
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4551:72:
allocate(xm(1:ni),stat=ierr) 2581
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4552:72:
jerr=jerr+ierr 2582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4553:72:
allocate(w(1:no),stat=ierr) 2582
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4554:72:
jerr=jerr+ierr 2583
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4555:72:
allocate(qy(1:no),stat=ierr) 2583
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4556:72:
jerr=jerr+ierr 2584
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4557:72:
if(jerr.ne.0) return 2585
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4558:72:
bta=parm 2585
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4559:72:
omb=1.0-bta 2585
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4560:72:
fmax=log(huge(bta)*0.1) 2586
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4561:72:
qy=q*y 2586
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4562:72:
yb=sum(qy) 2587
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4563:72:
if(nonzero(no,g) .ne. 0)goto 17241 2587
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4564:72:
w=q*yb 2587
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4565:72:
az=log(yb) 2587
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4566:72:
uu=az 2588
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4567:72:
xm=yb*xb 2588
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4568:72:
t=0.0 2588
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4569:72:
dv0=yb*(log(yb)-1.0) 2589
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4570:72:
goto 17251 2590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4571:72:
17241 continue 2590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4572:72:
w=q*exp(sign(min(abs(g),fmax),g)) 2590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4573:72:
ww=sum(w) 2590
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4574:72:
eaz=yb/ww 2591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4575:72:
w=eaz*w 2591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4576:72:
az=log(eaz) 2591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4577:72:
uu=az 2591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4578:72:
t=g 2591
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4579:72:
dv0=dot_product(qy,g)-yb*(1.0-az) 2592
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4580:72:
17260 do 17261 j=1,ni 2592
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4581:72:
if(ju(j).eq.0)goto 17261 2592
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4582:72:
jb=ix(j) 2592
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4583:72:
je=ix(j+1)-1 2593
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4584:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2594
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4585:72:
17261 continue 2595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4586:72:
17262 continue 2595
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4587:72:
17251 continue 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4588:72:
17231 continue 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4589:72:
tt=yb*uu 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4590:72:
ww=yb 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4591:72:
wr=qy-q*(yb*(1.0-uu)) 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4592:72:
a=0.0 2596
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4593:72:
as=0.0 2597
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4594:72:
dvr=-yb 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4595:72:
17270 do 17271 i=1,no 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4596:72:
if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i)) 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4597:72:
17271 continue 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4598:72:
17272 continue 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4599:72:
dvr=dvr-dv0 2598
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4600:72:
dev0=dvr 2599
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4601:72:
if(flmin .ge. 1.0)goto 17291 2599
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4602:72:
eqs=max(eps,flmin) 2599
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4603:72:
alf=eqs**(1.0/(nlam-1)) 2599
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4604:72:
17291 continue 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4605:72:
m=0 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4606:72:
mm=0 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4607:72:
nlp=0 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4608:72:
nin=nlp 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4609:72:
mnl=min(mnlam,nlam) 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4610:72:
shr=shri*dev0 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4611:72:
al=0.0 2600
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4612:72:
ixx=0 2601
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4613:72:
17300 do 17301 j=1,ni 2601
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4614:72:
if(ju(j).eq.0)goto 17301 2602
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4615:72:
jb=ix(j) 2602
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4616:72:
je=ix(j+1)-1 2603
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4617:72:
ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j) 2605
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4619:72:
17301 continue 2606
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4620:72:
17302 continue 2606
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4621:72:
17310 do 17311 ilm=1,nlam 2606
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4622:72:
al0=al 2607
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4623:72:
if(flmin .lt. 1.0)goto 17331 2607
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4624:72:
al=ulam(ilm) 2607
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4625:72:
goto 17321 2608
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4626:72:
17331 if(ilm .le. 2)goto 17341 2608
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4627:72:
al=al*alf 2608
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4628:72:
goto 17321 2609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4629:72:
17341 if(ilm .ne. 1)goto 17351 2609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4630:72:
al=big 2609
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4631:72:
goto 17361 2610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4632:72:
17351 continue 2610
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4633:72:
al0=0.0 2611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4634:72:
17370 do 17371 j=1,ni 2611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4635:72:
if(ju(j).eq.0)goto 17371 2611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4636:72:
if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j)) 2611
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4637:72:
17371 continue 2612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4638:72:
17372 continue 2612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4639:72:
al0=al0/max(bta,1.0e-3) 2612
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4640:72:
al=alf*al0 2613
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4641:72:
17361 continue 2614
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4642:72:
17321 continue 2614
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4643:72:
al2=al*omb 2614
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4644:72:
al1=al*bta 2614
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4645:72:
tlam=bta*(2.0*al-al0) 2615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4646:72:
17380 do 17381 k=1,ni 2615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4647:72:
if(ixx(k).eq.1)goto 17381 2615
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4648:72:
if(ju(k).eq.0)goto 17381 2616
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4649:72:
if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2617
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4650:72:
17381 continue 2618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4651:72:
17382 continue 2618
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4652:72:
10680 continue 2619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4653:72:
17390 continue 2619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4654:72:
17391 continue 2619
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4655:72:
az0=az 2620
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4656:72:
if(nin.gt.0) as(m(1:nin))=a(m(1:nin)) 2621
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4657:72:
17400 do 17401 j=1,ni 2621
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4658:72:
if(ixx(j).eq.0)goto 17401 2621
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4659:72:
jb=ix(j) 2621
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4660:72:
je=ix(j+1)-1 2622
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4661:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2623
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4662:72:
v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2) -2.0*xb(j)*xm(j)+ww*x 2625
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4664:72:
17401 continue 2626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4665:72:
17402 continue 2626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4666:72:
17410 continue 2626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4667:72:
17411 continue 2626
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4668:72:
nlp=nlp+1 2627
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4669:72:
dlx=0.0 2628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4670:72:
17420 do 17421 k=1,ni 2628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4671:72:
if(ixx(k).eq.0)goto 17421 2628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4672:72:
jb=ix(k) 2628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4673:72:
je=ix(k+1)-1 2628
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4674:72:
ak=a(k) 2629
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4675:72:
u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k) 2631
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4677:72:
au=abs(u)-vp(k)*al1 2632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4678:72:
if(au .gt. 0.0)goto 17441 2632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4679:72:
a(k)=0.0 2632
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4680:72:
goto 17451 2633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4681:72:
17441 continue 2633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4682:72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2633
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4683:72:
17451 continue 2634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4684:72:
17431 continue 2634
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4685:72:
if(a(k).eq.ak)goto 17421 2635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4686:72:
if(mm(k) .ne. 0)goto 17471 2635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4687:72:
nin=nin+1 2635
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4688:72:
if(nin.gt.nx)goto 17422 2636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4689:72:
mm(k)=nin 2636
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4690:72:
m(nin)=k 2637
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4691:72:
17471 continue 2638
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4692:72:
d=a(k)-ak 2638
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4693:72:
dlx=max(dlx,v(k)*d**2) 2638
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4694:72:
dv=d/xs(k) 2639
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4695:72:
wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je) 2640
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4696:72:
t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je) 2641
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4697:72:
uu=uu-dv*xb(k) 2641
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4698:72:
tt=tt-dv*xm(k) 2642
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4699:72:
17421 continue 2643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4700:72:
17422 continue 2643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4701:72:
if(nin.gt.nx)goto 17412 2643
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4702:72:
d=tt/ww-uu 2644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4703:72:
az=az+d 2644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4704:72:
dlx=max(dlx,ww*d**2) 2644
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4705:72:
uu=uu+d 2645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4706:72:
if(dlx.lt.shr)goto 17412 2645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4707:72:
if(nlp .le. maxit)goto 17491 2645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4708:72:
jerr=-ilm 2645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4709:72:
return 2645
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4710:72:
17491 continue 2646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4711:72:
17500 continue 2646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4712:72:
17501 continue 2646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4713:72:
nlp=nlp+1 2646
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4714:72:
dlx=0.0 2647
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4715:72:
17510 do 17511 l=1,nin 2647
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4716:72:
k=m(l) 2648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4717:72:
jb=ix(k) 2648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4718:72:
je=ix(k+1)-1 2648
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4719:72:
ak=a(k) 2649
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4720:72:
u=(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(k)-ww*xb(k))-xb(k) 2651
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4722:72:
au=abs(u)-vp(k)*al1 2652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4723:72:
if(au .gt. 0.0)goto 17531 2652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4724:72:
a(k)=0.0 2652
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4725:72:
goto 17541 2653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4726:72:
17531 continue 2653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4727:72:
a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2653
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4728:72:
17541 continue 2654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4729:72:
17521 continue 2654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4730:72:
if(a(k).eq.ak)goto 17511 2654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4731:72:
d=a(k)-ak 2654
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4732:72:
dlx=max(dlx,v(k)*d**2) 2655
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4733:72:
dv=d/xs(k) 2655
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4734:72:
wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je) 2656
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4735:72:
t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je) 2657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4736:72:
uu=uu-dv*xb(k) 2657
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4737:72:
tt=tt-dv*xm(k) 2658
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4738:72:
17511 continue 2659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4739:72:
17512 continue 2659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4740:72:
d=tt/ww-uu 2659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4741:72:
az=az+d 2659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4742:72:
dlx=max(dlx,ww*d**2) 2659
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4743:72:
uu=uu+d 2660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4744:72:
if(dlx.lt.shr)goto 17502 2660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4745:72:
if(nlp .le. maxit)goto 17561 2660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4746:72:
jerr=-ilm 2660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4747:72:
return 2660
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4748:72:
17561 continue 2661
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4749:72:
goto 17501 2662
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4750:72:
17502 continue 2662
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4751:72:
goto 17411 2663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4752:72:
17412 continue 2663
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4753:72:
if(nin.gt.nx)goto 17392 2664
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4754:72:
euu=exp(sign(min(abs(uu),fmax),uu)) 2665
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4755:72:
w=euu*q*exp(sign(min(abs(t),fmax),t)) 2665
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4756:72:
ww=sum(w) 2666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4757:72:
wr=qy-w*(1.0-uu) 2666
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4758:72:
tt=sum(wr) 2667
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4759:72:
if(ww*(az-az0)**2 .ge. shr)goto 17581 2667
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4760:72:
kx=0 2668
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4761:72:
17590 do 17591 j=1,nin 2668
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4762:72:
k=m(j) 2669
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4763:72:
if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591 2669
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4764:72:
kx=1 2669
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4765:72:
goto 17592 2670
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4766:72:
17591 continue 2671
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4767:72:
17592 continue 2671
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4768:72:
if(kx .ne. 0)goto 17611 2672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4769:72:
17620 do 17621 j=1,ni 2672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4770:72:
if(ixx(j).eq.1)goto 17621 2672
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4771:72:
if(ju(j).eq.0)goto 17621 2673
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4772:72:
jb=ix(j) 2673
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4773:72:
je=ix(j+1)-1 2674
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4774:72:
xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2675
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4775:72:
ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je)) -uu*(xm(j)-ww*xb(j) 2677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4777:72:
if(ga(j) .le. al1*vp(j))goto 17641 2677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4778:72:
ixx(j)=1 2677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4779:72:
kx=1 2677
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4780:72:
17641 continue 2678
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4781:72:
17621 continue 2679
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4782:72:
17622 continue 2679
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4783:72:
if(kx.eq.1) go to 10680 2680
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4784:72:
goto 17392 2681
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4785:72:
17611 continue 2682
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4786:72:
17581 continue 2683
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4787:72:
goto 17391 2684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4788:72:
17392 continue 2684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4789:72:
if(nin .le. nx)goto 17661 2684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4790:72:
jerr=-10000-ilm 2684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4791:72:
goto 17312 2684
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4792:72:
17661 continue 2685
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4793:72:
if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin)) 2685
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4794:72:
kin(ilm)=nin 2686
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4795:72:
a0(ilm)=az 2686
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4796:72:
alm(ilm)=al 2686
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4797:72:
lmu=ilm 2687
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4798:72:
dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr 2688
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4799:72:
if(ilm.lt.mnl)goto 17311 2688
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4800:72:
if(flmin.ge.1.0)goto 17311 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4801:72:
me=0 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4802:72:
17670 do 17671 j=1,nin 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4803:72:
if(ca(j,ilm).ne.0.0) me=me+1 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4804:72:
17671 continue 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4805:72:
17672 continue 2689
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4806:72:
if(me.gt.ne)goto 17312 2690
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4807:72:
if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312 2691
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4808:72:
if(dev(ilm).gt.devmax)goto 17312 2692
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4809:72:
17311 continue 2693
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4810:72:
17312 continue 2693
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4811:72:
g=t+uu 2694
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4812:72:
11790 continue 2694
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4813:72:
deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx) 2695
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4814:72:
return 2696
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4815:72:
end 2697
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4816:72:
subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr) 2698
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4817:72:
real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam) 2699
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4818:72:
integer ix(*),jx(*) 2700
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4820:72:
if(minval(y) .ge. 0.0)goto 17691 2703
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4821:72:
jerr=8888 2703
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4822:72:
return 2703
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4823:72:
17691 continue 2704
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4824:72:
allocate(w(1:no),stat=jerr) 2705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4825:72:
allocate(f(1:no),stat=ierr) 2705
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4826:72:
jerr=jerr+ierr 2706
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4827:72:
if(jerr.ne.0) return 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4828:72:
w=max(0.0,q) 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4829:72:
sw=sum(w) 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4830:72:
if(sw .gt. 0.0)goto 17711 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4831:72:
jerr=9999 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4832:72:
go to 11790 2707
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4833:72:
17711 continue 2708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4834:72:
yb=dot_product(w,y)/sw 2708
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4835:72:
fmax=log(huge(y(1))*0.1) 2709
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4836:72:
17720 do 17721 lam=1,nlam 2709
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4837:72:
f=a0(lam) 2710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4838:72:
17730 do 17731 j=1,ni 2710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4839:72:
if(a(j,lam).eq.0.0)goto 17731 2710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4840:72:
jb=ix(j) 2710
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4841:72:
je=ix(j+1)-1 2711
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4842:72:
f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je) 2712
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4843:72:
17731 continue 2713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4844:72:
17732 continue 2713
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4845:72:
f=f+g 2714
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4846:72:
s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f))) 2715
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4847:72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2716
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4848:72:
17721 continue 2717
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4849:72:
17722 continue 2717
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4850:72:
11790 continue 2717
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4851:72:
deallocate(w,f) 2718
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4852:72:
return 2719
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4853:72:
end 2720
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4854:72:
subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog, 2721
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4856:72:
real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam) 2722
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4857:72:
integer ix(*),jx(*),nin(nlam),ia(nx) 2723
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4859:72:
if(minval(y) .ge. 0.0)goto 17751 2726
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4860:72:
jerr=8888 2726
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4861:72:
return 2726
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4862:72:
17751 continue 2727
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4863:72:
allocate(w(1:no),stat=jerr) 2728
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4864:72:
allocate(f(1:no),stat=ierr) 2728
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4865:72:
jerr=jerr+ierr 2729
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4866:72:
if(jerr.ne.0) return 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4867:72:
w=max(0.0,q) 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4868:72:
sw=sum(w) 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4869:72:
if(sw .gt. 0.0)goto 17771 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4870:72:
jerr=9999 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4871:72:
go to 11790 2730
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4872:72:
17771 continue 2731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4873:72:
yb=dot_product(w,y)/sw 2731
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4874:72:
fmax=log(huge(y(1))*0.1) 2732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4875:72:
17780 do 17781 lam=1,nlam 2732
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4876:72:
f=a0(lam) 2733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4877:72:
17790 do 17791 k=1,nin(lam) 2733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4878:72:
j=ia(k) 2733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4879:72:
jb=ix(j) 2733
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4880:72:
je=ix(j+1)-1 2734
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4881:72:
f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je) 2735
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4882:72:
17791 continue 2736
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4883:72:
17792 continue 2736
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4884:72:
f=f+g 2737
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4885:72:
s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f))) 2738
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4886:72:
flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2739
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4887:72:
17781 continue 2740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4888:72:
17782 continue 2740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4889:72:
11790 continue 2740
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4890:72:
deallocate(w,f) 2741
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4891:72:
return 2742
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4892:72:
end 2743
1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:5:
10031 continue 628
1
Warning: Label 10031 at (1) defined but not used
newGLMnet.f90:582:5:
10092 continue 659
1
Warning: Label 10092 at (1) defined but not used
newGLMnet.f90:579:5:
10090 do 10091 l=1,nk 658
1
Warning: Label 10090 at (1) defined but not used
newGLMnet.f90:585:5:
10082 continue 661
1
Warning: Label 10082 at (1) defined but not used
newGLMnet.f90:576:5:
10080 do 10081 k=1,lmu 657
1
Warning: Label 10080 at (1) defined but not used
newGLMnet.f90:1051:5:
10870 do 10871 i=2,no 890
1
Warning: Label 10870 at (1) defined but not used
newGLMnet.f90:1058:5:
10862 continue 892
1
Warning: Label 10862 at (1) defined but not used
newGLMnet.f90:1048:5:
10860 do 10861 j=1,ni 889
1
Warning: Label 10860 at (1) defined but not used
newGLMnet.f90:625:5:
10152 continue 682
1
Warning: Label 10152 at (1) defined but not used
newGLMnet.f90:622:5:
10150 do 10151 j=1,ni 681
1
Warning: Label 10150 at (1) defined but not used
newGLMnet.f90:613:5:
10142 continue 678
1
Warning: Label 10142 at (1) defined but not used
newGLMnet.f90:609:5:
10140 do 10141 j=1,ni 677
1
Warning: Label 10140 at (1) defined but not used
newGLMnet.f90:616:5:
10111 continue 680
1
Warning: Label 10111 at (1) defined but not used
newGLMnet.f90:604:5:
10102 continue 675
1
Warning: Label 10102 at (1) defined but not used
newGLMnet.f90:597:5:
10100 do 10101 j=1,ni 671
1
Warning: Label 10100 at (1) defined but not used
newGLMnet.f90:787:5:
10462 continue 755
1
Warning: Label 10462 at (1) defined but not used
newGLMnet.f90:784:5:
10460 do 10461 j=1,nin 755
1
Warning: Label 10460 at (1) defined but not used
newGLMnet.f90:768:5:
10432 continue 749
1
Warning: Label 10432 at (1) defined but not used
newGLMnet.f90:764:5:
10430 do 10431 j=1,ni 746
1
Warning: Label 10430 at (1) defined but not used
newGLMnet.f90:753:5:
10402 continue 742
1
Warning: Label 10402 at (1) defined but not used
newGLMnet.f90:750:5:
10400 do 10401 j=1,nin 741
1
Warning: Label 10400 at (1) defined but not used
newGLMnet.f90:755:5:
10392 continue 743
1
Warning: Label 10392 at (1) defined but not used
newGLMnet.f90:739:5:
10390 do 10391 l=1,nin 735
1
Warning: Label 10390 at (1) defined but not used
newGLMnet.f90:735:5:
10380 continue 734
1
Warning: Label 10380 at (1) defined but not used
newGLMnet.f90:723:5:
10352 continue 730
1
Warning: Label 10352 at (1) defined but not used
newGLMnet.f90:720:5:
10350 do 10351 j=1,ni 729
1
Warning: Label 10350 at (1) defined but not used
newGLMnet.f90:713:5:
10302 continue 725
1
Warning: Label 10302 at (1) defined but not used
newGLMnet.f90:701:5:
10300 do 10301 j=1,ni 720
1
Warning: Label 10300 at (1) defined but not used
newGLMnet.f90:690:5:
10270 do 10271 k=1,ni 715
1
Warning: Label 10270 at (1) defined but not used
newGLMnet.f90:685:5:
10250 continue 714
1
Warning: Label 10250 at (1) defined but not used
newGLMnet.f90:677:5:
10242 continue 711
1
Warning: Label 10242 at (1) defined but not used
newGLMnet.f90:672:5:
10240 do 10241 j=1,ni 708
1
Warning: Label 10240 at (1) defined but not used
newGLMnet.f90:660:5:
10180 do 10181 m=1,nlam 704
1
Warning: Label 10180 at (1) defined but not used
newGLMnet.f90:831:5:
10502 continue 787
1
Warning: Label 10502 at (1) defined but not used
newGLMnet.f90:828:5:
10500 do 10501 l=1,nk 786
1
Warning: Label 10500 at (1) defined but not used
newGLMnet.f90:834:5:
10492 continue 789
1
Warning: Label 10492 at (1) defined but not used
newGLMnet.f90:825:5:
10490 do 10491 k=1,lmu 785
1
Warning: Label 10490 at (1) defined but not used
newGLMnet.f90:862:5:
10552 continue 805
1
Warning: Label 10552 at (1) defined but not used
newGLMnet.f90:858:5:
10550 do 10551 j=1,ni 804
1
Warning: Label 10550 at (1) defined but not used
newGLMnet.f90:865:5:
10521 continue 807
1
Warning: Label 10521 at (1) defined but not used
newGLMnet.f90:853:5:
10512 continue 803
1
Warning: Label 10512 at (1) defined but not used
newGLMnet.f90:846:5:
10510 do 10511 j=1,ni 799
1
Warning: Label 10510 at (1) defined but not used
newGLMnet.f90:1036:5:
10852 continue 881
1
Warning: Label 10852 at (1) defined but not used
newGLMnet.f90:1033:5:
10850 do 10851 j=1,nin 881
1
Warning: Label 10850 at (1) defined but not used
newGLMnet.f90:1010:5:
10802 continue 873
1
Warning: Label 10802 at (1) defined but not used
newGLMnet.f90:996:5:
10800 do 10801 l=1,nin 866
1
Warning: Label 10800 at (1) defined but not used
newGLMnet.f90:992:5:
10790 continue 865
1
Warning: Label 10790 at (1) defined but not used
newGLMnet.f90:982:5:
10742 continue 860
1
Warning: Label 10742 at (1) defined but not used
newGLMnet.f90:973:5:
10740 do 10741 k=1,ni 856
1
Warning: Label 10740 at (1) defined but not used
newGLMnet.f90:949:5:
10690 do 10691 k=1,ni 844
1
Warning: Label 10690 at (1) defined but not used
newGLMnet.f90:943:5:
10670 continue 842
1
Warning: Label 10670 at (1) defined but not used
newGLMnet.f90:942:5:
10662 continue 842
1
Warning: Label 10662 at (1) defined but not used
newGLMnet.f90:937:5:
10660 do 10661 k=1,ni 839
1
Warning: Label 10660 at (1) defined but not used
newGLMnet.f90:927:5:
10652 continue 835
1
Warning: Label 10652 at (1) defined but not used
newGLMnet.f90:923:5:
10650 do 10651 j=1,ni 834
1
Warning: Label 10650 at (1) defined but not used
newGLMnet.f90:910:5:
10590 do 10591 m=1,nlam 829
1
Warning: Label 10590 at (1) defined but not used
newGLMnet.f90:909:5:
10582 continue 829
1
Warning: Label 10582 at (1) defined but not used
newGLMnet.f90:905:5:
10580 do 10581 j=1,ni 828
1
Warning: Label 10580 at (1) defined but not used
newGLMnet.f90:1076:5:
10882 continue 903
1
Warning: Label 10882 at (1) defined but not used
newGLMnet.f90:1073:5:
10880 do 10881 i=1,n 902
1
Warning: Label 10880 at (1) defined but not used
newGLMnet.f90:1101:5:
10911 continue 927
1
Warning: Label 10911 at (1) defined but not used
newGLMnet.f90:1142:5:
10972 continue 958
1
Warning: Label 10972 at (1) defined but not used
newGLMnet.f90:1139:5:
10970 do 10971 l=1,nk 957
1
Warning: Label 10970 at (1) defined but not used
newGLMnet.f90:1145:5:
10962 continue 960
1
Warning: Label 10962 at (1) defined but not used
newGLMnet.f90:1136:5:
10960 do 10961 k=1,lmu 956
1
Warning: Label 10960 at (1) defined but not used
newGLMnet.f90:1622:5:
11750 do 11751 i=jb+1,je 1189
1
Warning: Label 11750 at (1) defined but not used
newGLMnet.f90:1613:5:
11730 do 11731 i=jb,je 1188
1
Warning: Label 11730 at (1) defined but not used
newGLMnet.f90:1629:5:
11711 continue 1190
1
Warning: Label 11711 at (1) defined but not used
newGLMnet.f90:1631:5:
11702 continue 1191
1
Warning: Label 11702 at (1) defined but not used
newGLMnet.f90:1606:5:
11700 do 11701 j=1,ni 1186
1
Warning: Label 11700 at (1) defined but not used
newGLMnet.f90:1181:5:
11022 continue 976
1
Warning: Label 11022 at (1) defined but not used
newGLMnet.f90:1175:5:
11020 do 11021 j=1,ni 973
1
Warning: Label 11020 at (1) defined but not used
newGLMnet.f90:1169:5:
10991 continue 972
1
Warning: Label 10991 at (1) defined but not used
newGLMnet.f90:1162:5:
10982 continue 971
1
Warning: Label 10982 at (1) defined but not used
newGLMnet.f90:1154:5:
10980 do 10981 j=1,ni 966
1
Warning: Label 10980 at (1) defined but not used
newGLMnet.f90:1342:5:
11322 continue 1050
1
Warning: Label 11322 at (1) defined but not used
newGLMnet.f90:1339:5:
11320 do 11321 j=1,nin 1050
1
Warning: Label 11320 at (1) defined but not used
newGLMnet.f90:1323:5:
11292 continue 1044
1
Warning: Label 11292 at (1) defined but not used
newGLMnet.f90:1319:5:
11290 do 11291 j=1,ni 1041
1
Warning: Label 11290 at (1) defined but not used
newGLMnet.f90:1308:5:
11262 continue 1037
1
Warning: Label 11262 at (1) defined but not used
newGLMnet.f90:1305:5:
11260 do 11261 j=1,nin 1036
1
Warning: Label 11260 at (1) defined but not used
newGLMnet.f90:1310:5:
11252 continue 1038
1
Warning: Label 11252 at (1) defined but not used
newGLMnet.f90:1294:5:
11250 do 11251 l=1,nin 1030
1
Warning: Label 11250 at (1) defined but not used
newGLMnet.f90:1290:5:
11240 continue 1029
1
Warning: Label 11240 at (1) defined but not used
newGLMnet.f90:1278:5:
11212 continue 1025
1
Warning: Label 11212 at (1) defined but not used
newGLMnet.f90:1275:5:
11210 do 11211 j=1,ni 1024
1
Warning: Label 11210 at (1) defined but not used
newGLMnet.f90:1268:5:
11162 continue 1020
1
Warning: Label 11162 at (1) defined but not used
newGLMnet.f90:1256:5:
11160 do 11161 j=1,ni 1014
1
Warning: Label 11160 at (1) defined but not used
newGLMnet.f90:1245:5:
11130 do 11131 k=1,ni 1009
1
Warning: Label 11130 at (1) defined but not used
newGLMnet.f90:1240:5:
11120 continue 1008
1
Warning: Label 11120 at (1) defined but not used
newGLMnet.f90:1232:5:
11112 continue 1005
1
Warning: Label 11112 at (1) defined but not used
newGLMnet.f90:1227:5:
11110 do 11111 j=1,ni 1002
1
Warning: Label 11110 at (1) defined but not used
newGLMnet.f90:1215:5:
11050 do 11051 m=1,nlam 998
1
Warning: Label 11050 at (1) defined but not used
newGLMnet.f90:1669:5:
11810 continue 1213
1
Warning: Label 11810 at (1) defined but not used
newGLMnet.f90:1662:5:
11780 continue 1211
1
Warning: Label 11780 at (1) defined but not used
newGLMnet.f90:1660:5:
11770 continue 1210
1
Warning: Label 11770 at (1) defined but not used
newGLMnet.f90:1386:5:
11362 continue 1082
1
Warning: Label 11362 at (1) defined but not used
newGLMnet.f90:1383:5:
11360 do 11361 l=1,nk 1081
1
Warning: Label 11360 at (1) defined but not used
newGLMnet.f90:1389:5:
11352 continue 1084
1
Warning: Label 11352 at (1) defined but not used
newGLMnet.f90:1380:5:
11350 do 11351 k=1,lmu 1080
1
Warning: Label 11350 at (1) defined but not used
newGLMnet.f90:1413:5:
11381 continue 1096
1
Warning: Label 11381 at (1) defined but not used
newGLMnet.f90:1406:5:
11372 continue 1095
1
Warning: Label 11372 at (1) defined but not used
newGLMnet.f90:1398:5:
11370 do 11371 j=1,ni 1090
1
Warning: Label 11370 at (1) defined but not used
newGLMnet.f90:1594:5:
11692 continue 1178
1
Warning: Label 11692 at (1) defined but not used
newGLMnet.f90:1591:5:
11690 do 11691 j=1,nin 1178
1
Warning: Label 11690 at (1) defined but not used
newGLMnet.f90:1568:5:
11642 continue 1170
1
Warning: Label 11642 at (1) defined but not used
newGLMnet.f90:1551:5:
11640 do 11641 l=1,nin 1161
1
Warning: Label 11640 at (1) defined but not used
newGLMnet.f90:1547:5:
11630 continue 1160
1
Warning: Label 11630 at (1) defined but not used
newGLMnet.f90:1537:5:
11582 continue 1155
1
Warning: Label 11582 at (1) defined but not used
newGLMnet.f90:1526:5:
11580 do 11581 j=1,ni 1150
1
Warning: Label 11580 at (1) defined but not used
newGLMnet.f90:1499:5:
11530 do 11531 k=1,ni 1136
1
Warning: Label 11530 at (1) defined but not used
newGLMnet.f90:1493:5:
11520 continue 1134
1
Warning: Label 11520 at (1) defined but not used
newGLMnet.f90:1492:5:
11512 continue 1134
1
Warning: Label 11512 at (1) defined but not used
newGLMnet.f90:1487:5:
11510 do 11511 k=1,ni 1131
1
Warning: Label 11510 at (1) defined but not used
newGLMnet.f90:1477:5:
11502 continue 1127
1
Warning: Label 11502 at (1) defined but not used
newGLMnet.f90:1473:5:
11500 do 11501 j=1,ni 1126
1
Warning: Label 11500 at (1) defined but not used
newGLMnet.f90:1460:5:
11440 do 11441 m=1,nlam 1121
1
Warning: Label 11440 at (1) defined but not used
newGLMnet.f90:1459:5:
11432 continue 1121
1
Warning: Label 11432 at (1) defined but not used
newGLMnet.f90:1453:5:
11430 do 11431 j=1,ni 1117
1
Warning: Label 11430 at (1) defined but not used
newGLMnet.f90:1644:5:
11762 continue 1199
1
Warning: Label 11762 at (1) defined but not used
newGLMnet.f90:1638:5:
11760 do 11761 j=1,nin 1196
1
Warning: Label 11760 at (1) defined but not used
newGLMnet.f90:1746:5:
11962 continue 1253
1
Warning: Label 11962 at (1) defined but not used
newGLMnet.f90:1743:5:
11960 do 11961 l=1,nk 1253
1
Warning: Label 11960 at (1) defined but not used
newGLMnet.f90:1750:5:
11932 continue 1256
1
Warning: Label 11932 at (1) defined but not used
newGLMnet.f90:1741:5:
11930 do 11931 ic=1,nc 1253
1
Warning: Label 11930 at (1) defined but not used
newGLMnet.f90:1752:5:
11922 continue 1257
1
Warning: Label 11922 at (1) defined but not used
newGLMnet.f90:1739:5:
11920 do 11921 k=1,lmu 1252
1
Warning: Label 11920 at (1) defined but not used
newGLMnet.f90:1736:5:
11891 continue 1251
1
Warning: Label 11891 at (1) defined but not used
newGLMnet.f90:1724:5:
11882 continue 1241
1
Warning: Label 11882 at (1) defined but not used
newGLMnet.f90:1720:5:
11880 do 11881 i=1,no 1241
1
Warning: Label 11880 at (1) defined but not used
newGLMnet.f90:1769:5:
11972 continue 1266
1
Warning: Label 11972 at (1) defined but not used
newGLMnet.f90:1760:5:
11970 do 11971 j=1,ni 1262
1
Warning: Label 11970 at (1) defined but not used
newGLMnet.f90:2055:5:
12642 continue 1387
1
Warning: Label 12642 at (1) defined but not used
newGLMnet.f90:2052:5:
12640 do 12641 j=1,nin 1387
1
Warning: Label 12640 at (1) defined but not used
newGLMnet.f90:2030:5:
12592 continue 1376
1
Warning: Label 12592 at (1) defined but not used
newGLMnet.f90:2021:5:
12590 do 12591 k=1,ni 1372
1
Warning: Label 12590 at (1) defined but not used
newGLMnet.f90:2013:5:
12560 do 12561 j=1,nin 1368
1
Warning: Label 12560 at (1) defined but not used
newGLMnet.f90:2006:5:
12492 continue 1366
1
Warning: Label 12492 at (1) defined but not used
newGLMnet.f90:1992:5:
12490 do 12491 i=1,no 1361
1
Warning: Label 12490 at (1) defined but not used
newGLMnet.f90:1969:5:
12421 continue 1352
1
Warning: Label 12421 at (1) defined but not used
newGLMnet.f90:1975:5:
12412 continue 1355
1
Warning: Label 12412 at (1) defined but not used
newGLMnet.f90:1957:5:
12410 do 12411 l=1,nin 1347
1
Warning: Label 12410 at (1) defined but not used
newGLMnet.f90:1953:5:
12400 continue 1346
1
Warning: Label 12400 at (1) defined but not used
newGLMnet.f90:1928:5:
12311 continue 1336
1
Warning: Label 12311 at (1) defined but not used
newGLMnet.f90:1916:5:
12300 do 12301 k=1,ni 1331
1
Warning: Label 12300 at (1) defined but not used
newGLMnet.f90:1912:5:
12290 continue 1330
1
Warning: Label 12290 at (1) defined but not used
newGLMnet.f90:1910:5:
12282 continue 1329
1
Warning: Label 12282 at (1) defined but not used
newGLMnet.f90:1907:5:
12280 do 12281 j=1,ni 1328
1
Warning: Label 12280 at (1) defined but not used
newGLMnet.f90:1902:5:
12250 continue 1326
1
Warning: Label 12250 at (1) defined but not used
newGLMnet.f90:1900:5:
12242 continue 1325
1
Warning: Label 12242 at (1) defined but not used
newGLMnet.f90:1895:5:
12240 do 12241 k=1,ni 1322
1
Warning: Label 12240 at (1) defined but not used
newGLMnet.f90:1887:5:
12232 continue 1319
1
Warning: Label 12232 at (1) defined but not used
newGLMnet.f90:1883:5:
12230 do 12231 j=1,ni 1318
1
Warning: Label 12230 at (1) defined but not used
newGLMnet.f90:1870:5:
12170 do 12171 ilm=1,nlam 1313
1
Warning: Label 12170 at (1) defined but not used
newGLMnet.f90:1869:5:
12162 continue 1313
1
Warning: Label 12162 at (1) defined but not used
newGLMnet.f90:1865:5:
12160 do 12161 j=1,ni 1312
1
Warning: Label 12160 at (1) defined but not used
newGLMnet.f90:1852:5:
12132 continue 1309
1
Warning: Label 12132 at (1) defined but not used
newGLMnet.f90:1848:5:
12130 do 12131 i=1,no 1306
1
Warning: Label 12130 at (1) defined but not used
newGLMnet.f90:1843:5:
12122 continue 1303
1
Warning: Label 12122 at (1) defined but not used
newGLMnet.f90:1840:5:
12120 do 12121 j=1,ni 1303
1
Warning: Label 12120 at (1) defined but not used
newGLMnet.f90:1845:5:
12091 continue 1304
1
Warning: Label 12091 at (1) defined but not used
newGLMnet.f90:1834:5:
12041 continue 1301
1
Warning: Label 12041 at (1) defined but not used
newGLMnet.f90:4418:5:
17032 continue 2498
1
Warning: Label 17032 at (1) defined but not used
newGLMnet.f90:4412:5:
17030 do 17031 i=1,n 2497
1
Warning: Label 17030 at (1) defined but not used
newGLMnet.f90:2091:5:
12660 continue 1414
1
Warning: Label 12660 at (1) defined but not used
newGLMnet.f90:2073:5:
12652 continue 1400
1
Warning: Label 12652 at (1) defined but not used
newGLMnet.f90:2069:5:
12650 do 12651 i=1,n 1397
1
Warning: Label 12650 at (1) defined but not used
newGLMnet.f90:2497:5:
13542 continue 1596
1
Warning: Label 13542 at (1) defined but not used
newGLMnet.f90:2494:5:
13540 do 13541 i=1,no 1595
1
Warning: Label 13540 at (1) defined but not used
newGLMnet.f90:2478:5:
13532 continue 1588
1
Warning: Label 13532 at (1) defined but not used
newGLMnet.f90:2474:5:
13530 do 13531 i=1,no 1585
1
Warning: Label 13530 at (1) defined but not used
newGLMnet.f90:2480:5:
13522 continue 1589
1
Warning: Label 13522 at (1) defined but not used
newGLMnet.f90:2471:5:
13520 do 13521 ic=1,nc 1584
1
Warning: Label 13520 at (1) defined but not used
newGLMnet.f90:2460:5:
13472 continue 1578
1
Warning: Label 13472 at (1) defined but not used
newGLMnet.f90:2452:5:
13470 do 13471 k=1,ni 1575
1
Warning: Label 13470 at (1) defined but not used
newGLMnet.f90:2449:5:
13462 continue 1574
1
Warning: Label 13462 at (1) defined but not used
newGLMnet.f90:2444:5:
13460 do 13461 k=1,ni 1571
1
Warning: Label 13460 at (1) defined but not used
newGLMnet.f90:2451:5:
13452 continue 1575
1
Warning: Label 13452 at (1) defined but not used
newGLMnet.f90:2442:5:
13450 do 13451 ic=1,nc 1570
1
Warning: Label 13450 at (1) defined but not used
newGLMnet.f90:2441:5:
13442 continue 1570
1
Warning: Label 13442 at (1) defined but not used
newGLMnet.f90:2436:5:
13440 do 13441 k=1,ni 1569
1
Warning: Label 13440 at (1) defined but not used
newGLMnet.f90:2432:5:
13412 continue 1567
1
Warning: Label 13412 at (1) defined but not used
newGLMnet.f90:2429:5:
13410 do 13411 ic=1,nc 1566
1
Warning: Label 13410 at (1) defined but not used
newGLMnet.f90:2422:5:
13381 continue 1564
1
Warning: Label 13381 at (1) defined but not used
newGLMnet.f90:2426:5:
13372 continue 1566
1
Warning: Label 13372 at (1) defined but not used
newGLMnet.f90:2414:5:
13370 do 13371 j=1,nin 1561
1
Warning: Label 13370 at (1) defined but not used
newGLMnet.f90:2408:5:
13362 continue 1559
1
Warning: Label 13362 at (1) defined but not used
newGLMnet.f90:2400:5:
13360 do 13361 i=1,no 1552
1
Warning: Label 13360 at (1) defined but not used
newGLMnet.f90:2391:5:
13330 do 13331 j=1,nin 1548
1
Warning: Label 13330 at (1) defined but not used
newGLMnet.f90:2366:5:
13241 continue 1535
1
Warning: Label 13241 at (1) defined but not used
newGLMnet.f90:2372:5:
13232 continue 1538
1
Warning: Label 13232 at (1) defined but not used
newGLMnet.f90:2354:5:
13230 do 13231 l=1,nin 1530
1
Warning: Label 13230 at (1) defined but not used
newGLMnet.f90:2350:5:
13220 continue 1529
1
Warning: Label 13220 at (1) defined but not used
newGLMnet.f90:2322:5:
13111 continue 1517
1
Warning: Label 13111 at (1) defined but not used
newGLMnet.f90:2310:5:
13100 do 13101 k=1,ni 1512
1
Warning: Label 13100 at (1) defined but not used
newGLMnet.f90:2306:5:
13090 continue 1511
1
Warning: Label 13090 at (1) defined but not used
newGLMnet.f90:2304:5:
13082 continue 1510
1
Warning: Label 13082 at (1) defined but not used
newGLMnet.f90:2301:5:
13080 do 13081 j=1,ni 1509
1
Warning: Label 13080 at (1) defined but not used
newGLMnet.f90:2297:5:
13012 continue 1507
1
Warning: Label 13012 at (1) defined but not used
newGLMnet.f90:2280:5:
13010 do 13011 i=1,no 1501
1
Warning: Label 13010 at (1) defined but not used
newGLMnet.f90:2276:5:
13000 do 13001 ic=1,nc 1498
1
Warning: Label 13000 at (1) defined but not used
newGLMnet.f90:2271:5:
12990 continue 1497
1
Warning: Label 12990 at (1) defined but not used
newGLMnet.f90:2269:5:
12982 continue 1496
1
Warning: Label 12982 at (1) defined but not used
newGLMnet.f90:2264:5:
12980 do 12981 k=1,ni 1493
1
Warning: Label 12980 at (1) defined but not used
newGLMnet.f90:2256:5:
12972 continue 1490
1
Warning: Label 12972 at (1) defined but not used
newGLMnet.f90:2252:5:
12970 do 12971 j=1,ni 1489
1
Warning: Label 12970 at (1) defined but not used
newGLMnet.f90:2239:5:
12910 do 12911 ilm=1,nlam 1484
1
Warning: Label 12910 at (1) defined but not used
newGLMnet.f90:2236:5:
12902 continue 1483
1
Warning: Label 12902 at (1) defined but not used
newGLMnet.f90:2233:5:
12900 do 12901 j=1,ni 1482
1
Warning: Label 12900 at (1) defined but not used
newGLMnet.f90:2238:5:
12892 continue 1484
1
Warning: Label 12892 at (1) defined but not used
newGLMnet.f90:2231:5:
12890 do 12891 ic=1,nc 1481
1
Warning: Label 12890 at (1) defined but not used
newGLMnet.f90:2215:5:
12862 continue 1476
1
Warning: Label 12862 at (1) defined but not used
newGLMnet.f90:2212:5:
12860 do 12861 j=1,ni 1476
1
Warning: Label 12860 at (1) defined but not used
newGLMnet.f90:2217:5:
12831 continue 1477
1
Warning: Label 12831 at (1) defined but not used
newGLMnet.f90:2203:5:
12802 continue 1472
1
Warning: Label 12802 at (1) defined but not used
newGLMnet.f90:2200:5:
12800 do 12801 i=1,no 1472
1
Warning: Label 12800 at (1) defined but not used
newGLMnet.f90:2205:5:
12792 continue 1473
1
Warning: Label 12792 at (1) defined but not used
newGLMnet.f90:2199:5:
12790 do 12791 ic=1,nc 1472
1
Warning: Label 12790 at (1) defined but not used
newGLMnet.f90:2196:5:
12782 continue 1471
1
Warning: Label 12782 at (1) defined but not used
newGLMnet.f90:2193:5:
12780 do 12781 ic=1,nc 1470
1
Warning: Label 12780 at (1) defined but not used
newGLMnet.f90:2191:5:
12772 continue 1470
1
Warning: Label 12772 at (1) defined but not used
newGLMnet.f90:2185:5:
12770 do 12771 ic=1,nc 1466
1
Warning: Label 12770 at (1) defined but not used
newGLMnet.f90:2180:5:
12762 continue 1463
1
Warning: Label 12762 at (1) defined but not used
newGLMnet.f90:2177:5:
12760 do 12761 i=1,no 1463
1
Warning: Label 12760 at (1) defined but not used
newGLMnet.f90:2174:5:
12742 continue 1462
1
Warning: Label 12742 at (1) defined but not used
newGLMnet.f90:2170:5:
12740 do 12741 ic=1,nc 1461
1
Warning: Label 12740 at (1) defined but not used
newGLMnet.f90:2198:5:
12721 continue 1472
1
Warning: Label 12721 at (1) defined but not used
newGLMnet.f90:2164:5:
12672 continue 1458
1
Warning: Label 12672 at (1) defined but not used
newGLMnet.f90:2150:5:
12670 do 12671 ic=1,nc 1453
1
Warning: Label 12670 at (1) defined but not used
newGLMnet.f90:2537:5:
13592 continue 1617
1
Warning: Label 13592 at (1) defined but not used
newGLMnet.f90:2532:5:
13590 do 13591 i=1,n 1616
1
Warning: Label 13590 at (1) defined but not used
newGLMnet.f90:2527:5:
13582 continue 1615
1
Warning: Label 13582 at (1) defined but not used
newGLMnet.f90:2522:5:
13580 do 13581 i=1,n 1612
1
Warning: Label 13580 at (1) defined but not used
newGLMnet.f90:2539:5:
13572 continue 1618
1
Warning: Label 13572 at (1) defined but not used
newGLMnet.f90:2519:5:
13570 do 13571 k=1,kk 1611
1
Warning: Label 13570 at (1) defined but not used
newGLMnet.f90:2516:5:
13560 continue 1610
1
Warning: Label 13560 at (1) defined but not used
newGLMnet.f90:2515:5:
13552 continue 1610
1
Warning: Label 13552 at (1) defined but not used
newGLMnet.f90:2512:5:
13550 do 13551 i=1,n 1609
1
Warning: Label 13550 at (1) defined but not used
newGLMnet.f90:2621:5:
13772 continue 1645
1
Warning: Label 13772 at (1) defined but not used
newGLMnet.f90:2611:5:
13770 do 13771 k=k1+1,k2 1641
1
Warning: Label 13770 at (1) defined but not used
newGLMnet.f90:2593:5:
13720 do 13721 k=k1,k2-1 1636
1
Warning: Label 13720 at (1) defined but not used
newGLMnet.f90:2585:5:
13710 continue 1634
1
Warning: Label 13710 at (1) defined but not used
newGLMnet.f90:2579:5:
13700 continue 1633
1
Warning: Label 13700 at (1) defined but not used
newGLMnet.f90:2571:5:
13651 continue 1631
1
Warning: Label 13651 at (1) defined but not used
newGLMnet.f90:2559:5:
13622 continue 1627
1
Warning: Label 13622 at (1) defined but not used
newGLMnet.f90:2556:5:
13620 do 13621 i=1,n 1627
1
Warning: Label 13620 at (1) defined but not used
newGLMnet.f90:2637:5:
13812 continue 1652
1
Warning: Label 13812 at (1) defined but not used
newGLMnet.f90:2630:5:
13810 do 13811 j=1,nin 1650
1
Warning: Label 13810 at (1) defined but not used
newGLMnet.f90:2639:5:
13802 continue 1653
1
Warning: Label 13802 at (1) defined but not used
newGLMnet.f90:2629:5:
13800 do 13801 ic=1,nc 1650
1
Warning: Label 13800 at (1) defined but not used
newGLMnet.f90:2649:5:
13822 continue 1659
1
Warning: Label 13822 at (1) defined but not used
newGLMnet.f90:2646:5:
13820 do 13821 ic=1,nc 1658
1
Warning: Label 13820 at (1) defined but not used
newGLMnet.f90:2661:5:
13842 continue 1666
1
Warning: Label 13842 at (1) defined but not used
newGLMnet.f90:2656:5:
13840 do 13841 ic=1,nc 1663
1
Warning: Label 13840 at (1) defined but not used
newGLMnet.f90:2663:5:
13832 continue 1667
1
Warning: Label 13832 at (1) defined but not used
newGLMnet.f90:2655:5:
13830 do 13831 i=1,nt 1663
1
Warning: Label 13830 at (1) defined but not used
newGLMnet.f90:2724:5:
13972 continue 1701
1
Warning: Label 13972 at (1) defined but not used
newGLMnet.f90:2721:5:
13970 do 13971 l=1,nk 1701
1
Warning: Label 13970 at (1) defined but not used
newGLMnet.f90:2728:5:
13942 continue 1704
1
Warning: Label 13942 at (1) defined but not used
newGLMnet.f90:2719:5:
13940 do 13941 ic=1,nc 1701
1
Warning: Label 13940 at (1) defined but not used
newGLMnet.f90:2730:5:
13932 continue 1705
1
Warning: Label 13932 at (1) defined but not used
newGLMnet.f90:2717:5:
13930 do 13931 k=1,lmu 1700
1
Warning: Label 13930 at (1) defined but not used
newGLMnet.f90:2714:5:
13901 continue 1699
1
Warning: Label 13901 at (1) defined but not used
newGLMnet.f90:2700:5:
13892 continue 1689
1
Warning: Label 13892 at (1) defined but not used
newGLMnet.f90:2696:5:
13890 do 13891 i=1,no 1689
1
Warning: Label 13890 at (1) defined but not used
newGLMnet.f90:2745:5:
13982 continue 1714
1
Warning: Label 13982 at (1) defined but not used
newGLMnet.f90:2737:5:
13980 do 13981 j=1,ni 1710
1
Warning: Label 13980 at (1) defined but not used
newGLMnet.f90:3090:5:
14642 continue 1874
1
Warning: Label 14642 at (1) defined but not used
newGLMnet.f90:3087:5:
14640 do 14641 j=1,nin 1874
1
Warning: Label 14640 at (1) defined but not used
newGLMnet.f90:3066:5:
14592 continue 1863
1
Warning: Label 14592 at (1) defined but not used
newGLMnet.f90:3052:5:
14590 do 14591 j=1,ni 1856
1
Warning: Label 14590 at (1) defined but not used
newGLMnet.f90:3044:5:
14560 do 14561 j=1,nin 1852
1
Warning: Label 14560 at (1) defined but not used
newGLMnet.f90:3035:5:
14492 continue 1849
1
Warning: Label 14492 at (1) defined but not used
newGLMnet.f90:3022:5:
14490 do 14491 i=1,no 1845
1
Warning: Label 14490 at (1) defined but not used
newGLMnet.f90:3020:5:
14482 continue 1844
1
Warning: Label 14482 at (1) defined but not used
newGLMnet.f90:3013:5:
14480 do 14481 j=1,nin 1840
1
Warning: Label 14480 at (1) defined but not used
newGLMnet.f90:2985:5:
14411 continue 1827
1
Warning: Label 14411 at (1) defined but not used
newGLMnet.f90:2993:5:
14402 continue 1832
1
Warning: Label 14402 at (1) defined but not used
newGLMnet.f90:2968:5:
14400 do 14401 l=1,nin 1819
1
Warning: Label 14400 at (1) defined but not used
newGLMnet.f90:2964:5:
14390 continue 1818
1
Warning: Label 14390 at (1) defined but not used
newGLMnet.f90:2934:5:
14301 continue 1804
1
Warning: Label 14301 at (1) defined but not used
newGLMnet.f90:2917:5:
14290 do 14291 k=1,ni 1796
1
Warning: Label 14290 at (1) defined but not used
newGLMnet.f90:2913:5:
14280 continue 1795
1
Warning: Label 14280 at (1) defined but not used
newGLMnet.f90:2912:5:
14252 continue 1795
1
Warning: Label 14252 at (1) defined but not used
newGLMnet.f90:2900:5:
14250 do 14251 j=1,ni 1786
1
Warning: Label 14250 at (1) defined but not used
newGLMnet.f90:2896:5:
14240 continue 1785
1
Warning: Label 14240 at (1) defined but not used
newGLMnet.f90:2894:5:
14232 continue 1784
1
Warning: Label 14232 at (1) defined but not used
newGLMnet.f90:2889:5:
14230 do 14231 k=1,ni 1781
1
Warning: Label 14230 at (1) defined but not used
newGLMnet.f90:2881:5:
14222 continue 1778
1
Warning: Label 14222 at (1) defined but not used
newGLMnet.f90:2877:5:
14220 do 14221 j=1,ni 1777
1
Warning: Label 14220 at (1) defined but not used
newGLMnet.f90:2864:5:
14160 do 14161 ilm=1,nlam 1772
1
Warning: Label 14160 at (1) defined but not used
newGLMnet.f90:2863:5:
14152 continue 1772
1
Warning: Label 14152 at (1) defined but not used
newGLMnet.f90:2854:5:
14150 do 14151 j=1,ni 1766
1
Warning: Label 14150 at (1) defined but not used
newGLMnet.f90:2837:5:
14122 continue 1763
1
Warning: Label 14122 at (1) defined but not used
newGLMnet.f90:2833:5:
14120 do 14121 i=1,no 1760
1
Warning: Label 14120 at (1) defined but not used
newGLMnet.f90:2827:5:
14112 continue 1757
1
Warning: Label 14112 at (1) defined but not used
newGLMnet.f90:2821:5:
14110 do 14111 j=1,ni 1754
1
Warning: Label 14110 at (1) defined but not used
newGLMnet.f90:2829:5:
14081 continue 1758
1
Warning: Label 14081 at (1) defined but not used
newGLMnet.f90:2815:5:
14031 continue 1751
1
Warning: Label 14031 at (1) defined but not used
newGLMnet.f90:3551:5:
15522 continue 2093
1
Warning: Label 15522 at (1) defined but not used
newGLMnet.f90:3548:5:
15520 do 15521 i=1,no 2092
1
Warning: Label 15520 at (1) defined but not used
newGLMnet.f90:3532:5:
15512 continue 2085
1
Warning: Label 15512 at (1) defined but not used
newGLMnet.f90:3528:5:
15510 do 15511 i=1,no 2082
1
Warning: Label 15510 at (1) defined but not used
newGLMnet.f90:3534:5:
15502 continue 2086
1
Warning: Label 15502 at (1) defined but not used
newGLMnet.f90:3525:5:
15500 do 15501 ic=1,nc 2081
1
Warning: Label 15500 at (1) defined but not used
newGLMnet.f90:3514:5:
15452 continue 2075
1
Warning: Label 15452 at (1) defined but not used
newGLMnet.f90:3506:5:
15450 do 15451 k=1,ni 2072
1
Warning: Label 15450 at (1) defined but not used
newGLMnet.f90:3503:5:
15442 continue 2071
1
Warning: Label 15442 at (1) defined but not used
newGLMnet.f90:3493:5:
15440 do 15441 j=1,ni 2065
1
Warning: Label 15440 at (1) defined but not used
newGLMnet.f90:3505:5:
15432 continue 2072
1
Warning: Label 15432 at (1) defined but not used
newGLMnet.f90:3489:5:
15430 do 15431 ic=1,nc 2064
1
Warning: Label 15430 at (1) defined but not used
newGLMnet.f90:3488:5:
15422 continue 2064
1
Warning: Label 15422 at (1) defined but not used
newGLMnet.f90:3483:5:
15420 do 15421 j=1,ni 2063
1
Warning: Label 15420 at (1) defined but not used
newGLMnet.f90:3479:5:
15392 continue 2061
1
Warning: Label 15392 at (1) defined but not used
newGLMnet.f90:3476:5:
15390 do 15391 ic=1,nc 2060
1
Warning: Label 15390 at (1) defined but not used
newGLMnet.f90:3465:5:
15361 continue 2055
1
Warning: Label 15361 at (1) defined but not used
newGLMnet.f90:3472:5:
15352 continue 2060
1
Warning: Label 15352 at (1) defined but not used
newGLMnet.f90:3457:5:
15350 do 15351 j=1,nin 2052
1
Warning: Label 15350 at (1) defined but not used
newGLMnet.f90:3446:5:
15342 continue 2046
1
Warning: Label 15342 at (1) defined but not used
newGLMnet.f90:3439:5:
15340 do 15341 j=1,nin 2042
1
Warning: Label 15340 at (1) defined but not used
newGLMnet.f90:3428:5:
15310 do 15311 j=1,nin 2037
1
Warning: Label 15310 at (1) defined but not used
newGLMnet.f90:3400:5:
15221 continue 2021
1
Warning: Label 15221 at (1) defined but not used
newGLMnet.f90:3408:5:
15212 continue 2027
1
Warning: Label 15212 at (1) defined but not used
newGLMnet.f90:3383:5:
15210 do 15211 l=1,nin 2013
1
Warning: Label 15210 at (1) defined but not used
newGLMnet.f90:3379:5:
15200 continue 2012
1
Warning: Label 15200 at (1) defined but not used
newGLMnet.f90:3347:5:
15091 continue 1995
1
Warning: Label 15091 at (1) defined but not used
newGLMnet.f90:3330:5:
15080 do 15081 k=1,ni 1987
1
Warning: Label 15080 at (1) defined but not used
newGLMnet.f90:3326:5:
15070 continue 1986
1
Warning: Label 15070 at (1) defined but not used
newGLMnet.f90:3325:5:
15042 continue 1986
1
Warning: Label 15042 at (1) defined but not used
newGLMnet.f90:3315:5:
15040 do 15041 j=1,ni 1978
1
Warning: Label 15040 at (1) defined but not used
newGLMnet.f90:3312:5:
14992 continue 1977
1
Warning: Label 14992 at (1) defined but not used
newGLMnet.f90:3294:5:
14990 do 14991 i=1,no 1971
1
Warning: Label 14990 at (1) defined but not used
newGLMnet.f90:3288:5:
14980 do 14981 ic=1,nc 1968
1
Warning: Label 14980 at (1) defined but not used
newGLMnet.f90:3283:5:
14970 continue 1967
1
Warning: Label 14970 at (1) defined but not used
newGLMnet.f90:3281:5:
14962 continue 1966
1
Warning: Label 14962 at (1) defined but not used
newGLMnet.f90:3276:5:
14960 do 14961 k=1,ni 1963
1
Warning: Label 14960 at (1) defined but not used
newGLMnet.f90:3268:5:
14952 continue 1960
1
Warning: Label 14952 at (1) defined but not used
newGLMnet.f90:3264:5:
14950 do 14951 j=1,ni 1959
1
Warning: Label 14950 at (1) defined but not used
newGLMnet.f90:3251:5:
14890 do 14891 ilm=1,nlam 1954
1
Warning: Label 14890 at (1) defined but not used
newGLMnet.f90:3248:5:
14882 continue 1953
1
Warning: Label 14882 at (1) defined but not used
newGLMnet.f90:3239:5:
14880 do 14881 j=1,ni 1947
1
Warning: Label 14880 at (1) defined but not used
newGLMnet.f90:3250:5:
14872 continue 1954
1
Warning: Label 14872 at (1) defined but not used
newGLMnet.f90:3235:5:
14870 do 14871 ic=1,nc 1946
1
Warning: Label 14870 at (1) defined but not used
newGLMnet.f90:3217:5:
14842 continue 1941
1
Warning: Label 14842 at (1) defined but not used
newGLMnet.f90:3211:5:
14840 do 14841 j=1,ni 1938
1
Warning: Label 14840 at (1) defined but not used
newGLMnet.f90:3219:5:
14811 continue 1942
1
Warning: Label 14811 at (1) defined but not used
newGLMnet.f90:3202:5:
14782 continue 1933
1
Warning: Label 14782 at (1) defined but not used
newGLMnet.f90:3199:5:
14780 do 14781 i=1,no 1933
1
Warning: Label 14780 at (1) defined but not used
newGLMnet.f90:3204:5:
14772 continue 1934
1
Warning: Label 14772 at (1) defined but not used
newGLMnet.f90:3198:5:
14770 do 14771 ic=1,nc 1933
1
Warning: Label 14770 at (1) defined but not used
newGLMnet.f90:3195:5:
14762 continue 1932
1
Warning: Label 14762 at (1) defined but not used
newGLMnet.f90:3192:5:
14760 do 14761 ic=1,nc 1931
1
Warning: Label 14760 at (1) defined but not used
newGLMnet.f90:3190:5:
14752 continue 1931
1
Warning: Label 14752 at (1) defined but not used
newGLMnet.f90:3184:5:
14750 do 14751 ic=1,nc 1927
1
Warning: Label 14750 at (1) defined but not used
newGLMnet.f90:3179:5:
14742 continue 1924
1
Warning: Label 14742 at (1) defined but not used
newGLMnet.f90:3176:5:
14740 do 14741 i=1,no 1924
1
Warning: Label 14740 at (1) defined but not used
newGLMnet.f90:3173:5:
14722 continue 1923
1
Warning: Label 14722 at (1) defined but not used
newGLMnet.f90:3169:5:
14720 do 14721 ic=1,nc 1922
1
Warning: Label 14720 at (1) defined but not used
newGLMnet.f90:3197:5:
14701 continue 1933
1
Warning: Label 14701 at (1) defined but not used
newGLMnet.f90:3163:5:
14652 continue 1919
1
Warning: Label 14652 at (1) defined but not used
newGLMnet.f90:3149:5:
14650 do 14651 ic=1,nc 1914
1
Warning: Label 14650 at (1) defined but not used
newGLMnet.f90:3569:5:
15552 continue 2101
1
Warning: Label 15552 at (1) defined but not used
newGLMnet.f90:3566:5:
15550 do 15551 ic=1,nc 2100
1
Warning: Label 15550 at (1) defined but not used
newGLMnet.f90:3571:5:
15542 continue 2102
1
Warning: Label 15542 at (1) defined but not used
newGLMnet.f90:3562:5:
15540 do 15541 j=1,nin 2099
1
Warning: Label 15540 at (1) defined but not used
newGLMnet.f90:3561:5:
15532 continue 2099
1
Warning: Label 15532 at (1) defined but not used
newGLMnet.f90:3558:5:
15530 do 15531 ic=1,nc 2098
1
Warning: Label 15530 at (1) defined but not used
newGLMnet.f90:3620:5:
15662 continue 2129
1
Warning: Label 15662 at (1) defined but not used
newGLMnet.f90:3616:5:
15660 do 15661 k=1,lmu 2129
1
Warning: Label 15660 at (1) defined but not used
newGLMnet.f90:3638:5:
15672 continue 2139
1
Warning: Label 15672 at (1) defined but not used
newGLMnet.f90:3629:5:
15670 do 15671 j=1,ni 2135
1
Warning: Label 15670 at (1) defined but not used
newGLMnet.f90:3880:5:
16182 continue 2248
1
Warning: Label 16182 at (1) defined but not used
newGLMnet.f90:3877:5:
16180 do 16181 j=1,nin 2248
1
Warning: Label 16180 at (1) defined but not used
newGLMnet.f90:3859:5:
16132 continue 2239
1
Warning: Label 16132 at (1) defined but not used
newGLMnet.f90:3850:5:
16130 do 16131 k=1,ni 2235
1
Warning: Label 16130 at (1) defined but not used
newGLMnet.f90:3842:5:
16100 do 16101 j=1,nin 2232
1
Warning: Label 16100 at (1) defined but not used
newGLMnet.f90:3815:5:
16011 continue 2220
1
Warning: Label 16011 at (1) defined but not used
newGLMnet.f90:3824:5:
16002 continue 2224
1
Warning: Label 16002 at (1) defined but not used
newGLMnet.f90:3806:5:
16000 do 16001 l=1,nin 2216
1
Warning: Label 16000 at (1) defined but not used
newGLMnet.f90:3802:5:
15990 continue 2215
1
Warning: Label 15990 at (1) defined but not used
newGLMnet.f90:3780:5:
15901 continue 2206
1
Warning: Label 15901 at (1) defined but not used
newGLMnet.f90:3771:5:
15890 do 15891 j=1,ni 2202
1
Warning: Label 15890 at (1) defined but not used
newGLMnet.f90:3767:5:
15880 continue 2201
1
Warning: Label 15880 at (1) defined but not used
newGLMnet.f90:3763:5:
15870 continue 2199
1
Warning: Label 15870 at (1) defined but not used
newGLMnet.f90:3761:5:
15862 continue 2198
1
Warning: Label 15862 at (1) defined but not used
newGLMnet.f90:3756:5:
15860 do 15861 k=1,ni 2195
1
Warning: Label 15860 at (1) defined but not used
newGLMnet.f90:3748:5:
15852 continue 2192
1
Warning: Label 15852 at (1) defined but not used
newGLMnet.f90:3744:5:
15850 do 15851 j=1,ni 2191
1
Warning: Label 15850 at (1) defined but not used
newGLMnet.f90:3731:5:
15790 do 15791 ilm=1,nlam 2186
1
Warning: Label 15790 at (1) defined but not used
newGLMnet.f90:3730:5:
15782 continue 2186
1
Warning: Label 15782 at (1) defined but not used
newGLMnet.f90:3726:5:
15780 do 15781 j=1,ni 2185
1
Warning: Label 15780 at (1) defined but not used
newGLMnet.f90:3712:5:
15732 continue 2181
1
Warning: Label 15732 at (1) defined but not used
newGLMnet.f90:3706:5:
15730 do 15731 i=1,no 2180
1
Warning: Label 15730 at (1) defined but not used
newGLMnet.f90:3702:5:
15701 continue 2178
1
Warning: Label 15701 at (1) defined but not used
newGLMnet.f90:3945:5:
16290 continue 2272
1
Warning: Label 16290 at (1) defined but not used
newGLMnet.f90:3943:5:
16280 continue 2271
1
Warning: Label 16280 at (1) defined but not used
newGLMnet.f90:3937:5:
16272 continue 2270
1
Warning: Label 16272 at (1) defined but not used
newGLMnet.f90:3934:5:
16270 do 16271 j=1,nj 2269
1
Warning: Label 16270 at (1) defined but not used
newGLMnet.f90:3922:5:
16240 continue 2267
1
Warning: Label 16240 at (1) defined but not used
newGLMnet.f90:3916:5:
16212 continue 2266
1
Warning: Label 16212 at (1) defined but not used
newGLMnet.f90:3911:5:
16210 do 16211 j=1,no 2265
1
Warning: Label 16210 at (1) defined but not used
newGLMnet.f90:3908:5:
16202 continue 2264
1
Warning: Label 16202 at (1) defined but not used
newGLMnet.f90:3905:5:
16200 do 16201 j=1,no 2264
1
Warning: Label 16200 at (1) defined but not used
newGLMnet.f90:4018:5:
16402 continue 2306
1
Warning: Label 16402 at (1) defined but not used
newGLMnet.f90:4015:5:
16400 do 16401 k=2,nk 2305
1
Warning: Label 16400 at (1) defined but not used
newGLMnet.f90:4032:5:
16422 continue 2314
1
Warning: Label 16422 at (1) defined but not used
newGLMnet.f90:4029:5:
16420 do 16421 j=j2,j1,-1 2313
1
Warning: Label 16420 at (1) defined but not used
newGLMnet.f90:4035:5:
16412 continue 2316
1
Warning: Label 16412 at (1) defined but not used
newGLMnet.f90:4025:5:
16410 do 16411 k=nk,1,-1 2311
1
Warning: Label 16410 at (1) defined but not used
newGLMnet.f90:3997:5:
16362 continue 2294
1
Warning: Label 16362 at (1) defined but not used
newGLMnet.f90:3988:5:
16360 do 16361 j=j1,j2 2290
1
Warning: Label 16360 at (1) defined but not used
newGLMnet.f90:3999:5:
16352 continue 2295
1
Warning: Label 16352 at (1) defined but not used
newGLMnet.f90:3983:5:
16350 do 16351 k=2,nk 2288
1
Warning: Label 16350 at (1) defined but not used
newGLMnet.f90:3982:5:
16322 continue 2288
1
Warning: Label 16322 at (1) defined but not used
newGLMnet.f90:3973:5:
16320 do 16321 j=1,kp(1) 2284
1
Warning: Label 16320 at (1) defined but not used
newGLMnet.f90:4008:5:
16392 continue 2300
1
Warning: Label 16392 at (1) defined but not used
newGLMnet.f90:4005:5:
16390 do 16391 j=1,ni 2299
1
Warning: Label 16390 at (1) defined but not used
newGLMnet.f90:3899:5:
16192 continue 2260
1
Warning: Label 16192 at (1) defined but not used
newGLMnet.f90:3896:5:
16190 do 16191 i=1,n 2259
1
Warning: Label 16190 at (1) defined but not used
newGLMnet.f90:4091:5:
16472 continue 2352
1
Warning: Label 16472 at (1) defined but not used
newGLMnet.f90:4087:5:
16470 do 16471 i=1,no 2349
1
Warning: Label 16470 at (1) defined but not used
newGLMnet.f90:4094:5:
16462 continue 2354
1
Warning: Label 16462 at (1) defined but not used
newGLMnet.f90:4086:5:
16460 do 16461 lam=1,nlam 2349
1
Warning: Label 16460 at (1) defined but not used
newGLMnet.f90:4085:5:
16452 continue 2348
1
Warning: Label 16452 at (1) defined but not used
newGLMnet.f90:4082:5:
16450 do 16451 j=1,ni 2347
1
Warning: Label 16450 at (1) defined but not used
newGLMnet.f90:4151:5:
16582 continue 2388
1
Warning: Label 16582 at (1) defined but not used
newGLMnet.f90:4146:5:
16580 do 16581 k=1,lmu 2384
1
Warning: Label 16580 at (1) defined but not used
newGLMnet.f90:4398:5:
17022 continue 2487
1
Warning: Label 17022 at (1) defined but not used
newGLMnet.f90:4395:5:
17020 do 17021 j=1,nin 2487
1
Warning: Label 17020 at (1) defined but not used
newGLMnet.f90:4375:5:
16972 continue 2477
1
Warning: Label 16972 at (1) defined but not used
newGLMnet.f90:4366:5:
16970 do 16971 k=1,ni 2473
1
Warning: Label 16970 at (1) defined but not used
newGLMnet.f90:4358:5:
16940 do 16941 j=1,nin 2469
1
Warning: Label 16940 at (1) defined but not used
newGLMnet.f90:4330:5:
16871 continue 2459
1
Warning: Label 16871 at (1) defined but not used
newGLMnet.f90:4337:5:
16862 continue 2462
1
Warning: Label 16862 at (1) defined but not used
newGLMnet.f90:4319:5:
16860 do 16861 l=1,nin 2455
1
Warning: Label 16860 at (1) defined but not used
newGLMnet.f90:4315:5:
16850 continue 2454
1
Warning: Label 16850 at (1) defined but not used
newGLMnet.f90:4290:5:
16781 continue 2445
1
Warning: Label 16781 at (1) defined but not used
newGLMnet.f90:4279:5:
16770 do 16771 k=1,ni 2441
1
Warning: Label 16770 at (1) defined but not used
newGLMnet.f90:4275:5:
16760 continue 2440
1
Warning: Label 16760 at (1) defined but not used
newGLMnet.f90:4274:5:
16752 continue 2440
1
Warning: Label 16752 at (1) defined but not used
newGLMnet.f90:4271:5:
16750 do 16751 j=1,ni 2439
1
Warning: Label 16750 at (1) defined but not used
newGLMnet.f90:4267:5:
16740 continue 2437
1
Warning: Label 16740 at (1) defined but not used
newGLMnet.f90:4265:5:
16732 continue 2436
1
Warning: Label 16732 at (1) defined but not used
newGLMnet.f90:4260:5:
16730 do 16731 k=1,ni 2433
1
Warning: Label 16730 at (1) defined but not used
newGLMnet.f90:4252:5:
16722 continue 2430
1
Warning: Label 16722 at (1) defined but not used
newGLMnet.f90:4248:5:
16720 do 16721 j=1,ni 2429
1
Warning: Label 16720 at (1) defined but not used
newGLMnet.f90:4235:5:
16660 do 16661 ilm=1,nlam 2424
1
Warning: Label 16660 at (1) defined but not used
newGLMnet.f90:4234:5:
16652 continue 2424
1
Warning: Label 16652 at (1) defined but not used
newGLMnet.f90:4230:5:
16650 do 16651 j=1,ni 2423
1
Warning: Label 16650 at (1) defined but not used
newGLMnet.f90:4215:5:
16622 continue 2420
1
Warning: Label 16622 at (1) defined but not used
newGLMnet.f90:4212:5:
16620 do 16621 i=1,no 2420
1
Warning: Label 16620 at (1) defined but not used
newGLMnet.f90:4206:5:
16591 continue 2419
1
Warning: Label 16591 at (1) defined but not used
newGLMnet.f90:4405:5:
11790 continue 2492
1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4427:5:
17062 continue 2503
1
Warning: Label 17062 at (1) defined but not used
newGLMnet.f90:4424:5:
17060 do 17061 lam=1,lmu 2502
1
Warning: Label 17060 at (1) defined but not used
newGLMnet.f90:4436:5:
17072 continue 2508
1
Warning: Label 17072 at (1) defined but not used
newGLMnet.f90:4433:5:
17070 do 17071 lam=1,lmu 2507
1
Warning: Label 17070 at (1) defined but not used
newGLMnet.f90:4463:5:
17132 continue 2524
1
Warning: Label 17132 at (1) defined but not used
newGLMnet.f90:4458:5:
17130 do 17131 i=1,no 2520
1
Warning: Label 17130 at (1) defined but not used
newGLMnet.f90:4466:5:
17122 continue 2526
1
Warning: Label 17122 at (1) defined but not used
newGLMnet.f90:4456:5:
17120 do 17121 lam=1,nlam 2519
1
Warning: Label 17120 at (1) defined but not used
newGLMnet.f90:4521:5:
17222 continue 2560
1
Warning: Label 17222 at (1) defined but not used
newGLMnet.f90:4516:5:
17220 do 17221 k=1,lmu 2556
1
Warning: Label 17220 at (1) defined but not used
newGLMnet.f90:4805:5:
17672 continue 2689
1
Warning: Label 17672 at (1) defined but not used
newGLMnet.f90:4802:5:
17670 do 17671 j=1,nin 2689
1
Warning: Label 17670 at (1) defined but not used
newGLMnet.f90:4782:5:
17622 continue 2679
1
Warning: Label 17622 at (1) defined but not used
newGLMnet.f90:4769:5:
17620 do 17621 j=1,ni 2672
1
Warning: Label 17620 at (1) defined but not used
newGLMnet.f90:4761:5:
17590 do 17591 j=1,nin 2668
1
Warning: Label 17590 at (1) defined but not used
newGLMnet.f90:4729:5:
17521 continue 2654
1
Warning: Label 17521 at (1) defined but not used
newGLMnet.f90:4739:5:
17512 continue 2659
1
Warning: Label 17512 at (1) defined but not used
newGLMnet.f90:4715:5:
17510 do 17511 l=1,nin 2647
1
Warning: Label 17510 at (1) defined but not used
newGLMnet.f90:4711:5:
17500 continue 2646
1
Warning: Label 17500 at (1) defined but not used
newGLMnet.f90:4684:5:
17431 continue 2634
1
Warning: Label 17431 at (1) defined but not used
newGLMnet.f90:4670:5:
17420 do 17421 k=1,ni 2628
1
Warning: Label 17420 at (1) defined but not used
newGLMnet.f90:4666:5:
17410 continue 2626
1
Warning: Label 17410 at (1) defined but not used
newGLMnet.f90:4665:5:
17402 continue 2626
1
Warning: Label 17402 at (1) defined but not used
newGLMnet.f90:4657:5:
17400 do 17401 j=1,ni 2621
1
Warning: Label 17400 at (1) defined but not used
newGLMnet.f90:4653:5:
17390 continue 2619
1
Warning: Label 17390 at (1) defined but not used
newGLMnet.f90:4651:5:
17382 continue 2618
1
Warning: Label 17382 at (1) defined but not used
newGLMnet.f90:4646:5:
17380 do 17381 k=1,ni 2615
1
Warning: Label 17380 at (1) defined but not used
newGLMnet.f90:4638:5:
17372 continue 2612
1
Warning: Label 17372 at (1) defined but not used
newGLMnet.f90:4634:5:
17370 do 17371 j=1,ni 2611
1
Warning: Label 17370 at (1) defined but not used
newGLMnet.f90:4621:5:
17310 do 17311 ilm=1,nlam 2606
1
Warning: Label 17310 at (1) defined but not used
newGLMnet.f90:4620:5:
17302 continue 2606
1
Warning: Label 17302 at (1) defined but not used
newGLMnet.f90:4613:5:
17300 do 17301 j=1,ni 2601
1
Warning: Label 17300 at (1) defined but not used
newGLMnet.f90:4598:5:
17272 continue 2598
1
Warning: Label 17272 at (1) defined but not used
newGLMnet.f90:4595:5:
17270 do 17271 i=1,no 2598
1
Warning: Label 17270 at (1) defined but not used
newGLMnet.f90:4586:5:
17262 continue 2595
1
Warning: Label 17262 at (1) defined but not used
newGLMnet.f90:4580:5:
17260 do 17261 j=1,ni 2592
1
Warning: Label 17260 at (1) defined but not used
newGLMnet.f90:4588:5:
17231 continue 2596
1
Warning: Label 17231 at (1) defined but not used
newGLMnet.f90:4812:5:
11790 continue 2694
1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4844:5:
17732 continue 2713
1
Warning: Label 17732 at (1) defined but not used
newGLMnet.f90:4838:5:
17730 do 17731 j=1,ni 2710
1
Warning: Label 17730 at (1) defined but not used
newGLMnet.f90:4849:5:
17722 continue 2717
1
Warning: Label 17722 at (1) defined but not used
newGLMnet.f90:4836:5:
17720 do 17721 lam=1,nlam 2709
1
Warning: Label 17720 at (1) defined but not used
newGLMnet.f90:4883:5:
17792 continue 2736
1
Warning: Label 17792 at (1) defined but not used
newGLMnet.f90:4877:5:
17790 do 17791 k=1,nin(lam) 2733
1
Warning: Label 17790 at (1) defined but not used
newGLMnet.f90:4888:5:
17782 continue 2740
1
Warning: Label 17782 at (1) defined but not used
newGLMnet.f90:4875:5:
17780 do 17781 lam=1,nlam 2732
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) [-Wunused-dummy-argument]
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) [-Wunused-dummy-argument]
newGLMnet.f90:4038:25:
function risk(no,ni,nk,d,dk,f,e,kp,jp,u) 2319
1
Warning: Unused dummy argument ‘ni’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4041:24:
real e(no),u(nk),s 2321
1
Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable]
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) [-Wunused-dummy-argument]
newGLMnet.f90:1394:8:
*rr)
1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1150:9:
*err)
1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:2086:0:
if(jerr.ne.0) return 1413
Warning: control reaches end of non-void function [-Wreturn-type]
newGLMnet.f90:4535:0:
integer, dimension (:), allocatable :: mm,ixx
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4535:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0:
real, dimension (:), allocatable :: qy,t,w,wr,v,a,as,xm,ga
Warning: ‘t.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:4640:0:
al=alf*al0 2613
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4165:0:
integer, dimension (:), allocatable :: mm,ixx
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4165:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0:
real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0: Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4254:0:
al=alf*al0 2431
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0:
real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
Warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3785:0:
wr=wr-del*w*x(:,j) 2207
Warning: ‘wr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3649:0:
integer, dimension (:), allocatable :: jp,kp,mm,ixx
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3647:0:
real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq
Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:3750:0:
al=alf*al0 2193
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3649:0:
integer, dimension (:), allocatable :: jp,kp,mm,ixx
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3110:0:
real, dimension (:), allocatable :: sxp,sxpl
Warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3448:0:
sxp=sxp-q(:,ic) 2048
Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3111:0:
real, dimension (:), allocatable :: sc,xm,v,r,ga
Warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3236:0:
v=q(:,ic)/sxp 1946
Warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3237:0:
r=w*(y(:,ic)-v) 1946
Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0:
real, dimension (:,:), allocatable :: q
Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3492:0:
v=w*v*(1.0-v) 2065
Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0:
real, dimension (:,:), allocatable :: q
Warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3270:0:
al=alf*al0 1961
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3437:0:
sc=b(0,ic)+g(:,ic) 2041
Warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0:
integer, dimension (:), allocatable :: mm,is,iy
Warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0:
real, dimension (:,:), allocatable :: b,bs,xv
Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:2758:0:
real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
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:
integer, dimension (:), allocatable :: mm,ixx
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2759:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0:
real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2883:0:
al=alf*al0 1779
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0:
real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
Warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2114:0:
real, dimension (:), allocatable :: di,v,r,ga
Warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2114:0: Warning: ‘di.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0:
real, dimension (:), allocatable :: sxp,sxpl
Warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0: Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2232:0:
r=w*(y(:,ic)-q(:,ic)/sxp) 1482
Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2112:0:
real, dimension (:,:), allocatable :: q
Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:2258:0:
al=alf*al0 1491
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2116:0:
integer, dimension (:), allocatable :: mm,is,ixx
Warning: ‘ixx.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]
newGLMnet.f90:2115:0:
real, dimension (:,:), allocatable :: b,bs,xv
Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:1779:0:
real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
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:
integer, dimension (:), allocatable :: mm,ixx
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1780:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0:
real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1889:0:
al=alf*al0 1320
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0:
real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1428:0:
integer, dimension (:), allocatable :: mm,iy
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1428:0: Warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1427:0:
real, dimension (:), allocatable :: a,g
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1357:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1356:0:
real, dimension (:), allocatable :: xm,xs,xv,vlam
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1192:0:
integer, dimension (:), allocatable :: mm
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1276:0:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 1024
Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1276:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1191:0:
real, dimension (:), allocatable :: a,da
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1111:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1110:0:
real, dimension (:), allocatable :: xm,xs,g,xv,vlam
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:881:0:
integer, dimension (:), allocatable :: mm,ix
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:881:0: Warning: ‘ix.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:880:0:
real, dimension (:), allocatable :: a,g
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:802:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:801:0:
real, dimension (:), allocatable :: xm,xs,xv,vlam
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:637:0:
integer, dimension (:), allocatable :: mm
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:721:0:
if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del 729
Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:721:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:636:0:
real, dimension (:), allocatable :: a,da
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:551:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:550:0:
real, dimension (:), allocatable :: xm,xs,g,xv,vlam
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1694:0:
real, dimension (:), allocatable :: xm,xs,ww,vq
Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1695:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2672:0:
real, dimension (:), allocatable :: xm,xs,ww,vq
Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2673:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3580:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4049:0:
real, dimension (:), allocatable :: dk,f,xm,dq,q
Warning: ‘dq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4105:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4477:0:
integer, dimension (:), allocatable :: ju
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o iClusterPlus.so iClusterBayes.o iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin15/6.1.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Library/Frameworks/R.framework/Versions/3.5/Resources/library/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
‘iClusterPlus.Rnw’ using ‘UTF-8’
** testing if installed package can be loaded
* DONE (iClusterPlus)
iClusterPlus.Rcheck/tests/runTests.Rout
R version 3.5.1 Patched (2018-07-12 r74967) -- "Feather Spray"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin15.6.0 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> BiocGenerics:::testPackage("iClusterPlus")
RUNIT TEST PROTOCOL -- Tue Oct 16 22:04:29 2018
***********************************************
Number of test functions: 0
Number of errors: 0
Number of failures: 0
1 Test Suite :
iClusterPlus RUnit Tests - 0 test functions, 0 errors, 0 failures
Number of test functions: 0
Number of errors: 0
Number of failures: 0
>
>
> proc.time()
user system elapsed
80.640 0.337 81.601
iClusterPlus.Rcheck/iClusterPlus-Ex.timings
| name | user | system | elapsed | |
| CNregions | 0.002 | 0.000 | 0.002 | |
| compute.pod | 0.002 | 0.000 | 0.002 | |
| iCluster | 4.911 | 0.062 | 5.011 | |
| iCluster2 | 0.434 | 0.012 | 0.451 | |
| iClusterBayes | 0.001 | 0.000 | 0.001 | |
| iClusterPlus | 0.001 | 0.000 | 0.001 | |
| plotHMBayes | 0.000 | 0.000 | 0.001 | |
| plotHeatmap | 0.001 | 0.000 | 0.001 | |
| plotRI | 0.001 | 0.000 | 0.002 | |
| plotiCluster | 0.001 | 0.000 | 0.001 | |
| tune.iClusterBayes | 0.001 | 0.000 | 0.001 | |
| tune.iClusterPlus | 0.002 | 0.000 | 0.002 | |
| utility | 0.002 | 0.000 | 0.001 | |