############################################################################## ############################################################################## ### ### Running command: ### ### /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL iClusterPlus ### ############################################################################## ############################################################################## * installing to library ‘/Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/library’ * installing *source* package ‘iClusterPlus’ ... ** using staged installation 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 using C compiler: ‘Apple clang version 14.0.0 (clang-1400.0.29.202)’ using Fortran compiler: ‘GNU Fortran (GCC) 12.2.0’ using SDK: ‘MacOSX11.3.sdk’ clang -arch x86_64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/opt/R/x86_64/include -fPIC -falign-functions=64 -Wall -g -O2 -c iClusterBayes.c -o iClusterBayes.o iClusterBayes.c:1218:28: warning: variable 'Zdraw' set but not used [-Wunused-but-set-variable] int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k; ^ iClusterBayes.c:1218:20: warning: variable 'Zburnin' set but not used [-Wunused-but-set-variable] int i,j,h,n,k,ID,Zburnin,Zdraw,ndt,nk,thin,nthin,remainder,ty0,p0,ty1,p1,ty2,p2,ty3,p3,ty4,p4,ty5,p5,betaBurnin,betaDraw,p0k,p1k,p2k,p3k,p4k,p5k; ^ 2 warnings generated. clang -arch x86_64 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/opt/R/x86_64/include -fPIC -falign-functions=64 -Wall -g -O2 -c iClusterPlus.c -o iClusterPlus.o /opt/gfortran/bin/gfortran -arch x86_64 -fdefault-real-8 -ffixed-form -fPIC -Wall -g -O2 -c newGLMnet.f90 -o newGLMnet.o newGLMnet.f90:519:72: 519 | 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: 521 | 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: 522 | real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam) 611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:523:72: 523 | integer jd(*),ia(nx),nin(nlam) 612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:525:72: 525 | if(maxval(vp) .gt. 0.0)goto 10021 615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:526:72: 526 | jerr=10000 615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:527:72: 527 | return 615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:528:72: 528 | 10021 continue 616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:529:72: 529 | allocate(vq(1:ni),stat=jerr) 616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:530:72: 530 | if(jerr.ne.0) return 617 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:531:72: 531 | vq=max(0.0,vp) 617 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:532:72: 532 | vq=vq*ni/sum(vq) 618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:533:72: 533 | if(ka .ne. 1)goto 10041 619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:534:72: 534 | 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: 536 | goto 10051 623 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:537:72: 537 | 10041 continue 624 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:538:72: 538 | 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: 540 | 10051 continue 628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:541:72: 541 | 10031 continue 628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:542:72: 542 | deallocate(vq) 629 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:543:72: 543 | return 630 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:544:72: 544 | end 631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:545:72: 545 | 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: 547 | 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: 548 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:549:72: 549 | integer jd(*),ia(nx),nin(nlam) 637 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:552:72: 552 | allocate(g(1:ni),stat=jerr) 642 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:553:72: 553 | allocate(xm(1:ni),stat=ierr) 642 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:554:72: 554 | jerr=jerr+ierr 643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:555:72: 555 | allocate(xs(1:ni),stat=ierr) 643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:556:72: 556 | jerr=jerr+ierr 644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:557:72: 557 | allocate(ju(1:ni),stat=ierr) 644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:558:72: 558 | jerr=jerr+ierr 645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:559:72: 559 | allocate(xv(1:ni),stat=ierr) 645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:560:72: 560 | jerr=jerr+ierr 646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:561:72: 561 | allocate(vlam(1:nlam),stat=ierr) 646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:562:72: 562 | jerr=jerr+ierr 647 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:563:72: 563 | if(jerr.ne.0) return 648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:564:72: 564 | call chkvars(no,ni,x,ju) 649 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:565:72: 565 | 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: 566 | if(maxval(ju) .gt. 0)goto 10071 650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:567:72: 567 | jerr=7777 650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:568:72: 568 | return 650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:569:72: 569 | 10071 continue 651 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:570:72: 570 | 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: 571 | if(jerr.ne.0) return 653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:572:72: 572 | if(flmin.ge.1.0) vlam=ulam/ys 654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:573:72: 573 | 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: 575 | if(jerr.gt.0) return 657 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:576:72: 576 | 10080 do 10081 k=1,lmu 657 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:577:72: 577 | alm(k)=ys*alm(k) 657 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:578:72: 578 | nk=nin(k) 658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:579:72: 579 | 10090 do 10091 l=1,nk 658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:580:72: 580 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:581:72: 581 | 10091 continue 659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:582:72: 582 | 10092 continue 659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:583:72: 583 | 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: 584 | 10081 continue 661 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:585:72: 585 | 10082 continue 661 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:586:72: 586 | deallocate(xm,xs,g,ju,xv,vlam) 662 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:587:72: 587 | return 663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:588:72: 588 | end 664 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:589:72: 589 | 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: 590 | 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: 591 | integer ju(ni) 666 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:593:72: 593 | allocate(v(1:no),stat=jerr) 669 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:594:72: 594 | if(jerr.ne.0) return 670 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:595:72: 595 | w=w/sum(w) 670 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:596:72: 596 | v=sqrt(w) 671 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:597:72: 597 | 10100 do 10101 j=1,ni 671 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:598:72: 598 | if(ju(j).eq.0)goto 10101 672 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:599:72: 599 | xm(j)=dot_product(w,x(:,j)) 672 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:600:72: 600 | x(:,j)=v*(x(:,j)-xm(j)) 673 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:601:72: 601 | xv(j)=dot_product(x(:,j),x(:,j)) 673 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:602:72: 602 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 674 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:603:72: 603 | 10101 continue 675 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:604:72: 604 | 10102 continue 675 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:605:72: 605 | if(isd .ne. 0)goto 10121 675 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:606:72: 606 | xs=1.0 675 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:607:72: 607 | goto 10131 676 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:608:72: 608 | 10121 continue 677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:609:72: 609 | 10140 do 10141 j=1,ni 677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:610:72: 610 | if(ju(j).eq.0)goto 10141 677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:611:72: 611 | x(:,j)=x(:,j)/xs(j) 677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:612:72: 612 | 10141 continue 678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:613:72: 613 | 10142 continue 678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:614:72: 614 | xv=1.0 679 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:615:72: 615 | 10131 continue 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:616:72: 616 | 10111 continue 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:617:72: 617 | ym=dot_product(w,y) 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:618:72: 618 | y=v*(y-ym) 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:619:72: 619 | ys=sqrt(dot_product(y,y)) 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:620:72: 620 | y=y/ys 680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:621:72: 621 | g=0.0 681 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:622:72: 622 | 10150 do 10151 j=1,ni 681 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:623:72: 623 | 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: 624 | 10151 continue 682 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:625:72: 625 | 10152 continue 682 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:626:72: 626 | deallocate(v) 683 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:627:72: 627 | return 684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:628:72: 628 | end 685 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:629:72: 629 | 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: 631 | 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: 633 | 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: 635 | integer ju(ni),ia(nx),kin(nlam) 690 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:640:72: 640 | allocate(a(1:ni),stat=ierr) 696 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:641:72: 641 | jerr=jerr+ierr 697 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:642:72: 642 | allocate(mm(1:ni),stat=ierr) 697 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:643:72: 643 | jerr=jerr+ierr 698 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:644:72: 644 | allocate(da(1:ni),stat=ierr) 698 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:645:72: 645 | jerr=jerr+ierr 699 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:646:72: 646 | if(jerr.ne.0) return 700 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:647:72: 647 | bta=beta 700 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:648:72: 648 | omb=1.0-bta 701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:649:72: 649 | if(flmin .ge. 1.0)goto 10171 701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:650:72: 650 | eqs=max(eps,flmin) 701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:651:72: 651 | alf=eqs**(1.0/(nlam-1)) 701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:652:72: 652 | 10171 continue 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:653:72: 653 | rsq=0.0 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:654:72: 654 | a=0.0 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:655:72: 655 | mm=0 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:656:72: 656 | nlp=0 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:657:72: 657 | nin=nlp 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:658:72: 658 | iz=0 702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:659:72: 659 | mnl=min(mnlam,nlam) 703 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:660:72: 660 | 10180 do 10181 m=1,nlam 704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:661:72: 661 | if(flmin .lt. 1.0)goto 10201 704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:662:72: 662 | alm=ulam(m) 704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:663:72: 663 | goto 10191 705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:664:72: 664 | 10201 if(m .le. 2)goto 10211 705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:665:72: 665 | alm=alm*alf 705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:666:72: 666 | goto 10191 706 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:667:72: 667 | 10211 if(m .ne. 1)goto 10221 706 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:668:72: 668 | alm=big 706 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:669:72: 669 | goto 10231 707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:670:72: 670 | 10221 continue 707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:671:72: 671 | alm=0.0 708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:672:72: 672 | 10240 do 10241 j=1,ni 708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:673:72: 673 | if(ju(j).eq.0)goto 10241 708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:674:72: 674 | if(vp(j).le.0.0)goto 10241 709 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:675:72: 675 | alm=max(alm,abs(g(j))/vp(j)) 710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:676:72: 676 | 10241 continue 711 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:677:72: 677 | 10242 continue 711 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:678:72: 678 | alm=alf*alm/max(bta,1.0e-3) 712 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:679:72: 679 | 10231 continue 713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:680:72: 680 | 10191 continue 713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:681:72: 681 | dem=alm*omb 713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:682:72: 682 | ab=alm*bta 713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:683:72: 683 | rsq0=rsq 713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:684:72: 684 | jz=1 714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:685:72: 685 | 10250 continue 714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:686:72: 686 | 10251 continue 714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:687:72: 687 | if(iz*jz.ne.0) go to 10260 714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:688:72: 688 | nlp=nlp+1 714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:689:72: 689 | dlx=0.0 715 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:690:72: 690 | 10270 do 10271 k=1,ni 715 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:691:72: 691 | if(ju(k).eq.0)goto 10271 716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:692:72: 692 | ak=a(k) 716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:693:72: 693 | u=g(k)+ak*xv(k) 716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:694:72: 694 | v=abs(u)-vp(k)*ab 716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:695:72: 695 | a(k)=0.0 717 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:696:72: 696 | 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: 697 | if(a(k).eq.ak)goto 10271 719 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:698:72: 698 | if(mm(k) .ne. 0)goto 10291 719 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:699:72: 699 | nin=nin+1 719 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:700:72: 700 | if(nin.gt.nx)goto 10272 720 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:701:72: 701 | 10300 do 10301 j=1,ni 720 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:702:72: 702 | if(ju(j).eq.0)goto 10301 721 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:703:72: 703 | if(mm(j) .eq. 0)goto 10321 721 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:704:72: 704 | c(j,nin)=c(k,mm(j)) 721 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:705:72: 705 | goto 10301 721 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:706:72: 706 | 10321 continue 722 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:707:72: 707 | if(j .ne. k)goto 10341 722 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:708:72: 708 | c(j,nin)=xv(j) 722 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:709:72: 709 | goto 10301 722 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:710:72: 710 | 10341 continue 723 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:711:72: 711 | c(j,nin)=dot_product(x(:,j),x(:,k)) 724 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:712:72: 712 | 10301 continue 725 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:713:72: 713 | 10302 continue 725 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:714:72: 714 | mm(k)=nin 725 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:715:72: 715 | ia(nin)=k 726 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:716:72: 716 | 10291 continue 727 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:717:72: 717 | del=a(k)-ak 727 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:718:72: 718 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 728 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:719:72: 719 | dlx=max(xv(k)*del**2,dlx) 729 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:720:72: 720 | 10350 do 10351 j=1,ni 729 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:721:72: 721 | 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: 722 | 10351 continue 730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:723:72: 723 | 10352 continue 730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:724:72: 724 | 10271 continue 731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:725:72: 725 | 10272 continue 731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:726:72: 726 | if(dlx.lt.thr)goto 10252 731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:727:72: 727 | if(nin.gt.nx)goto 10252 732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:728:72: 728 | if(nlp .le. maxit)goto 10371 732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:729:72: 729 | jerr=-m 732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:730:72: 730 | return 732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:731:72: 731 | 10371 continue 733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:732:72: 732 | 10260 continue 733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:733:72: 733 | iz=1 733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:734:72: 734 | da(1:nin)=a(ia(1:nin)) 734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:735:72: 735 | 10380 continue 734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:736:72: 736 | 10381 continue 734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:737:72: 737 | nlp=nlp+1 734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:738:72: 738 | dlx=0.0 735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:739:72: 739 | 10390 do 10391 l=1,nin 735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:740:72: 740 | k=ia(l) 735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:741:72: 741 | ak=a(k) 735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:742:72: 742 | u=g(k)+ak*xv(k) 735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:743:72: 743 | v=abs(u)-vp(k)*ab 736 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:744:72: 744 | a(k)=0.0 737 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:745:72: 745 | 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: 746 | if(a(k).eq.ak)goto 10391 739 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:747:72: 747 | del=a(k)-ak 739 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:748:72: 748 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:749:72: 749 | dlx=max(xv(k)*del**2,dlx) 741 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:750:72: 750 | 10400 do 10401 j=1,nin 741 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:751:72: 751 | 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: 752 | 10401 continue 742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:753:72: 753 | 10402 continue 742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:754:72: 754 | 10391 continue 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:755:72: 755 | 10392 continue 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:756:72: 756 | if(dlx.lt.thr)goto 10382 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:757:72: 757 | if(nlp .le. maxit)goto 10421 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:758:72: 758 | jerr=-m 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:759:72: 759 | return 743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:760:72: 760 | 10421 continue 744 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:761:72: 761 | goto 10381 745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:762:72: 762 | 10382 continue 745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:763:72: 763 | da(1:nin)=a(ia(1:nin))-da(1:nin) 746 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:764:72: 764 | 10430 do 10431 j=1,ni 746 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:765:72: 765 | if(mm(j).ne.0)goto 10431 747 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:766:72: 766 | 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: 767 | 10431 continue 749 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:768:72: 768 | 10432 continue 749 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:769:72: 769 | jz=0 750 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:770:72: 770 | goto 10251 751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:771:72: 771 | 10252 continue 751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:772:72: 772 | if(nin .le. nx)goto 10451 751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:773:72: 773 | jerr=-10000-m 751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:774:72: 774 | goto 10182 751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:775:72: 775 | 10451 continue 752 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:776:72: 776 | 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: 777 | kin(m)=nin 753 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:778:72: 778 | rsqo(m)=rsq 753 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:779:72: 779 | almo(m)=alm 753 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:780:72: 780 | lmu=m 754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:781:72: 781 | if(m.lt.mnl)goto 10181 754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:782:72: 782 | if(flmin.ge.1.0)goto 10181 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:783:72: 783 | me=0 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:784:72: 784 | 10460 do 10461 j=1,nin 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:785:72: 785 | if(ao(j,m).ne.0.0) me=me+1 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:786:72: 786 | 10461 continue 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:787:72: 787 | 10462 continue 755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:788:72: 788 | if(me.gt.ne)goto 10182 756 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:789:72: 789 | if(rsq-rsq0.lt.sml*rsq)goto 10182 756 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:790:72: 790 | if(rsq.gt.rsqmax)goto 10182 757 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:791:72: 791 | 10181 continue 758 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:792:72: 792 | 10182 continue 758 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:793:72: 793 | deallocate(a,mm,c,da) 759 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:794:72: 794 | return 760 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:795:72: 795 | end 761 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:796:72: 796 | 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: 798 | 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: 799 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 765 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:800:72: 800 | integer jd(*),ia(nx),nin(nlam) 766 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:803:72: 803 | allocate(xm(1:ni),stat=jerr) 771 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:804:72: 804 | allocate(xs(1:ni),stat=ierr) 771 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:805:72: 805 | jerr=jerr+ierr 772 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:806:72: 806 | allocate(ju(1:ni),stat=ierr) 772 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:807:72: 807 | jerr=jerr+ierr 773 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:808:72: 808 | allocate(xv(1:ni),stat=ierr) 773 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:809:72: 809 | jerr=jerr+ierr 774 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:810:72: 810 | allocate(vlam(1:nlam),stat=ierr) 774 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:811:72: 811 | jerr=jerr+ierr 775 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:812:72: 812 | if(jerr.ne.0) return 776 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:813:72: 813 | call chkvars(no,ni,x,ju) 777 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:814:72: 814 | 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: 815 | if(maxval(ju) .gt. 0)goto 10481 778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:816:72: 816 | jerr=7777 778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:817:72: 817 | return 778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:818:72: 818 | 10481 continue 779 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:819:72: 819 | 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: 820 | if(jerr.ne.0) return 781 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:821:72: 821 | if(flmin.ge.1.0) vlam=ulam/ys 782 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:822:72: 822 | 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: 824 | if(jerr.gt.0) return 785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:825:72: 825 | 10490 do 10491 k=1,lmu 785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:826:72: 826 | alm(k)=ys*alm(k) 785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:827:72: 827 | nk=nin(k) 786 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:828:72: 828 | 10500 do 10501 l=1,nk 786 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:829:72: 829 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 786 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:830:72: 830 | 10501 continue 787 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:831:72: 831 | 10502 continue 787 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:832:72: 832 | 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: 833 | 10491 continue 789 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:834:72: 834 | 10492 continue 789 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:835:72: 835 | deallocate(xm,xs,ju,xv,vlam) 790 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:836:72: 836 | return 791 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:837:72: 837 | end 792 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:838:72: 838 | 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: 839 | 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: 840 | integer ju(ni) 794 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:842:72: 842 | allocate(v(1:no),stat=jerr) 797 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:843:72: 843 | if(jerr.ne.0) return 798 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:844:72: 844 | w=w/sum(w) 798 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:845:72: 845 | v=sqrt(w) 799 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:846:72: 846 | 10510 do 10511 j=1,ni 799 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:847:72: 847 | if(ju(j).eq.0)goto 10511 800 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:848:72: 848 | xm(j)=dot_product(w,x(:,j)) 800 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:849:72: 849 | x(:,j)=v*(x(:,j)-xm(j)) 801 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:850:72: 850 | xv(j)=dot_product(x(:,j),x(:,j)) 801 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:851:72: 851 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 802 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:852:72: 852 | 10511 continue 803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:853:72: 853 | 10512 continue 803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:854:72: 854 | if(isd .ne. 0)goto 10531 803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:855:72: 855 | xs=1.0 803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:856:72: 856 | goto 10541 804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:857:72: 857 | 10531 continue 804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:858:72: 858 | 10550 do 10551 j=1,ni 804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:859:72: 859 | if(ju(j).eq.0)goto 10551 804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:860:72: 860 | x(:,j)=x(:,j)/xs(j) 804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:861:72: 861 | 10551 continue 805 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:862:72: 862 | 10552 continue 805 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:863:72: 863 | xv=1.0 806 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:864:72: 864 | 10541 continue 807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:865:72: 865 | 10521 continue 807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:866:72: 866 | ym=dot_product(w,y) 807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:867:72: 867 | y=v*(y-ym) 807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:868:72: 868 | ys=sqrt(dot_product(y,y)) 807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:869:72: 869 | y=y/ys 808 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:870:72: 870 | deallocate(v) 809 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:871:72: 871 | return 810 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:872:72: 872 | end 811 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:873:72: 873 | 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: 875 | 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: 877 | 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: 879 | integer ju(ni),ia(nx),kin(nlam) 816 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:882:72: 882 | allocate(a(1:ni),stat=jerr) 821 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:883:72: 883 | allocate(mm(1:ni),stat=ierr) 821 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:884:72: 884 | jerr=jerr+ierr 822 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:885:72: 885 | allocate(g(1:ni),stat=ierr) 822 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:886:72: 886 | jerr=jerr+ierr 823 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:887:72: 887 | allocate(ix(1:ni),stat=ierr) 823 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:888:72: 888 | jerr=jerr+ierr 824 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:889:72: 889 | if(jerr.ne.0) return 825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:890:72: 890 | bta=beta 825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:891:72: 891 | omb=1.0-bta 825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:892:72: 892 | ix=0 826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:893:72: 893 | if(flmin .ge. 1.0)goto 10571 826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:894:72: 894 | eqs=max(eps,flmin) 826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:895:72: 895 | alf=eqs**(1.0/(nlam-1)) 826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:896:72: 896 | 10571 continue 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:897:72: 897 | rsq=0.0 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:898:72: 898 | a=0.0 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:899:72: 899 | mm=0 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:900:72: 900 | nlp=0 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:901:72: 901 | nin=nlp 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:902:72: 902 | iz=0 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:903:72: 903 | mnl=min(mnlam,nlam) 827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:904:72: 904 | alm=0.0 828 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:905:72: 905 | 10580 do 10581 j=1,ni 828 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:906:72: 906 | if(ju(j).eq.0)goto 10581 828 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:907:72: 907 | g(j)=abs(dot_product(y,x(:,j))) 828 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:908:72: 908 | 10581 continue 829 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:909:72: 909 | 10582 continue 829 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:910:72: 910 | 10590 do 10591 m=1,nlam 829 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:911:72: 911 | alm0=alm 830 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:912:72: 912 | if(flmin .lt. 1.0)goto 10611 830 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:913:72: 913 | alm=ulam(m) 830 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:914:72: 914 | goto 10601 831 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:915:72: 915 | 10611 if(m .le. 2)goto 10621 831 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:916:72: 916 | alm=alm*alf 831 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:917:72: 917 | goto 10601 832 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:918:72: 918 | 10621 if(m .ne. 1)goto 10631 832 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:919:72: 919 | alm=big 832 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:920:72: 920 | goto 10641 833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:921:72: 921 | 10631 continue 833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:922:72: 922 | alm0=0.0 834 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:923:72: 923 | 10650 do 10651 j=1,ni 834 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:924:72: 924 | if(ju(j).eq.0)goto 10651 834 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:925:72: 925 | 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: 926 | 10651 continue 835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:927:72: 927 | 10652 continue 835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:928:72: 928 | alm0=alm0/max(bta,1.0e-3) 835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:929:72: 929 | alm=alf*alm0 836 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:930:72: 930 | 10641 continue 837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:931:72: 931 | 10601 continue 837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:932:72: 932 | dem=alm*omb 837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:933:72: 933 | ab=alm*bta 837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:934:72: 934 | rsq0=rsq 837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:935:72: 935 | jz=1 838 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:936:72: 936 | tlam=bta*(2.0*alm-alm0) 839 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:937:72: 937 | 10660 do 10661 k=1,ni 839 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:938:72: 938 | if(ix(k).eq.1)goto 10661 839 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:939:72: 939 | if(ju(k).eq.0)goto 10661 840 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:940:72: 940 | if(g(k).gt.tlam*vp(k)) ix(k)=1 841 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:941:72: 941 | 10661 continue 842 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:942:72: 942 | 10662 continue 842 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:943:72: 943 | 10670 continue 842 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:944:72: 944 | 10671 continue 842 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:945:72: 945 | if(iz*jz.ne.0) go to 10260 843 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:946:72: 946 | 10680 continue 843 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:947:72: 947 | nlp=nlp+1 843 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:948:72: 948 | dlx=0.0 844 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:949:72: 949 | 10690 do 10691 k=1,ni 844 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:950:72: 950 | if(ix(k).eq.0)goto 10691 844 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:951:72: 951 | gk=dot_product(y,x(:,k)) 845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:952:72: 952 | ak=a(k) 845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:953:72: 953 | u=gk+ak*xv(k) 845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:954:72: 954 | v=abs(u)-vp(k)*ab 845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:955:72: 955 | a(k)=0.0 846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:956:72: 956 | 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: 957 | if(a(k).eq.ak)goto 10691 848 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:958:72: 958 | if(mm(k) .ne. 0)goto 10711 848 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:959:72: 959 | nin=nin+1 848 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:960:72: 960 | if(nin.gt.nx)goto 10692 849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:961:72: 961 | mm(k)=nin 849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:962:72: 962 | ia(nin)=k 850 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:963:72: 963 | 10711 continue 851 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:964:72: 964 | del=a(k)-ak 851 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:965:72: 965 | rsq=rsq+del*(2.0*gk-del*xv(k)) 852 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:966:72: 966 | y=y-del*x(:,k) 852 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:967:72: 967 | dlx=max(xv(k)*del**2,dlx) 853 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:968:72: 968 | 10691 continue 854 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:969:72: 969 | 10692 continue 854 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:970:72: 970 | if(nin.gt.nx)goto 10672 855 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:971:72: 971 | if(dlx .ge. thr)goto 10731 855 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:972:72: 972 | ixx=0 856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:973:72: 973 | 10740 do 10741 k=1,ni 856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:974:72: 974 | if(ix(k).eq.1)goto 10741 856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:975:72: 975 | if(ju(k).eq.0)goto 10741 857 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:976:72: 976 | g(k)=abs(dot_product(y,x(:,k))) 858 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:977:72: 977 | if(g(k) .le. ab*vp(k))goto 10761 858 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:978:72: 978 | ix(k)=1 858 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:979:72: 979 | ixx=1 858 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:980:72: 980 | 10761 continue 859 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:981:72: 981 | 10741 continue 860 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:982:72: 982 | 10742 continue 860 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:983:72: 983 | if(ixx.eq.1) go to 10680 861 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:984:72: 984 | goto 10672 862 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:985:72: 985 | 10731 continue 863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:986:72: 986 | if(nlp .le. maxit)goto 10781 863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:987:72: 987 | jerr=-m 863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:988:72: 988 | return 863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:989:72: 989 | 10781 continue 864 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:990:72: 990 | 10260 continue 864 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:991:72: 991 | iz=1 865 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:992:72: 992 | 10790 continue 865 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:993:72: 993 | 10791 continue 865 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:994:72: 994 | nlp=nlp+1 865 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:995:72: 995 | dlx=0.0 866 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:996:72: 996 | 10800 do 10801 l=1,nin 866 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:997:72: 997 | k=ia(l) 866 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:998:72: 998 | gk=dot_product(y,x(:,k)) 867 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:999:72: 999 | ak=a(k) 867 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1000:72: 1000 | u=gk+ak*xv(k) 867 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1001:72: 1001 | v=abs(u)-vp(k)*ab 867 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1002:72: 1002 | a(k)=0.0 868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1003:72: 1003 | 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: 1004 | if(a(k).eq.ak)goto 10801 870 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1005:72: 1005 | del=a(k)-ak 870 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1006:72: 1006 | rsq=rsq+del*(2.0*gk-del*xv(k)) 871 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1007:72: 1007 | y=y-del*x(:,k) 871 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1008:72: 1008 | dlx=max(xv(k)*del**2,dlx) 872 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1009:72: 1009 | 10801 continue 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1010:72: 1010 | 10802 continue 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1011:72: 1011 | if(dlx.lt.thr)goto 10792 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1012:72: 1012 | if(nlp .le. maxit)goto 10821 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1013:72: 1013 | jerr=-m 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1014:72: 1014 | return 873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1015:72: 1015 | 10821 continue 874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1016:72: 1016 | goto 10791 875 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1017:72: 1017 | 10792 continue 875 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1018:72: 1018 | jz=0 876 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1019:72: 1019 | goto 10671 877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1020:72: 1020 | 10672 continue 877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1021:72: 1021 | if(nin .le. nx)goto 10841 877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1022:72: 1022 | jerr=-10000-m 877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1023:72: 1023 | goto 10592 877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1024:72: 1024 | 10841 continue 878 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1025:72: 1025 | 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: 1026 | kin(m)=nin 879 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1027:72: 1027 | rsqo(m)=rsq 879 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1028:72: 1028 | almo(m)=alm 879 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1029:72: 1029 | lmu=m 880 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1030:72: 1030 | if(m.lt.mnl)goto 10591 880 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1031:72: 1031 | if(flmin.ge.1.0)goto 10591 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1032:72: 1032 | me=0 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1033:72: 1033 | 10850 do 10851 j=1,nin 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1034:72: 1034 | if(ao(j,m).ne.0.0) me=me+1 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1035:72: 1035 | 10851 continue 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1036:72: 1036 | 10852 continue 881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1037:72: 1037 | if(me.gt.ne)goto 10592 882 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1038:72: 1038 | if(rsq-rsq0.lt.sml*rsq)goto 10592 882 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1039:72: 1039 | if(rsq.gt.rsqmax)goto 10592 883 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1040:72: 1040 | 10591 continue 884 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1041:72: 1041 | 10592 continue 884 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1042:72: 1042 | deallocate(a,mm,g,ix) 885 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1043:72: 1043 | return 886 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1044:72: 1044 | end 887 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1045:72: 1045 | subroutine chkvars(no,ni,x,ju) 888 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1046:72: 1046 | real x(no,ni) 888 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1047:72: 1047 | integer ju(ni) 889 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1048:72: 1048 | 10860 do 10861 j=1,ni 889 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1049:72: 1049 | ju(j)=0 889 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1050:72: 1050 | t=x(1,j) 890 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1051:72: 1051 | 10870 do 10871 i=2,no 890 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1052:72: 1052 | if(x(i,j).eq.t)goto 10871 890 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1053:72: 1053 | ju(j)=1 890 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1054:72: 1054 | goto 10872 890 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1055:72: 1055 | 10871 continue 891 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1056:72: 1056 | 10872 continue 891 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1057:72: 1057 | 10861 continue 892 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1058:72: 1058 | 10862 continue 892 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1059:72: 1059 | return 893 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1060:72: 1060 | end 894 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1061:72: 1061 | subroutine uncomp(ni,ca,ia,nin,a) 895 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1062:72: 1062 | real ca(*),a(ni) 895 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1063:72: 1063 | integer ia(*) 896 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1064:72: 1064 | a=0.0 896 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1065:72: 1065 | if(nin.gt.0) a(ia(1:nin))=ca(1:nin) 897 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1066:72: 1066 | return 898 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1067:72: 1067 | end 899 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1068:72: 1068 | subroutine modval(a0,ca,ia,nin,n,x,f) 900 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1069:72: 1069 | real ca(nin),x(n,*),f(n) 900 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1070:72: 1070 | integer ia(nin) 901 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1071:72: 1071 | f=a0 901 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1072:72: 1072 | if(nin.le.0) return 902 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1073:72: 1073 | 10880 do 10881 i=1,n 902 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1074:72: 1074 | 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: 1075 | 10881 continue 903 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1076:72: 1076 | 10882 continue 903 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1077:72: 1077 | return 904 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1078:72: 1078 | end 905 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1079:72: 1079 | 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: 1081 | real x(*),y(no),w(no),vp(ni),ulam(nlam) 909 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1082:72: 1082 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 910 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1083:72: 1083 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 911 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1085:72: 1085 | if(maxval(vp) .gt. 0.0)goto 10901 914 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1086:72: 1086 | jerr=10000 914 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1087:72: 1087 | return 914 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1088:72: 1088 | 10901 continue 915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1089:72: 1089 | allocate(vq(1:ni),stat=jerr) 915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1090:72: 1090 | if(jerr.ne.0) return 916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1091:72: 1091 | vq=max(0.0,vp) 916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1092:72: 1092 | vq=vq*ni/sum(vq) 917 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1093:72: 1093 | if(ka .ne. 1)goto 10921 918 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1094:72: 1094 | 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: 1096 | goto 10931 922 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1097:72: 1097 | 10921 continue 923 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1098:72: 1098 | 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: 1100 | 10931 continue 927 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1101:72: 1101 | 10911 continue 927 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1102:72: 1102 | deallocate(vq) 928 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1103:72: 1103 | return 929 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1104:72: 1104 | end 930 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1105:72: 1105 | 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: 1107 | real x(*),y(no),w(no),vp(ni),ulam(nlam) 934 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1108:72: 1108 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 935 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1109:72: 1109 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 936 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1112:72: 1112 | allocate(g(1:ni),stat=jerr) 941 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1113:72: 1113 | allocate(xm(1:ni),stat=ierr) 941 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1114:72: 1114 | jerr=jerr+ierr 942 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1115:72: 1115 | allocate(xs(1:ni),stat=ierr) 942 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1116:72: 1116 | jerr=jerr+ierr 943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1117:72: 1117 | allocate(ju(1:ni),stat=ierr) 943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1118:72: 1118 | jerr=jerr+ierr 944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1119:72: 1119 | allocate(xv(1:ni),stat=ierr) 944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1120:72: 1120 | jerr=jerr+ierr 945 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1121:72: 1121 | allocate(vlam(1:nlam),stat=ierr) 945 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1122:72: 1122 | jerr=jerr+ierr 946 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1123:72: 1123 | if(jerr.ne.0) return 947 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1124:72: 1124 | call spchkvars(no,ni,x,ix,ju) 948 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1125:72: 1125 | 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: 1126 | if(maxval(ju) .gt. 0)goto 10951 949 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1127:72: 1127 | jerr=7777 949 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1128:72: 1128 | return 949 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1129:72: 1129 | 10951 continue 950 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1130:72: 1130 | 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: 1131 | if(jerr.ne.0) return 952 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1132:72: 1132 | if(flmin.ge.1.0) vlam=ulam/ys 953 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1133:72: 1133 | 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: 1135 | if(jerr.gt.0) return 956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1136:72: 1136 | 10960 do 10961 k=1,lmu 956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1137:72: 1137 | alm(k)=ys*alm(k) 956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1138:72: 1138 | nk=nin(k) 957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1139:72: 1139 | 10970 do 10971 l=1,nk 957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1140:72: 1140 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1141:72: 1141 | 10971 continue 958 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1142:72: 1142 | 10972 continue 958 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1143:72: 1143 | 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: 1144 | 10961 continue 960 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1145:72: 1145 | 10962 continue 960 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1146:72: 1146 | deallocate(xm,xs,g,ju,xv,vlam) 961 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1147:72: 1147 | return 962 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1148:72: 1148 | end 963 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1149:72: 1149 | 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: 1151 | 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: 1152 | integer ix(*),jx(*),ju(ni) 965 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1153:72: 1153 | w=w/sum(w) 966 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1154:72: 1154 | 10980 do 10981 j=1,ni 966 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1155:72: 1155 | if(ju(j).eq.0)goto 10981 967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1156:72: 1156 | jb=ix(j) 967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1157:72: 1157 | je=ix(j+1)-1 967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1158:72: 1158 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 968 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1159:72: 1159 | 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: 1160 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 970 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1161:72: 1161 | 10981 continue 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1162:72: 1162 | 10982 continue 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1163:72: 1163 | if(isd .ne. 0)goto 11001 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1164:72: 1164 | xs=1.0 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1165:72: 1165 | goto 11011 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1166:72: 1166 | 11001 continue 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1167:72: 1167 | xv=1.0 971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1168:72: 1168 | 11011 continue 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1169:72: 1169 | 10991 continue 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1170:72: 1170 | ym=dot_product(w,y) 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1171:72: 1171 | y=y-ym 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1172:72: 1172 | ys=sqrt(dot_product(w,y**2)) 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1173:72: 1173 | y=y/ys 972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1174:72: 1174 | g=0.0 973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1175:72: 1175 | 11020 do 11021 j=1,ni 973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1176:72: 1176 | if(ju(j).eq.0)goto 11021 973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1177:72: 1177 | jb=ix(j) 973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1178:72: 1178 | je=ix(j+1)-1 974 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1179:72: 1179 | 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: 1180 | 11021 continue 976 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1181:72: 1181 | 11022 continue 976 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1182:72: 1182 | return 977 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1183:72: 1183 | end 978 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1184:72: 1184 | 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: 1186 | 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: 1188 | real g(ni),vp(ni),x(*),ulam(nlam),w(no) 982 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1189:72: 1189 | 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: 1190 | integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 984 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1195:72: 1195 | allocate(a(1:ni),stat=ierr) 990 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1196:72: 1196 | jerr=jerr+ierr 991 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1197:72: 1197 | allocate(mm(1:ni),stat=ierr) 991 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1198:72: 1198 | jerr=jerr+ierr 992 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1199:72: 1199 | allocate(da(1:ni),stat=ierr) 992 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1200:72: 1200 | jerr=jerr+ierr 993 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1201:72: 1201 | if(jerr.ne.0) return 994 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1202:72: 1202 | bta=beta 994 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1203:72: 1203 | omb=1.0-bta 995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1204:72: 1204 | if(flmin .ge. 1.0)goto 11041 995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1205:72: 1205 | eqs=max(eps,flmin) 995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1206:72: 1206 | alf=eqs**(1.0/(nlam-1)) 995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1207:72: 1207 | 11041 continue 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1208:72: 1208 | rsq=0.0 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1209:72: 1209 | a=0.0 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1210:72: 1210 | mm=0 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1211:72: 1211 | nlp=0 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1212:72: 1212 | nin=nlp 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1213:72: 1213 | iz=0 996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1214:72: 1214 | mnl=min(mnlam,nlam) 997 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1215:72: 1215 | 11050 do 11051 m=1,nlam 998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1216:72: 1216 | if(flmin .lt. 1.0)goto 11071 998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1217:72: 1217 | alm=ulam(m) 998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1218:72: 1218 | goto 11061 999 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1219:72: 1219 | 11071 if(m .le. 2)goto 11081 999 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1220:72: 1220 | alm=alm*alf 999 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1221:72: 1221 | goto 11061 1000 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1222:72: 1222 | 11081 if(m .ne. 1)goto 11091 1000 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1223:72: 1223 | alm=big 1000 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1224:72: 1224 | goto 11101 1001 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1225:72: 1225 | 11091 continue 1001 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1226:72: 1226 | alm=0.0 1002 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1227:72: 1227 | 11110 do 11111 j=1,ni 1002 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1228:72: 1228 | if(ju(j).eq.0)goto 11111 1002 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1229:72: 1229 | if(vp(j).le.0.0)goto 11111 1003 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1230:72: 1230 | alm=max(alm,abs(g(j))/vp(j)) 1004 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1231:72: 1231 | 11111 continue 1005 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1232:72: 1232 | 11112 continue 1005 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1233:72: 1233 | alm=alf*alm/max(bta,1.0e-3) 1006 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1234:72: 1234 | 11101 continue 1007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1235:72: 1235 | 11061 continue 1007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1236:72: 1236 | dem=alm*omb 1007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1237:72: 1237 | ab=alm*bta 1007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1238:72: 1238 | rsq0=rsq 1007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1239:72: 1239 | jz=1 1008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1240:72: 1240 | 11120 continue 1008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1241:72: 1241 | 11121 continue 1008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1242:72: 1242 | if(iz*jz.ne.0) go to 10260 1008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1243:72: 1243 | nlp=nlp+1 1008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1244:72: 1244 | dlx=0.0 1009 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1245:72: 1245 | 11130 do 11131 k=1,ni 1009 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1246:72: 1246 | if(ju(k).eq.0)goto 11131 1010 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1247:72: 1247 | ak=a(k) 1010 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1248:72: 1248 | u=g(k)+ak*xv(k) 1010 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1249:72: 1249 | v=abs(u)-vp(k)*ab 1010 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1250:72: 1250 | a(k)=0.0 1011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1251:72: 1251 | 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: 1252 | if(a(k).eq.ak)goto 11131 1013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1253:72: 1253 | if(mm(k) .ne. 0)goto 11151 1013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1254:72: 1254 | nin=nin+1 1013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1255:72: 1255 | if(nin.gt.nx)goto 11132 1014 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1256:72: 1256 | 11160 do 11161 j=1,ni 1014 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1257:72: 1257 | if(ju(j).eq.0)goto 11161 1015 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1258:72: 1258 | if(mm(j) .eq. 0)goto 11181 1015 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1259:72: 1259 | c(j,nin)=c(k,mm(j)) 1015 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1260:72: 1260 | goto 11161 1015 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1261:72: 1261 | 11181 continue 1016 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1262:72: 1262 | if(j .ne. k)goto 11201 1016 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1263:72: 1263 | c(j,nin)=xv(j) 1016 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1264:72: 1264 | goto 11161 1016 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1265:72: 1265 | 11201 continue 1017 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1266:72: 1266 | 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: 1267 | 11161 continue 1020 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1268:72: 1268 | 11162 continue 1020 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1269:72: 1269 | mm(k)=nin 1020 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1270:72: 1270 | ia(nin)=k 1021 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1271:72: 1271 | 11151 continue 1022 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1272:72: 1272 | del=a(k)-ak 1022 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1273:72: 1273 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1023 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1274:72: 1274 | dlx=max(xv(k)*del**2,dlx) 1024 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1275:72: 1275 | 11210 do 11211 j=1,ni 1024 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1276:72: 1276 | 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: 1277 | 11211 continue 1025 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1278:72: 1278 | 11212 continue 1025 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1279:72: 1279 | 11131 continue 1026 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1280:72: 1280 | 11132 continue 1026 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1281:72: 1281 | if(dlx.lt.thr)goto 11122 1026 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1282:72: 1282 | if(nin.gt.nx)goto 11122 1027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1283:72: 1283 | if(nlp .le. maxit)goto 11231 1027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1284:72: 1284 | jerr=-m 1027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1285:72: 1285 | return 1027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1286:72: 1286 | 11231 continue 1028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1287:72: 1287 | 10260 continue 1028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1288:72: 1288 | iz=1 1028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1289:72: 1289 | da(1:nin)=a(ia(1:nin)) 1029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1290:72: 1290 | 11240 continue 1029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1291:72: 1291 | 11241 continue 1029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1292:72: 1292 | nlp=nlp+1 1029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1293:72: 1293 | dlx=0.0 1030 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1294:72: 1294 | 11250 do 11251 l=1,nin 1030 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1295:72: 1295 | k=ia(l) 1031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1296:72: 1296 | ak=a(k) 1031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1297:72: 1297 | u=g(k)+ak*xv(k) 1031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1298:72: 1298 | v=abs(u)-vp(k)*ab 1031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1299:72: 1299 | a(k)=0.0 1032 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1300:72: 1300 | 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: 1301 | if(a(k).eq.ak)goto 11251 1034 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1302:72: 1302 | del=a(k)-ak 1034 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1303:72: 1303 | rsq=rsq+del*(2.0*g(k)-del*xv(k)) 1035 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1304:72: 1304 | dlx=max(xv(k)*del**2,dlx) 1036 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1305:72: 1305 | 11260 do 11261 j=1,nin 1036 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1306:72: 1306 | 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: 1307 | 11261 continue 1037 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1308:72: 1308 | 11262 continue 1037 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1309:72: 1309 | 11251 continue 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1310:72: 1310 | 11252 continue 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1311:72: 1311 | if(dlx.lt.thr)goto 11242 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1312:72: 1312 | if(nlp .le. maxit)goto 11281 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1313:72: 1313 | jerr=-m 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1314:72: 1314 | return 1038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1315:72: 1315 | 11281 continue 1039 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1316:72: 1316 | goto 11241 1040 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1317:72: 1317 | 11242 continue 1040 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1318:72: 1318 | da(1:nin)=a(ia(1:nin))-da(1:nin) 1041 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1319:72: 1319 | 11290 do 11291 j=1,ni 1041 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1320:72: 1320 | if(mm(j).ne.0)goto 11291 1042 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1321:72: 1321 | 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: 1322 | 11291 continue 1044 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1323:72: 1323 | 11292 continue 1044 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1324:72: 1324 | jz=0 1045 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1325:72: 1325 | goto 11121 1046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1326:72: 1326 | 11122 continue 1046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1327:72: 1327 | if(nin .le. nx)goto 11311 1046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1328:72: 1328 | jerr=-10000-m 1046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1329:72: 1329 | goto 11052 1046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1330:72: 1330 | 11311 continue 1047 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1331:72: 1331 | 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: 1332 | kin(m)=nin 1048 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1333:72: 1333 | rsqo(m)=rsq 1048 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1334:72: 1334 | almo(m)=alm 1048 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1335:72: 1335 | lmu=m 1049 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1336:72: 1336 | if(m.lt.mnl)goto 11051 1049 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1337:72: 1337 | if(flmin.ge.1.0)goto 11051 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1338:72: 1338 | me=0 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1339:72: 1339 | 11320 do 11321 j=1,nin 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1340:72: 1340 | if(ao(j,m).ne.0.0) me=me+1 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1341:72: 1341 | 11321 continue 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1342:72: 1342 | 11322 continue 1050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1343:72: 1343 | if(me.gt.ne)goto 11052 1051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1344:72: 1344 | if(rsq-rsq0.lt.sml*rsq)goto 11052 1051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1345:72: 1345 | if(rsq.gt.rsqmax)goto 11052 1052 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1346:72: 1346 | 11051 continue 1053 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1347:72: 1347 | 11052 continue 1053 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1348:72: 1348 | deallocate(a,mm,c,da) 1054 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1349:72: 1349 | return 1055 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1350:72: 1350 | end 1056 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1351:72: 1351 | 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: 1353 | real x(*),vp(ni),y(no),w(no),ulam(nlam) 1059 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1354:72: 1354 | real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam) 1060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1355:72: 1355 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1061 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1358:72: 1358 | allocate(xm(1:ni),stat=jerr) 1066 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1359:72: 1359 | allocate(xs(1:ni),stat=ierr) 1066 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1360:72: 1360 | jerr=jerr+ierr 1067 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1361:72: 1361 | allocate(ju(1:ni),stat=ierr) 1067 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1362:72: 1362 | jerr=jerr+ierr 1068 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1363:72: 1363 | allocate(xv(1:ni),stat=ierr) 1068 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1364:72: 1364 | jerr=jerr+ierr 1069 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1365:72: 1365 | allocate(vlam(1:nlam),stat=ierr) 1069 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1366:72: 1366 | jerr=jerr+ierr 1070 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1367:72: 1367 | if(jerr.ne.0) return 1071 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1368:72: 1368 | call spchkvars(no,ni,x,ix,ju) 1072 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1369:72: 1369 | 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: 1370 | if(maxval(ju) .gt. 0)goto 11341 1073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1371:72: 1371 | jerr=7777 1073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1372:72: 1372 | return 1073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1373:72: 1373 | 11341 continue 1074 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1374:72: 1374 | 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: 1375 | if(jerr.ne.0) return 1076 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1376:72: 1376 | if(flmin.ge.1.0) vlam=ulam/ys 1077 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1377:72: 1377 | 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: 1379 | if(jerr.gt.0) return 1080 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1380:72: 1380 | 11350 do 11351 k=1,lmu 1080 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1381:72: 1381 | alm(k)=ys*alm(k) 1080 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1382:72: 1382 | nk=nin(k) 1081 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1383:72: 1383 | 11360 do 11361 l=1,nk 1081 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1384:72: 1384 | ca(l,k)=ys*ca(l,k)/xs(ia(l)) 1081 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1385:72: 1385 | 11361 continue 1082 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1386:72: 1386 | 11362 continue 1082 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1387:72: 1387 | 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: 1388 | 11351 continue 1084 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1389:72: 1389 | 11352 continue 1084 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1390:72: 1390 | deallocate(xm,xs,ju,xv,vlam) 1085 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1391:72: 1391 | return 1086 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1392:72: 1392 | end 1087 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1393:72: 1393 | 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: 1395 | 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: 1396 | integer ix(*),jx(*),ju(ni) 1089 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1397:72: 1397 | w=w/sum(w) 1090 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1398:72: 1398 | 11370 do 11371 j=1,ni 1090 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1399:72: 1399 | if(ju(j).eq.0)goto 11371 1091 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1400:72: 1400 | jb=ix(j) 1091 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1401:72: 1401 | je=ix(j+1)-1 1091 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1402:72: 1402 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1403:72: 1403 | 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: 1404 | if(isd.gt.0) xs(j)=sqrt(xv(j)) 1094 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1405:72: 1405 | 11371 continue 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1406:72: 1406 | 11372 continue 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1407:72: 1407 | if(isd .ne. 0)goto 11391 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1408:72: 1408 | xs=1.0 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1409:72: 1409 | goto 11401 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1410:72: 1410 | 11391 continue 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1411:72: 1411 | xv=1.0 1095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1412:72: 1412 | 11401 continue 1096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1413:72: 1413 | 11381 continue 1096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1414:72: 1414 | ym=dot_product(w,y) 1096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1415:72: 1415 | y=y-ym 1096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1416:72: 1416 | ys=sqrt(dot_product(w,y**2)) 1096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1417:72: 1417 | y=y/ys 1097 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1418:72: 1418 | return 1098 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1419:72: 1419 | end 1099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1420:72: 1420 | 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: 1422 | 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: 1424 | real y(no),w(no),x(*),vp(ni),ulam(nlam) 1103 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1425:72: 1425 | 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: 1426 | integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam) 1105 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1429:72: 1429 | allocate(a(1:ni),stat=jerr) 1110 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1430:72: 1430 | allocate(mm(1:ni),stat=ierr) 1110 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1431:72: 1431 | jerr=jerr+ierr 1111 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1432:72: 1432 | allocate(g(1:ni),stat=ierr) 1111 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1433:72: 1433 | jerr=jerr+ierr 1112 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1434:72: 1434 | allocate(iy(1:ni),stat=ierr) 1112 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1435:72: 1435 | jerr=jerr+ierr 1113 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1436:72: 1436 | if(jerr.ne.0) return 1114 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1437:72: 1437 | bta=beta 1114 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1438:72: 1438 | omb=1.0-bta 1114 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1439:72: 1439 | alm=0.0 1114 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1440:72: 1440 | iy=0 1115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1441:72: 1441 | if(flmin .ge. 1.0)goto 11421 1115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1442:72: 1442 | eqs=max(eps,flmin) 1115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1443:72: 1443 | alf=eqs**(1.0/(nlam-1)) 1115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1444:72: 1444 | 11421 continue 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1445:72: 1445 | rsq=0.0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1446:72: 1446 | a=0.0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1447:72: 1447 | mm=0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1448:72: 1448 | o=0.0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1449:72: 1449 | nlp=0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1450:72: 1450 | nin=nlp 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1451:72: 1451 | iz=0 1116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1452:72: 1452 | mnl=min(mnlam,nlam) 1117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1453:72: 1453 | 11430 do 11431 j=1,ni 1117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1454:72: 1454 | if(ju(j).eq.0)goto 11431 1118 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1455:72: 1455 | jb=ix(j) 1118 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1456:72: 1456 | je=ix(j+1)-1 1119 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1457:72: 1457 | 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: 1458 | 11431 continue 1121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1459:72: 1459 | 11432 continue 1121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1460:72: 1460 | 11440 do 11441 m=1,nlam 1121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1461:72: 1461 | alm0=alm 1122 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1462:72: 1462 | if(flmin .lt. 1.0)goto 11461 1122 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1463:72: 1463 | alm=ulam(m) 1122 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1464:72: 1464 | goto 11451 1123 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1465:72: 1465 | 11461 if(m .le. 2)goto 11471 1123 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1466:72: 1466 | alm=alm*alf 1123 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1467:72: 1467 | goto 11451 1124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1468:72: 1468 | 11471 if(m .ne. 1)goto 11481 1124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1469:72: 1469 | alm=big 1124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1470:72: 1470 | goto 11491 1125 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1471:72: 1471 | 11481 continue 1125 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1472:72: 1472 | alm0=0.0 1126 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1473:72: 1473 | 11500 do 11501 j=1,ni 1126 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1474:72: 1474 | if(ju(j).eq.0)goto 11501 1126 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1475:72: 1475 | 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: 1476 | 11501 continue 1127 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1477:72: 1477 | 11502 continue 1127 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1478:72: 1478 | alm0=alm0/max(bta,1.0e-3) 1127 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1479:72: 1479 | alm=alf*alm0 1128 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1480:72: 1480 | 11491 continue 1129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1481:72: 1481 | 11451 continue 1129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1482:72: 1482 | dem=alm*omb 1129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1483:72: 1483 | ab=alm*bta 1129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1484:72: 1484 | rsq0=rsq 1129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1485:72: 1485 | jz=1 1130 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1486:72: 1486 | tlam=bta*(2.0*alm-alm0) 1131 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1487:72: 1487 | 11510 do 11511 k=1,ni 1131 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1488:72: 1488 | if(iy(k).eq.1)goto 11511 1131 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1489:72: 1489 | if(ju(k).eq.0)goto 11511 1132 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1490:72: 1490 | if(g(k).gt.tlam*vp(k)) iy(k)=1 1133 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1491:72: 1491 | 11511 continue 1134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1492:72: 1492 | 11512 continue 1134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1493:72: 1493 | 11520 continue 1134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1494:72: 1494 | 11521 continue 1134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1495:72: 1495 | if(iz*jz.ne.0) go to 10260 1135 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1496:72: 1496 | 10680 continue 1135 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1497:72: 1497 | nlp=nlp+1 1135 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1498:72: 1498 | dlx=0.0 1136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1499:72: 1499 | 11530 do 11531 k=1,ni 1136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1500:72: 1500 | if(iy(k).eq.0)goto 11531 1136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1501:72: 1501 | jb=ix(k) 1136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1502:72: 1502 | je=ix(k+1)-1 1137 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1503:72: 1503 | 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: 1504 | ak=a(k) 1138 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1505:72: 1505 | u=gk+ak*xv(k) 1138 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1506:72: 1506 | v=abs(u)-vp(k)*ab 1138 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1507:72: 1507 | a(k)=0.0 1139 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1508:72: 1508 | 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: 1509 | if(a(k).eq.ak)goto 11531 1141 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1510:72: 1510 | if(mm(k) .ne. 0)goto 11551 1141 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1511:72: 1511 | nin=nin+1 1141 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1512:72: 1512 | if(nin.gt.nx)goto 11532 1142 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1513:72: 1513 | mm(k)=nin 1142 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1514:72: 1514 | ia(nin)=k 1143 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1515:72: 1515 | 11551 continue 1144 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1516:72: 1516 | del=a(k)-ak 1144 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1517:72: 1517 | rsq=rsq+del*(2.0*gk-del*xv(k)) 1145 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1518:72: 1518 | 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: 1519 | o=o+del*xm(k)/xs(k) 1146 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1520:72: 1520 | dlx=max(xv(k)*del**2,dlx) 1147 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1521:72: 1521 | 11531 continue 1148 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1522:72: 1522 | 11532 continue 1148 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1523:72: 1523 | if(nin.gt.nx)goto 11522 1149 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1524:72: 1524 | if(dlx .ge. thr)goto 11571 1149 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1525:72: 1525 | ixx=0 1150 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1526:72: 1526 | 11580 do 11581 j=1,ni 1150 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1527:72: 1527 | if(iy(j).eq.1)goto 11581 1150 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1528:72: 1528 | if(ju(j).eq.0)goto 11581 1151 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1529:72: 1529 | jb=ix(j) 1151 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1530:72: 1530 | je=ix(j+1)-1 1152 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1531:72: 1531 | 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: 1532 | if(g(j) .le. ab*vp(j))goto 11601 1153 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1533:72: 1533 | iy(j)=1 1153 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1534:72: 1534 | ixx=1 1153 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1535:72: 1535 | 11601 continue 1154 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1536:72: 1536 | 11581 continue 1155 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1537:72: 1537 | 11582 continue 1155 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1538:72: 1538 | if(ixx.eq.1) go to 10680 1156 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1539:72: 1539 | goto 11522 1157 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1540:72: 1540 | 11571 continue 1158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1541:72: 1541 | if(nlp .le. maxit)goto 11621 1158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1542:72: 1542 | jerr=-m 1158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1543:72: 1543 | return 1158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1544:72: 1544 | 11621 continue 1159 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1545:72: 1545 | 10260 continue 1159 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1546:72: 1546 | iz=1 1160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1547:72: 1547 | 11630 continue 1160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1548:72: 1548 | 11631 continue 1160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1549:72: 1549 | nlp=nlp+1 1160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1550:72: 1550 | dlx=0.0 1161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1551:72: 1551 | 11640 do 11641 l=1,nin 1161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1552:72: 1552 | k=ia(l) 1161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1553:72: 1553 | jb=ix(k) 1161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1554:72: 1554 | je=ix(k+1)-1 1162 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1555:72: 1555 | 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: 1556 | ak=a(k) 1163 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1557:72: 1557 | u=gk+ak*xv(k) 1163 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1558:72: 1558 | v=abs(u)-vp(k)*ab 1163 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1559:72: 1559 | a(k)=0.0 1164 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1560:72: 1560 | 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: 1561 | if(a(k).eq.ak)goto 11641 1166 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1562:72: 1562 | del=a(k)-ak 1166 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1563:72: 1563 | rsq=rsq+del*(2.0*gk-del*xv(k)) 1167 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1564:72: 1564 | 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: 1565 | o=o+del*xm(k)/xs(k) 1168 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1566:72: 1566 | dlx=max(xv(k)*del**2,dlx) 1169 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1567:72: 1567 | 11641 continue 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1568:72: 1568 | 11642 continue 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1569:72: 1569 | if(dlx.lt.thr)goto 11632 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1570:72: 1570 | if(nlp .le. maxit)goto 11661 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1571:72: 1571 | jerr=-m 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1572:72: 1572 | return 1170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1573:72: 1573 | 11661 continue 1171 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1574:72: 1574 | goto 11631 1172 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1575:72: 1575 | 11632 continue 1172 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1576:72: 1576 | jz=0 1173 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1577:72: 1577 | goto 11521 1174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1578:72: 1578 | 11522 continue 1174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1579:72: 1579 | if(nin .le. nx)goto 11681 1174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1580:72: 1580 | jerr=-10000-m 1174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1581:72: 1581 | goto 11442 1174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1582:72: 1582 | 11681 continue 1175 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1583:72: 1583 | 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: 1584 | kin(m)=nin 1176 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1585:72: 1585 | rsqo(m)=rsq 1176 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1586:72: 1586 | almo(m)=alm 1176 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1587:72: 1587 | lmu=m 1177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1588:72: 1588 | if(m.lt.mnl)goto 11441 1177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1589:72: 1589 | if(flmin.ge.1.0)goto 11441 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1590:72: 1590 | me=0 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1591:72: 1591 | 11690 do 11691 j=1,nin 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1592:72: 1592 | if(ao(j,m).ne.0.0) me=me+1 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1593:72: 1593 | 11691 continue 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1594:72: 1594 | 11692 continue 1178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1595:72: 1595 | if(me.gt.ne)goto 11442 1179 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1596:72: 1596 | if(rsq-rsq0.lt.sml*rsq)goto 11442 1179 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1597:72: 1597 | if(rsq.gt.rsqmax)goto 11442 1180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1598:72: 1598 | 11441 continue 1181 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1599:72: 1599 | 11442 continue 1181 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1600:72: 1600 | deallocate(a,mm,g,iy) 1182 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1601:72: 1601 | return 1183 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1602:72: 1602 | end 1184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1603:72: 1603 | subroutine spchkvars(no,ni,x,ix,ju) 1185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1604:72: 1604 | real x(*) 1185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1605:72: 1605 | integer ix(*),ju(ni) 1186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1606:72: 1606 | 11700 do 11701 j=1,ni 1186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1607:72: 1607 | ju(j)=0 1186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1608:72: 1608 | jb=ix(j) 1186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1609:72: 1609 | nj=ix(j+1)-jb 1186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1610:72: 1610 | if(nj.eq.0)goto 11701 1187 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1611:72: 1611 | je=ix(j+1)-1 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1612:72: 1612 | if(nj .ge. no)goto 11721 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1613:72: 1613 | 11730 do 11731 i=jb,je 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1614:72: 1614 | if(x(i).eq.0.0)goto 11731 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1615:72: 1615 | ju(j)=1 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1616:72: 1616 | goto 11732 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1617:72: 1617 | 11731 continue 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1618:72: 1618 | 11732 continue 1188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1619:72: 1619 | goto 11741 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1620:72: 1620 | 11721 continue 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1621:72: 1621 | t=x(jb) 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1622:72: 1622 | 11750 do 11751 i=jb+1,je 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1623:72: 1623 | if(x(i).eq.t)goto 11751 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1624:72: 1624 | ju(j)=1 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1625:72: 1625 | goto 11752 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1626:72: 1626 | 11751 continue 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1627:72: 1627 | 11752 continue 1189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1628:72: 1628 | 11741 continue 1190 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1629:72: 1629 | 11711 continue 1190 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1630:72: 1630 | 11701 continue 1191 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1631:72: 1631 | 11702 continue 1191 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1632:72: 1632 | return 1192 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1633:72: 1633 | end 1193 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1634:72: 1634 | subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f) 1194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1635:72: 1635 | real ca(*),x(*),f(n) 1194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1636:72: 1636 | integer ia(*),ix(*),jx(*) 1195 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1637:72: 1637 | f=a0 1196 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1638:72: 1638 | 11760 do 11761 j=1,nin 1196 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1639:72: 1639 | k=ia(j) 1196 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1640:72: 1640 | kb=ix(k) 1196 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1641:72: 1641 | ke=ix(k+1)-1 1197 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1642:72: 1642 | 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: 1643 | 11761 continue 1199 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1644:72: 1644 | 11762 continue 1199 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1645:72: 1645 | return 1200 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1646:72: 1646 | end 1201 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1647:72: 1647 | function row_prod(i,j,ia,ja,ra,w) 1202 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1648:72: 1648 | integer ia(*),ja(*) 1202 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1649:72: 1649 | real ra(*),w(*) 1203 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1650:72: 1650 | 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: 1652 | return 1206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1653:72: 1653 | end 1207 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1654:72: 1654 | function dot(x,y,mx,my,nx,ny,w) 1208 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1655:72: 1655 | real x(*),y(*),w(*) 1208 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1656:72: 1656 | integer mx(*),my(*) 1209 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1657:72: 1657 | i=1 1209 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1658:72: 1658 | j=i 1209 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1659:72: 1659 | s=0.0 1210 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1660:72: 1660 | 11770 continue 1210 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1661:72: 1661 | 11771 continue 1210 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1662:72: 1662 | 11780 continue 1211 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1663:72: 1663 | 11781 if(mx(i).ge.my(j))goto 11782 1211 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1664:72: 1664 | i=i+1 1211 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1665:72: 1665 | if(i.gt.nx) go to 11790 1211 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1666:72: 1666 | goto 11781 1212 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1667:72: 1667 | 11782 continue 1212 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1668:72: 1668 | if(mx(i).eq.my(j)) go to 11800 1213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1669:72: 1669 | 11810 continue 1213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1670:72: 1670 | 11811 if(my(j).ge.mx(i))goto 11812 1213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1671:72: 1671 | j=j+1 1213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1672:72: 1672 | if(j.gt.ny) go to 11790 1213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1673:72: 1673 | goto 11811 1214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1674:72: 1674 | 11812 continue 1214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1675:72: 1675 | if(mx(i).eq.my(j)) go to 11800 1214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1676:72: 1676 | goto 11771 1215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1677:72: 1677 | 11800 continue 1215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1678:72: 1678 | s=s+w(mx(i))*x(i)*y(j) 1216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1679:72: 1679 | i=i+1 1216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1680:72: 1680 | if(i.gt.nx)goto 11772 1216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1681:72: 1681 | j=j+1 1216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1682:72: 1682 | if(j.gt.ny)goto 11772 1217 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1683:72: 1683 | goto 11771 1218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1684:72: 1684 | 11772 continue 1218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1685:72: 1685 | 11790 continue 1218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1686:72: 1686 | dot=s 1219 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1687:72: 1687 | return 1220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1688:72: 1688 | end 1221 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1689:72: 1689 | 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: 1691 | 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: 1692 | 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: 1693 | integer jd(*),ia(nx),nin(nlam) 1226 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1696:72: 1696 | if(maxval(vp) .gt. 0.0)goto 11831 1230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1697:72: 1697 | jerr=10000 1230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1698:72: 1698 | return 1230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1699:72: 1699 | 11831 continue 1231 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1700:72: 1700 | allocate(ww(1:no),stat=jerr) 1232 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1701:72: 1701 | allocate(ju(1:ni),stat=ierr) 1232 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1702:72: 1702 | jerr=jerr+ierr 1233 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1703:72: 1703 | allocate(vq(1:ni),stat=ierr) 1233 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1704:72: 1704 | jerr=jerr+ierr 1234 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1705:72: 1705 | allocate(xm(1:ni),stat=ierr) 1234 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1706:72: 1706 | jerr=jerr+ierr 1235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1707:72: 1707 | if(isd .le. 0)goto 11851 1235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1708:72: 1708 | allocate(xs(1:ni),stat=ierr) 1235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1709:72: 1709 | jerr=jerr+ierr 1235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1710:72: 1710 | 11851 continue 1236 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1711:72: 1711 | if(jerr.ne.0) return 1237 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1712:72: 1712 | call chkvars(no,ni,x,ju) 1238 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1713:72: 1713 | 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: 1714 | if(maxval(ju) .gt. 0)goto 11871 1239 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1715:72: 1715 | jerr=7777 1239 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1716:72: 1716 | return 1239 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1717:72: 1717 | 11871 continue 1240 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1718:72: 1718 | vq=max(0.0,vp) 1240 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1719:72: 1719 | vq=vq*ni/sum(vq) 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1720:72: 1720 | 11880 do 11881 i=1,no 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1721:72: 1721 | ww(i)=sum(y(i,:)) 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1722:72: 1722 | y(i,:)=y(i,:)/ww(i) 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1723:72: 1723 | 11881 continue 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1724:72: 1724 | 11882 continue 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1725:72: 1725 | sw=sum(ww) 1241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1726:72: 1726 | ww=ww/sw 1242 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1727:72: 1727 | call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 1243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1728:72: 1728 | if(nc .ne. 1)goto 11901 1244 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1729:72: 1729 | 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: 1731 | goto 11911 1247 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1732:72: 1732 | 11901 continue 1248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1733:72: 1733 | 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: 1735 | 11911 continue 1251 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1736:72: 1736 | 11891 continue 1251 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1737:72: 1737 | if(jerr.gt.0) return 1251 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1738:72: 1738 | dev0=2.0*sw*dev0 1252 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1739:72: 1739 | 11920 do 11921 k=1,lmu 1252 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1740:72: 1740 | nk=nin(k) 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1741:72: 1741 | 11930 do 11931 ic=1,nc 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1742:72: 1742 | if(isd .le. 0)goto 11951 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1743:72: 1743 | 11960 do 11961 l=1,nk 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1744:72: 1744 | ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1745:72: 1745 | 11961 continue 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1746:72: 1746 | 11962 continue 1253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1747:72: 1747 | 11951 continue 1254 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1748:72: 1748 | 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: 1749 | 11931 continue 1256 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1750:72: 1750 | 11932 continue 1256 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1751:72: 1751 | 11921 continue 1257 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1752:72: 1752 | 11922 continue 1257 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1753:72: 1753 | deallocate(ww,ju,vq,xm) 1257 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1754:72: 1754 | if(isd.gt.0) deallocate(xs) 1258 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1755:72: 1755 | return 1259 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1756:72: 1756 | end 1260 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1757:72: 1757 | subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs) 1261 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1758:72: 1758 | real x(no,ni),w(no),xm(ni),xs(ni) 1261 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1759:72: 1759 | integer ju(ni) 1262 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1760:72: 1760 | 11970 do 11971 j=1,ni 1262 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1761:72: 1761 | if(ju(j).eq.0)goto 11971 1263 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1762:72: 1762 | xm(j)=dot_product(w,x(:,j)) 1263 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1763:72: 1763 | x(:,j)=x(:,j)-xm(j) 1264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1764:72: 1764 | if(isd .le. 0)goto 11991 1264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1765:72: 1765 | xs(j)=sqrt(dot_product(w,x(:,j)**2)) 1264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1766:72: 1766 | x(:,j)=x(:,j)/xs(j) 1264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1767:72: 1767 | 11991 continue 1265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1768:72: 1768 | 11971 continue 1266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1769:72: 1769 | 11972 continue 1266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1770:72: 1770 | return 1267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1771:72: 1771 | end 1268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1772:72: 1772 | 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: 1774 | 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: 1776 | 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: 1777 | real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1778:72: 1778 | integer ju(ni),m(nx),kin(nlam) 1275 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1781:72: 1781 | allocate(b(0:ni),stat=jerr) 1280 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1782:72: 1782 | allocate(xv(1:ni),stat=ierr) 1280 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1783:72: 1783 | jerr=jerr+ierr 1281 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1784:72: 1784 | allocate(ga(1:ni),stat=ierr) 1281 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1785:72: 1785 | jerr=jerr+ierr 1282 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1786:72: 1786 | allocate(bs(0:ni),stat=ierr) 1282 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1787:72: 1787 | jerr=jerr+ierr 1283 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1788:72: 1788 | allocate(mm(1:ni),stat=ierr) 1283 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1789:72: 1789 | jerr=jerr+ierr 1284 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1790:72: 1790 | allocate(ixx(1:ni),stat=ierr) 1284 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1791:72: 1791 | jerr=jerr+ierr 1285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1792:72: 1792 | allocate(r(1:no),stat=ierr) 1285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1793:72: 1793 | jerr=jerr+ierr 1286 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1794:72: 1794 | allocate(v(1:no),stat=ierr) 1286 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1795:72: 1795 | jerr=jerr+ierr 1287 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1796:72: 1796 | allocate(q(1:no),stat=ierr) 1287 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1797:72: 1797 | jerr=jerr+ierr 1288 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1798:72: 1798 | if(jerr.ne.0) return 1289 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1799:72: 1799 | fmax=log(1.0/pmin-1.0) 1289 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1800:72: 1800 | fmin=-fmax 1289 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1801:72: 1801 | vmin=(1.0+pmin)*pmin*(1.0-pmin) 1290 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1802:72: 1802 | bta=parm 1290 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1803:72: 1803 | omb=1.0-bta 1291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1804:72: 1804 | q0=dot_product(w,y) 1291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1805:72: 1805 | if(q0 .gt. pmin)goto 12011 1291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1806:72: 1806 | jerr=8001 1291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1807:72: 1807 | return 1291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1808:72: 1808 | 12011 continue 1292 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1809:72: 1809 | if(q0 .lt. 1.0-pmin)goto 12031 1292 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1810:72: 1810 | jerr=9001 1292 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1811:72: 1811 | return 1292 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1812:72: 1812 | 12031 continue 1293 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1813:72: 1813 | ixx=0 1293 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1814:72: 1814 | al=0.0 1293 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1815:72: 1815 | bz=log(q0/(1.0-q0)) 1294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1816:72: 1816 | if(nonzero(no,g) .ne. 0)goto 12051 1294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1817:72: 1817 | vi=q0*(1.0-q0) 1294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1818:72: 1818 | b(0)=bz 1294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1819:72: 1819 | v=vi*w 1295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1820:72: 1820 | r=w*(y-q0) 1295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1821:72: 1821 | q=q0 1295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1822:72: 1822 | xmz=vi 1295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1823:72: 1823 | dev1=-(bz*q0+log(1.0-q0)) 1296 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1824:72: 1824 | goto 12061 1297 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1825:72: 1825 | 12051 continue 1297 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1826:72: 1826 | b(0)=azero(no,y,g,w,jerr) 1297 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1827:72: 1827 | if(jerr.ne.0) return 1298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1828:72: 1828 | q=1.0/(1.0+exp(-b(0)-g)) 1298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1829:72: 1829 | v=w*q*(1.0-q) 1298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1830:72: 1830 | r=w*(y-q) 1298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1831:72: 1831 | xmz=sum(v) 1299 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1832:72: 1832 | 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: 1833 | 12061 continue 1301 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1834:72: 1834 | 12041 continue 1301 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1835:72: 1835 | if(kopt .le. 0)goto 12081 1302 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1836:72: 1836 | if(isd .le. 0)goto 12101 1302 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1837:72: 1837 | xv=0.25 1302 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1838:72: 1838 | goto 12111 1303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1839:72: 1839 | 12101 continue 1303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1840:72: 1840 | 12120 do 12121 j=1,ni 1303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1841:72: 1841 | 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: 1842 | 12121 continue 1303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1843:72: 1843 | 12122 continue 1303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1844:72: 1844 | 12111 continue 1304 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1845:72: 1845 | 12091 continue 1304 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1846:72: 1846 | 12081 continue 1305 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1847:72: 1847 | dev0=dev1 1306 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1848:72: 1848 | 12130 do 12131 i=1,no 1306 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1849:72: 1849 | 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: 1850 | 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: 1851 | 12131 continue 1309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1852:72: 1852 | 12132 continue 1309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1853:72: 1853 | if(flmin .ge. 1.0)goto 12151 1309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1854:72: 1854 | eqs=max(eps,flmin) 1309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1855:72: 1855 | alf=eqs**(1.0/(nlam-1)) 1309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1856:72: 1856 | 12151 continue 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1857:72: 1857 | m=0 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1858:72: 1858 | mm=0 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1859:72: 1859 | nlp=0 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1860:72: 1860 | nin=nlp 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1861:72: 1861 | mnl=min(mnlam,nlam) 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1862:72: 1862 | bs=0.0 1310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1863:72: 1863 | b(1:ni)=0.0 1311 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1864:72: 1864 | shr=shri*dev0 1312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1865:72: 1865 | 12160 do 12161 j=1,ni 1312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1866:72: 1866 | if(ju(j).eq.0)goto 12161 1312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1867:72: 1867 | ga(j)=abs(dot_product(r,x(:,j))) 1312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1868:72: 1868 | 12161 continue 1313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1869:72: 1869 | 12162 continue 1313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1870:72: 1870 | 12170 do 12171 ilm=1,nlam 1313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1871:72: 1871 | al0=al 1314 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1872:72: 1872 | if(flmin .lt. 1.0)goto 12191 1314 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1873:72: 1873 | al=ulam(ilm) 1314 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1874:72: 1874 | goto 12181 1315 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1875:72: 1875 | 12191 if(ilm .le. 2)goto 12201 1315 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1876:72: 1876 | al=al*alf 1315 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1877:72: 1877 | goto 12181 1316 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1878:72: 1878 | 12201 if(ilm .ne. 1)goto 12211 1316 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1879:72: 1879 | al=big 1316 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1880:72: 1880 | goto 12221 1317 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1881:72: 1881 | 12211 continue 1317 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1882:72: 1882 | al0=0.0 1318 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1883:72: 1883 | 12230 do 12231 j=1,ni 1318 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1884:72: 1884 | if(ju(j).eq.0)goto 12231 1318 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1885:72: 1885 | 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: 1886 | 12231 continue 1319 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1887:72: 1887 | 12232 continue 1319 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1888:72: 1888 | al0=al0/max(bta,1.0e-3) 1319 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1889:72: 1889 | al=alf*al0 1320 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1890:72: 1890 | 12221 continue 1321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1891:72: 1891 | 12181 continue 1321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1892:72: 1892 | al2=al*omb 1321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1893:72: 1893 | al1=al*bta 1321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1894:72: 1894 | tlam=bta*(2.0*al-al0) 1322 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1895:72: 1895 | 12240 do 12241 k=1,ni 1322 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1896:72: 1896 | if(ixx(k).eq.1)goto 12241 1322 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1897:72: 1897 | if(ju(k).eq.0)goto 12241 1323 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1898:72: 1898 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1324 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1899:72: 1899 | 12241 continue 1325 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1900:72: 1900 | 12242 continue 1325 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1901:72: 1901 | 10680 continue 1326 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1902:72: 1902 | 12250 continue 1326 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1903:72: 1903 | 12251 continue 1326 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1904:72: 1904 | bs(0)=b(0) 1326 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1905:72: 1905 | 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: 1906 | if(kopt .ne. 0)goto 12271 1328 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1907:72: 1907 | 12280 do 12281 j=1,ni 1328 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1908:72: 1908 | 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: 1909 | 12281 continue 1329 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1910:72: 1910 | 12282 continue 1329 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1911:72: 1911 | 12271 continue 1330 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1912:72: 1912 | 12290 continue 1330 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1913:72: 1913 | 12291 continue 1330 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1914:72: 1914 | nlp=nlp+1 1330 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1915:72: 1915 | dlx=0.0 1331 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1916:72: 1916 | 12300 do 12301 k=1,ni 1331 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1917:72: 1917 | if(ixx(k).eq.0)goto 12301 1332 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1918:72: 1918 | bk=b(k) 1332 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1919:72: 1919 | gk=dot_product(r,x(:,k)) 1333 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1920:72: 1920 | u=gk+xv(k)*b(k) 1333 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1921:72: 1921 | au=abs(u)-vp(k)*al1 1334 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1922:72: 1922 | if(au .gt. 0.0)goto 12321 1334 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1923:72: 1923 | b(k)=0.0 1334 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1924:72: 1924 | goto 12331 1335 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1925:72: 1925 | 12321 continue 1335 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1926:72: 1926 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1335 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1927:72: 1927 | 12331 continue 1336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1928:72: 1928 | 12311 continue 1336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1929:72: 1929 | d=b(k)-bk 1336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1930:72: 1930 | if(abs(d).le.0.0)goto 12301 1336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1931:72: 1931 | dlx=max(dlx,xv(k)*d**2) 1337 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1932:72: 1932 | r=r-d*v*x(:,k) 1338 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1933:72: 1933 | if(mm(k) .ne. 0)goto 12351 1338 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1934:72: 1934 | nin=nin+1 1338 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1935:72: 1935 | if(nin.gt.nx)goto 12302 1339 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1936:72: 1936 | mm(k)=nin 1339 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1937:72: 1937 | m(nin)=k 1340 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1938:72: 1938 | 12351 continue 1341 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1939:72: 1939 | 12301 continue 1342 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1940:72: 1940 | 12302 continue 1342 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1941:72: 1941 | if(nin.gt.nx)goto 12292 1343 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1942:72: 1942 | d=sum(r)/xmz 1344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1943:72: 1943 | if(d .eq. 0.0)goto 12371 1344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1944:72: 1944 | b(0)=b(0)+d 1344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1945:72: 1945 | dlx=max(dlx,xmz*d**2) 1344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1946:72: 1946 | r=r-d*v 1344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1947:72: 1947 | 12371 continue 1345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1948:72: 1948 | if(dlx.lt.shr)goto 12292 1345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1949:72: 1949 | if(nlp .le. maxit)goto 12391 1345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1950:72: 1950 | jerr=-ilm 1345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1951:72: 1951 | return 1345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1952:72: 1952 | 12391 continue 1346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1953:72: 1953 | 12400 continue 1346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1954:72: 1954 | 12401 continue 1346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1955:72: 1955 | nlp=nlp+1 1346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1956:72: 1956 | dlx=0.0 1347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1957:72: 1957 | 12410 do 12411 l=1,nin 1347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1958:72: 1958 | k=m(l) 1347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1959:72: 1959 | bk=b(k) 1348 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1960:72: 1960 | gk=dot_product(r,x(:,k)) 1349 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1961:72: 1961 | u=gk+xv(k)*b(k) 1349 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1962:72: 1962 | au=abs(u)-vp(k)*al1 1350 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1963:72: 1963 | if(au .gt. 0.0)goto 12431 1350 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1964:72: 1964 | b(k)=0.0 1350 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1965:72: 1965 | goto 12441 1351 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1966:72: 1966 | 12431 continue 1351 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1967:72: 1967 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1351 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1968:72: 1968 | 12441 continue 1352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1969:72: 1969 | 12421 continue 1352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1970:72: 1970 | d=b(k)-bk 1352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1971:72: 1971 | if(abs(d).le.0.0)goto 12411 1352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1972:72: 1972 | dlx=max(dlx,xv(k)*d**2) 1353 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1973:72: 1973 | r=r-d*v*x(:,k) 1354 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1974:72: 1974 | 12411 continue 1355 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1975:72: 1975 | 12412 continue 1355 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1976:72: 1976 | d=sum(r)/xmz 1356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1977:72: 1977 | if(d .eq. 0.0)goto 12461 1356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1978:72: 1978 | b(0)=b(0)+d 1356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1979:72: 1979 | dlx=max(dlx,xmz*d**2) 1356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1980:72: 1980 | r=r-d*v 1356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1981:72: 1981 | 12461 continue 1357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1982:72: 1982 | if(dlx.lt.shr)goto 12402 1357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1983:72: 1983 | if(nlp .le. maxit)goto 12481 1357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1984:72: 1984 | jerr=-ilm 1357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1985:72: 1985 | return 1357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1986:72: 1986 | 12481 continue 1358 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1987:72: 1987 | goto 12401 1359 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1988:72: 1988 | 12402 continue 1359 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1989:72: 1989 | goto 12291 1360 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1990:72: 1990 | 12292 continue 1360 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1991:72: 1991 | if(nin.gt.nx)goto 12252 1361 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1992:72: 1992 | 12490 do 12491 i=1,no 1361 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1993:72: 1993 | fi=b(0)+g(i) 1362 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1994:72: 1994 | 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: 1995 | if(fi .ge. fmin)goto 12511 1363 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1996:72: 1996 | q(i)=0.0 1363 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1997:72: 1997 | goto 12501 1363 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1998:72: 1998 | 12511 if(fi .le. fmax)goto 12521 1363 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:1999:72: 1999 | q(i)=1.0 1363 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2000:72: 2000 | goto 12531 1364 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2001:72: 2001 | 12521 continue 1364 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2002:72: 2002 | q(i)=1.0/(1.0+exp(-fi)) 1364 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2003:72: 2003 | 12531 continue 1365 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2004:72: 2004 | 12501 continue 1365 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2005:72: 2005 | 12491 continue 1366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2006:72: 2006 | 12492 continue 1366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2007:72: 2007 | v=w*q*(1.0-q) 1366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2008:72: 2008 | xmz=sum(v) 1366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2009:72: 2009 | if(xmz.le.vmin)goto 12252 1366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2010:72: 2010 | r=w*(y-q) 1367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2011:72: 2011 | if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551 1367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2012:72: 2012 | ix=0 1368 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2013:72: 2013 | 12560 do 12561 j=1,nin 1368 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2014:72: 2014 | k=m(j) 1369 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2015:72: 2015 | 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: 2016 | ix=1 1369 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2017:72: 2017 | goto 12562 1370 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2018:72: 2018 | 12561 continue 1371 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2019:72: 2019 | 12562 continue 1371 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2020:72: 2020 | if(ix .ne. 0)goto 12581 1372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2021:72: 2021 | 12590 do 12591 k=1,ni 1372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2022:72: 2022 | if(ixx(k).eq.1)goto 12591 1372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2023:72: 2023 | if(ju(k).eq.0)goto 12591 1373 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2024:72: 2024 | ga(k)=abs(dot_product(r,x(:,k))) 1374 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2025:72: 2025 | if(ga(k) .le. al1*vp(k))goto 12611 1374 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2026:72: 2026 | ixx(k)=1 1374 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2027:72: 2027 | ix=1 1374 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2028:72: 2028 | 12611 continue 1375 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2029:72: 2029 | 12591 continue 1376 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2030:72: 2030 | 12592 continue 1376 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2031:72: 2031 | if(ix.eq.1) go to 10680 1377 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2032:72: 2032 | goto 12252 1378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2033:72: 2033 | 12581 continue 1379 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2034:72: 2034 | 12551 continue 1380 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2035:72: 2035 | goto 12251 1381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2036:72: 2036 | 12252 continue 1381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2037:72: 2037 | if(nin .le. nx)goto 12631 1381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2038:72: 2038 | jerr=-10000-ilm 1381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2039:72: 2039 | goto 12172 1381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2040:72: 2040 | 12631 continue 1382 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2041:72: 2041 | 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: 2042 | kin(ilm)=nin 1383 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2043:72: 2043 | a0(ilm)=b(0) 1383 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2044:72: 2044 | alm(ilm)=al 1383 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2045:72: 2045 | lmu=ilm 1384 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2046:72: 2046 | devi=dev2(no,w,y,q,pmin) 1385 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2047:72: 2047 | dev(ilm)=(dev1-devi)/dev0 1385 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2048:72: 2048 | if(xmz.le.vmin)goto 12172 1386 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2049:72: 2049 | if(ilm.lt.mnl)goto 12171 1386 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2050:72: 2050 | if(flmin.ge.1.0)goto 12171 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2051:72: 2051 | me=0 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2052:72: 2052 | 12640 do 12641 j=1,nin 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2053:72: 2053 | if(a(j,ilm).ne.0.0) me=me+1 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2054:72: 2054 | 12641 continue 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2055:72: 2055 | 12642 continue 1387 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2056:72: 2056 | if(me.gt.ne)goto 12172 1388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2057:72: 2057 | if(dev(ilm).gt.devmax)goto 12172 1388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2058:72: 2058 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172 1389 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2059:72: 2059 | 12171 continue 1390 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2060:72: 2060 | 12172 continue 1390 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2061:72: 2061 | g=log(q/(1.0-q)) 1391 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2062:72: 2062 | deallocate(b,bs,v,r,xv,q,mm,ga,ixx) 1392 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2063:72: 2063 | return 1393 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2064:72: 2064 | end 1394 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2065:72: 2065 | function dev2(n,w,y,p,pmin) 1395 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2066:72: 2066 | real w(n),y(n),p(n) 1396 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2067:72: 2067 | pmax=1.0-pmin 1396 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2068:72: 2068 | s=0.0 1397 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2069:72: 2069 | 12650 do 12651 i=1,n 1397 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2070:72: 2070 | pi=min(max(pmin,p(i)),pmax) 1398 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2071:72: 2071 | 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: 2072 | 12651 continue 1400 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2073:72: 2073 | 12652 continue 1400 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2074:72: 2074 | dev2=s 1401 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2075:72: 2075 | return 1402 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2076:72: 2076 | end 1403 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2077:72: 2077 | function azero(n,y,g,q,jerr) 1404 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2078:72: 2078 | parameter(eps=1.0e-7) 1405 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2079:72: 2079 | real y(n),g(n),q(n) 1406 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2081:72: 2081 | allocate(e(1:n),stat=jerr) 1410 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2082:72: 2082 | allocate(p(1:n),stat=ierr) 1410 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2083:72: 2083 | jerr=jerr+ierr 1411 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2084:72: 2084 | allocate(w(1:n),stat=ierr) 1411 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2085:72: 2085 | jerr=jerr+ierr 1412 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2086:72: 2086 | if(jerr.ne.0) return 1413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2087:72: 2087 | az=0.0 1413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2088:72: 2088 | e=exp(-g) 1413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2089:72: 2089 | qy=dot_product(q,y) 1413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2090:72: 2090 | p=1.0/(1.0+e) 1414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2091:72: 2091 | 12660 continue 1414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2092:72: 2092 | 12661 continue 1414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2093:72: 2093 | w=q*p*(1.0-p) 1415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2094:72: 2094 | d=(qy-dot_product(q,p))/sum(w) 1415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2095:72: 2095 | az=az+d 1415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2096:72: 2096 | if(abs(d).lt.eps)goto 12662 1416 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2097:72: 2097 | ea0=exp(-az) 1416 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2098:72: 2098 | p=1.0/(1.0+ea0*e) 1417 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2099:72: 2099 | goto 12661 1418 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2100:72: 2100 | 12662 continue 1418 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2101:72: 2101 | azero=az 1419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2102:72: 2102 | deallocate(e,p,w) 1420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2103:72: 2103 | return 1421 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2104:72: 2104 | end 1422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2105:72: 2105 | 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: 2107 | 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: 2109 | 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: 2110 | 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: 2111 | integer ju(ni),m(nx),kin(nlam) 1429 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2121:72: 2121 | allocate(r(1:no),stat=ierr) 1440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2122:72: 2122 | jerr=jerr+ierr 1441 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2123:72: 2123 | allocate(v(1:no),stat=ierr) 1441 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2124:72: 2124 | jerr=jerr+ierr 1442 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2125:72: 2125 | allocate(mm(1:ni),stat=ierr) 1442 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2126:72: 2126 | jerr=jerr+ierr 1443 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2127:72: 2127 | allocate(is(1:max(nc,ni)),stat=ierr) 1443 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2128:72: 2128 | jerr=jerr+ierr 1444 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2129:72: 2129 | allocate(sxp(1:no),stat=ierr) 1444 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2130:72: 2130 | jerr=jerr+ierr 1445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2131:72: 2131 | allocate(sxpl(1:no),stat=ierr) 1445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2132:72: 2132 | jerr=jerr+ierr 1446 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2133:72: 2133 | allocate(di(1:no),stat=ierr) 1446 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2134:72: 2134 | jerr=jerr+ierr 1447 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2135:72: 2135 | allocate(ga(1:ni),stat=ierr) 1447 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2136:72: 2136 | jerr=jerr+ierr 1448 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2137:72: 2137 | allocate(ixx(1:ni),stat=ierr) 1448 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2138:72: 2138 | jerr=jerr+ierr 1449 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2139:72: 2139 | if(jerr.ne.0) return 1450 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2140:72: 2140 | pmax=1.0-pmin 1450 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2141:72: 2141 | emin=pmin/pmax 1450 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2142:72: 2142 | emax=1.0/emin 1451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2143:72: 2143 | pfm=(1.0+pmin)*pmin 1451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2144:72: 2144 | pfx=(1.0-pmin)*pmax 1451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2145:72: 2145 | vmin=pfm*pmax 1452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2146:72: 2146 | bta=parm 1452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2147:72: 2147 | omb=1.0-bta 1452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2148:72: 2148 | dev1=0.0 1452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2149:72: 2149 | dev0=0.0 1453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2150:72: 2150 | 12670 do 12671 ic=1,nc 1453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2151:72: 2151 | q0=dot_product(w,y(:,ic)) 1454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2152:72: 2152 | if(q0 .gt. pmin)goto 12691 1454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2153:72: 2153 | jerr =8000+ic 1454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2154:72: 2154 | return 1454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2155:72: 2155 | 12691 continue 1455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2156:72: 2156 | if(q0 .lt. 1.0-pmin)goto 12711 1455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2157:72: 2157 | jerr =9000+ic 1455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2158:72: 2158 | return 1455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2159:72: 2159 | 12711 continue 1456 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2160:72: 2160 | b(0,ic)=log(q0) 1456 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2161:72: 2161 | dev1=dev1-q0*b(0,ic) 1456 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2162:72: 2162 | b(1:ni,ic)=0.0 1457 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2163:72: 2163 | 12671 continue 1458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2164:72: 2164 | 12672 continue 1458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2165:72: 2165 | ixx=0 1458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2166:72: 2166 | al=0.0 1459 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2167:72: 2167 | if(nonzero(no*nc,g) .ne. 0)goto 12731 1460 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2168:72: 2168 | b(0,:)=b(0,:)-sum(b(0,:))/nc 1460 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2169:72: 2169 | sxp=0.0 1461 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2170:72: 2170 | 12740 do 12741 ic=1,nc 1461 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2171:72: 2171 | q(:,ic)=exp(b(0,ic)) 1461 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2172:72: 2172 | sxp=sxp+q(:,ic) 1461 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2173:72: 2173 | 12741 continue 1462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2174:72: 2174 | 12742 continue 1462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2175:72: 2175 | goto 12751 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2176:72: 2176 | 12731 continue 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2177:72: 2177 | 12760 do 12761 i=1,no 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2178:72: 2178 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2179:72: 2179 | 12761 continue 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2180:72: 2180 | 12762 continue 1463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2181:72: 2181 | sxp=0.0 1464 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2182:72: 2182 | call kazero(nc,no,y,g,w,b(0,:),jerr) 1464 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2183:72: 2183 | if(jerr.ne.0) return 1465 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2184:72: 2184 | dev1=0.0 1466 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2185:72: 2185 | 12770 do 12771 ic=1,nc 1466 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2186:72: 2186 | q(:,ic)=b(0,ic)+g(:,ic) 1467 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2187:72: 2187 | dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1468 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2188:72: 2188 | q(:,ic)=exp(q(:,ic)) 1468 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2189:72: 2189 | sxp=sxp+q(:,ic) 1469 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2190:72: 2190 | 12771 continue 1470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2191:72: 2191 | 12772 continue 1470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2192:72: 2192 | sxpl=w*log(sxp) 1470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2193:72: 2193 | 12780 do 12781 ic=1,nc 1470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2194:72: 2194 | dev1=dev1+dot_product(y(:,ic),sxpl) 1470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2195:72: 2195 | 12781 continue 1471 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2196:72: 2196 | 12782 continue 1471 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2197:72: 2197 | 12751 continue 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2198:72: 2198 | 12721 continue 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2199:72: 2199 | 12790 do 12791 ic=1,nc 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2200:72: 2200 | 12800 do 12801 i=1,no 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2201:72: 2201 | 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: 2202 | 12801 continue 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2203:72: 2203 | 12802 continue 1472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2204:72: 2204 | 12791 continue 1473 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2205:72: 2205 | 12792 continue 1473 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2206:72: 2206 | dev0=dev0+dev1 1474 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2207:72: 2207 | if(kopt .le. 0)goto 12821 1475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2208:72: 2208 | if(isd .le. 0)goto 12841 1475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2209:72: 2209 | xv=0.25 1475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2210:72: 2210 | goto 12851 1476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2211:72: 2211 | 12841 continue 1476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2212:72: 2212 | 12860 do 12861 j=1,ni 1476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2213:72: 2213 | 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: 2214 | 12861 continue 1476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2215:72: 2215 | 12862 continue 1476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2216:72: 2216 | 12851 continue 1477 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2217:72: 2217 | 12831 continue 1477 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2218:72: 2218 | 12821 continue 1478 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2219:72: 2219 | if(flmin .ge. 1.0)goto 12881 1478 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2220:72: 2220 | eqs=max(eps,flmin) 1478 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2221:72: 2221 | alf=eqs**(1.0/(nlam-1)) 1478 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2222:72: 2222 | 12881 continue 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2223:72: 2223 | m=0 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2224:72: 2224 | mm=0 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2225:72: 2225 | nin=0 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2226:72: 2226 | nlp=0 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2227:72: 2227 | mnl=min(mnlam,nlam) 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2228:72: 2228 | bs=0.0 1479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2229:72: 2229 | shr=shri*dev0 1480 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2230:72: 2230 | ga=0.0 1481 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2231:72: 2231 | 12890 do 12891 ic=1,nc 1481 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2232:72: 2232 | r=w*(y(:,ic)-q(:,ic)/sxp) 1482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2233:72: 2233 | 12900 do 12901 j=1,ni 1482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2234:72: 2234 | 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: 2235 | 12901 continue 1483 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2236:72: 2236 | 12902 continue 1483 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2237:72: 2237 | 12891 continue 1484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2238:72: 2238 | 12892 continue 1484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2239:72: 2239 | 12910 do 12911 ilm=1,nlam 1484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2240:72: 2240 | al0=al 1485 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2241:72: 2241 | if(flmin .lt. 1.0)goto 12931 1485 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2242:72: 2242 | al=ulam(ilm) 1485 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2243:72: 2243 | goto 12921 1486 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2244:72: 2244 | 12931 if(ilm .le. 2)goto 12941 1486 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2245:72: 2245 | al=al*alf 1486 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2246:72: 2246 | goto 12921 1487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2247:72: 2247 | 12941 if(ilm .ne. 1)goto 12951 1487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2248:72: 2248 | al=big 1487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2249:72: 2249 | goto 12961 1488 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2250:72: 2250 | 12951 continue 1488 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2251:72: 2251 | al0=0.0 1489 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2252:72: 2252 | 12970 do 12971 j=1,ni 1489 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2253:72: 2253 | if(ju(j).eq.0)goto 12971 1489 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2254:72: 2254 | 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: 2255 | 12971 continue 1490 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2256:72: 2256 | 12972 continue 1490 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2257:72: 2257 | al0=al0/max(bta,1.0e-3) 1490 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2258:72: 2258 | al=alf*al0 1491 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2259:72: 2259 | 12961 continue 1492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2260:72: 2260 | 12921 continue 1492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2261:72: 2261 | al2=al*omb 1492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2262:72: 2262 | al1=al*bta 1492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2263:72: 2263 | tlam=bta*(2.0*al-al0) 1493 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2264:72: 2264 | 12980 do 12981 k=1,ni 1493 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2265:72: 2265 | if(ixx(k).eq.1)goto 12981 1493 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2266:72: 2266 | if(ju(k).eq.0)goto 12981 1494 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2267:72: 2267 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1495 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2268:72: 2268 | 12981 continue 1496 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2269:72: 2269 | 12982 continue 1496 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2270:72: 2270 | 10680 continue 1497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2271:72: 2271 | 12990 continue 1497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2272:72: 2272 | 12991 continue 1497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2273:72: 2273 | ix=0 1497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2274:72: 2274 | jx=ix 1497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2275:72: 2275 | ig=0 1498 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2276:72: 2276 | 13000 do 13001 ic=1,nc 1498 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2277:72: 2277 | bs(0,ic)=b(0,ic) 1499 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2278:72: 2278 | 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: 2279 | xmz=0.0 1501 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2280:72: 2280 | 13010 do 13011 i=1,no 1501 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2281:72: 2281 | pic=q(i,ic)/sxp(i) 1502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2282:72: 2282 | if(pic .ge. pfm)goto 13031 1502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2283:72: 2283 | pic=0.0 1502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2284:72: 2284 | v(i)=0.0 1502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2285:72: 2285 | goto 13021 1503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2286:72: 2286 | 13031 if(pic .le. pfx)goto 13041 1503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2287:72: 2287 | pic=1.0 1503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2288:72: 2288 | v(i)=0.0 1503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2289:72: 2289 | goto 13051 1504 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2290:72: 2290 | 13041 continue 1504 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2291:72: 2291 | v(i)=w(i)*pic*(1.0-pic) 1504 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2292:72: 2292 | xmz=xmz+v(i) 1504 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2293:72: 2293 | 13051 continue 1505 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2294:72: 2294 | 13021 continue 1505 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2295:72: 2295 | r(i)=w(i)*(y(i,ic)-pic) 1506 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2296:72: 2296 | 13011 continue 1507 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2297:72: 2297 | 13012 continue 1507 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2298:72: 2298 | if(xmz.le.vmin)goto 13001 1507 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2299:72: 2299 | ig=1 1508 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2300:72: 2300 | if(kopt .ne. 0)goto 13071 1509 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2301:72: 2301 | 13080 do 13081 j=1,ni 1509 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2302:72: 2302 | 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: 2303 | 13081 continue 1510 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2304:72: 2304 | 13082 continue 1510 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2305:72: 2305 | 13071 continue 1511 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2306:72: 2306 | 13090 continue 1511 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2307:72: 2307 | 13091 continue 1511 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2308:72: 2308 | nlp=nlp+1 1511 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2309:72: 2309 | dlx=0.0 1512 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2310:72: 2310 | 13100 do 13101 k=1,ni 1512 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2311:72: 2311 | if(ixx(k).eq.0)goto 13101 1513 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2312:72: 2312 | bk=b(k,ic) 1513 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2313:72: 2313 | gk=dot_product(r,x(:,k)) 1514 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2314:72: 2314 | u=gk+xv(k,ic)*b(k,ic) 1514 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2315:72: 2315 | au=abs(u)-vp(k)*al1 1515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2316:72: 2316 | if(au .gt. 0.0)goto 13121 1515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2317:72: 2317 | b(k,ic)=0.0 1515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2318:72: 2318 | goto 13131 1516 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2319:72: 2319 | 13121 continue 1516 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2320:72: 2320 | 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: 2321 | 13131 continue 1517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2322:72: 2322 | 13111 continue 1517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2323:72: 2323 | d=b(k,ic)-bk 1517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2324:72: 2324 | if(abs(d).le.0.0)goto 13101 1518 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2325:72: 2325 | dlx=max(dlx,xv(k,ic)*d**2) 1518 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2326:72: 2326 | r=r-d*v*x(:,k) 1519 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2327:72: 2327 | if(mm(k) .ne. 0)goto 13151 1519 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2328:72: 2328 | nin=nin+1 1520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2329:72: 2329 | if(nin .le. nx)goto 13171 1520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2330:72: 2330 | jx=1 1520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2331:72: 2331 | goto 13102 1520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2332:72: 2332 | 13171 continue 1521 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2333:72: 2333 | mm(k)=nin 1521 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2334:72: 2334 | m(nin)=k 1522 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2335:72: 2335 | 13151 continue 1523 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2336:72: 2336 | 13101 continue 1524 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2337:72: 2337 | 13102 continue 1524 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2338:72: 2338 | if(jx.gt.0)goto 13092 1525 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2339:72: 2339 | d=sum(r)/xmz 1526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2340:72: 2340 | if(d .eq. 0.0)goto 13191 1526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2341:72: 2341 | b(0,ic)=b(0,ic)+d 1526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2342:72: 2342 | dlx=max(dlx,xmz*d**2) 1526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2343:72: 2343 | r=r-d*v 1526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2344:72: 2344 | 13191 continue 1527 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2345:72: 2345 | if(dlx.lt.shr)goto 13092 1528 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2346:72: 2346 | if(nlp .le. maxit)goto 13211 1528 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2347:72: 2347 | jerr=-ilm 1528 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2348:72: 2348 | return 1528 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2349:72: 2349 | 13211 continue 1529 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2350:72: 2350 | 13220 continue 1529 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2351:72: 2351 | 13221 continue 1529 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2352:72: 2352 | nlp=nlp+1 1529 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2353:72: 2353 | dlx=0.0 1530 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2354:72: 2354 | 13230 do 13231 l=1,nin 1530 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2355:72: 2355 | k=m(l) 1530 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2356:72: 2356 | bk=b(k,ic) 1531 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2357:72: 2357 | gk=dot_product(r,x(:,k)) 1532 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2358:72: 2358 | u=gk+xv(k,ic)*b(k,ic) 1532 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2359:72: 2359 | au=abs(u)-vp(k)*al1 1533 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2360:72: 2360 | if(au .gt. 0.0)goto 13251 1533 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2361:72: 2361 | b(k,ic)=0.0 1533 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2362:72: 2362 | goto 13261 1534 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2363:72: 2363 | 13251 continue 1534 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2364:72: 2364 | 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: 2365 | 13261 continue 1535 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2366:72: 2366 | 13241 continue 1535 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2367:72: 2367 | d=b(k,ic)-bk 1535 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2368:72: 2368 | if(abs(d).le.0.0)goto 13231 1536 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2369:72: 2369 | dlx=max(dlx,xv(k,ic)*d**2) 1536 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2370:72: 2370 | r=r-d*v*x(:,k) 1537 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2371:72: 2371 | 13231 continue 1538 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2372:72: 2372 | 13232 continue 1538 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2373:72: 2373 | d=sum(r)/xmz 1539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2374:72: 2374 | if(d .eq. 0.0)goto 13281 1539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2375:72: 2375 | b(0,ic)=b(0,ic)+d 1540 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2376:72: 2376 | dlx=max(dlx,xmz*d**2) 1540 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2377:72: 2377 | r=r-d*v 1541 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2378:72: 2378 | 13281 continue 1542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2379:72: 2379 | if(dlx.lt.shr)goto 13222 1542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2380:72: 2380 | if(nlp .le. maxit)goto 13301 1542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2381:72: 2381 | jerr=-ilm 1542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2382:72: 2382 | return 1542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2383:72: 2383 | 13301 continue 1543 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2384:72: 2384 | goto 13221 1544 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2385:72: 2385 | 13222 continue 1544 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2386:72: 2386 | goto 13091 1545 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2387:72: 2387 | 13092 continue 1545 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2388:72: 2388 | if(jx.gt.0)goto 13002 1546 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2389:72: 2389 | 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: 2390 | if(ix .ne. 0)goto 13321 1548 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2391:72: 2391 | 13330 do 13331 j=1,nin 1548 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2392:72: 2392 | k=m(j) 1549 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2393:72: 2393 | 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: 2394 | ix=1 1549 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2395:72: 2395 | goto 13332 1549 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2396:72: 2396 | 13351 continue 1550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2397:72: 2397 | 13331 continue 1551 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2398:72: 2398 | 13332 continue 1551 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2399:72: 2399 | 13321 continue 1552 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2400:72: 2400 | 13360 do 13361 i=1,no 1552 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2401:72: 2401 | fi=b(0,ic)+g(i,ic) 1554 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2402:72: 2402 | 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: 2403 | fi=min(max(exmn,fi),exmx) 1555 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2404:72: 2404 | sxp(i)=sxp(i)-q(i,ic) 1556 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2405:72: 2405 | 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: 2406 | sxp(i)=sxp(i)+q(i,ic) 1558 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2407:72: 2407 | 13361 continue 1559 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2408:72: 2408 | 13362 continue 1559 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2409:72: 2409 | 13001 continue 1560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2410:72: 2410 | 13002 continue 1560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2411:72: 2411 | s=-sum(b(0,:))/nc 1560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2412:72: 2412 | b(0,:)=b(0,:)+s 1560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2413:72: 2413 | di=s 1561 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2414:72: 2414 | 13370 do 13371 j=1,nin 1561 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2415:72: 2415 | l=m(j) 1562 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2416:72: 2416 | if(vp(l) .gt. 0.0)goto 13391 1562 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2417:72: 2417 | s=sum(b(l,:))/nc 1562 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2418:72: 2418 | goto 13401 1563 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2419:72: 2419 | 13391 continue 1563 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2420:72: 2420 | s=elc(parm,nc,b(l,:),is) 1563 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2421:72: 2421 | 13401 continue 1564 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2422:72: 2422 | 13381 continue 1564 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2423:72: 2423 | b(l,:)=b(l,:)-s 1564 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2424:72: 2424 | di=di-s*x(:,l) 1565 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2425:72: 2425 | 13371 continue 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2426:72: 2426 | 13372 continue 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2427:72: 2427 | di=exp(di) 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2428:72: 2428 | sxp=sxp*di 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2429:72: 2429 | 13410 do 13411 ic=1,nc 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2430:72: 2430 | q(:,ic)=q(:,ic)*di 1566 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2431:72: 2431 | 13411 continue 1567 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2432:72: 2432 | 13412 continue 1567 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2433:72: 2433 | if(jx.gt.0)goto 12992 1567 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2434:72: 2434 | if(ig.eq.0)goto 12992 1568 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2435:72: 2435 | if(ix .ne. 0)goto 13431 1569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2436:72: 2436 | 13440 do 13441 k=1,ni 1569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2437:72: 2437 | if(ixx(k).eq.1)goto 13441 1569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2438:72: 2438 | if(ju(k).eq.0)goto 13441 1569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2439:72: 2439 | ga(k)=0.0 1569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2440:72: 2440 | 13441 continue 1570 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2441:72: 2441 | 13442 continue 1570 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2442:72: 2442 | 13450 do 13451 ic=1,nc 1570 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2443:72: 2443 | r=w*(y(:,ic)-q(:,ic)/sxp) 1571 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2444:72: 2444 | 13460 do 13461 k=1,ni 1571 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2445:72: 2445 | if(ixx(k).eq.1)goto 13461 1571 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2446:72: 2446 | if(ju(k).eq.0)goto 13461 1572 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2447:72: 2447 | ga(k)=max(ga(k),abs(dot_product(r,x(:,k)))) 1573 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2448:72: 2448 | 13461 continue 1574 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2449:72: 2449 | 13462 continue 1574 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2450:72: 2450 | 13451 continue 1575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2451:72: 2451 | 13452 continue 1575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2452:72: 2452 | 13470 do 13471 k=1,ni 1575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2453:72: 2453 | if(ixx(k).eq.1)goto 13471 1575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2454:72: 2454 | if(ju(k).eq.0)goto 13471 1576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2455:72: 2455 | if(ga(k) .le. al1*vp(k))goto 13491 1576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2456:72: 2456 | ixx(k)=1 1576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2457:72: 2457 | ix=1 1576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2458:72: 2458 | 13491 continue 1577 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2459:72: 2459 | 13471 continue 1578 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2460:72: 2460 | 13472 continue 1578 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2461:72: 2461 | if(ix.eq.1) go to 10680 1579 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2462:72: 2462 | goto 12992 1580 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2463:72: 2463 | 13431 continue 1581 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2464:72: 2464 | goto 12991 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2465:72: 2465 | 12992 continue 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2466:72: 2466 | if(jx .le. 0)goto 13511 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2467:72: 2467 | jerr=-10000-ilm 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2468:72: 2468 | goto 12912 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2469:72: 2469 | 13511 continue 1582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2470:72: 2470 | devi=0.0 1583 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2471:72: 2471 | 13520 do 13521 ic=1,nc 1584 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2472:72: 2472 | 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: 2473 | a0(ic,ilm)=b(0,ic) 1585 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2474:72: 2474 | 13530 do 13531 i=1,no 1585 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2475:72: 2475 | if(y(i,ic).le.0.0)goto 13531 1586 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2476:72: 2476 | 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: 2477 | 13531 continue 1588 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2478:72: 2478 | 13532 continue 1588 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2479:72: 2479 | 13521 continue 1589 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2480:72: 2480 | 13522 continue 1589 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2481:72: 2481 | kin(ilm)=nin 1589 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2482:72: 2482 | alm(ilm)=al 1589 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2483:72: 2483 | lmu=ilm 1590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2484:72: 2484 | dev(ilm)=(dev1-devi)/dev0 1590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2485:72: 2485 | if(ig.eq.0)goto 12912 1591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2486:72: 2486 | if(ilm.lt.mnl)goto 12911 1591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2487:72: 2487 | if(flmin.ge.1.0)goto 12911 1592 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2488:72: 2488 | 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: 2489 | if(dev(ilm).gt.devmax)goto 12912 1593 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2490:72: 2490 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912 1594 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2491:72: 2491 | 12911 continue 1595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2492:72: 2492 | 12912 continue 1595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2493:72: 2493 | g=log(q) 1595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2494:72: 2494 | 13540 do 13541 i=1,no 1595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2495:72: 2495 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2496:72: 2496 | 13541 continue 1596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2497:72: 2497 | 13542 continue 1596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2498:72: 2498 | 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: 2499 | return 1598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2500:72: 2500 | end 1599 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2501:72: 2501 | subroutine kazero(kk,n,y,g,q,az,jerr) 1600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2502:72: 2502 | parameter(eps=1.0e-7) 1601 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2503:72: 2503 | real y(n,kk),g(n,kk),q(n),az(kk) 1602 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2507:72: 2507 | allocate(s(1:n),stat=ierr) 1607 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2508:72: 2508 | jerr=jerr+ierr 1608 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2509:72: 2509 | if(jerr.ne.0) return 1609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2510:72: 2510 | az=0.0 1609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2511:72: 2511 | e=exp(g) 1609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2512:72: 2512 | 13550 do 13551 i=1,n 1609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2513:72: 2513 | s(i)=sum(e(i,:)) 1609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2514:72: 2514 | 13551 continue 1610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2515:72: 2515 | 13552 continue 1610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2516:72: 2516 | 13560 continue 1610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2517:72: 2517 | 13561 continue 1610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2518:72: 2518 | dm=0.0 1611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2519:72: 2519 | 13570 do 13571 k=1,kk 1611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2520:72: 2520 | t=0.0 1611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2521:72: 2521 | u=t 1612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2522:72: 2522 | 13580 do 13581 i=1,n 1612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2523:72: 2523 | pik=e(i,k)/s(i) 1613 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2524:72: 2524 | t=t+q(i)*(y(i,k)-pik) 1613 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2525:72: 2525 | u=u+q(i)*pik*(1.0-pik) 1614 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2526:72: 2526 | 13581 continue 1615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2527:72: 2527 | 13582 continue 1615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2528:72: 2528 | d=t/u 1615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2529:72: 2529 | az(k)=az(k)+d 1615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2530:72: 2530 | ed=exp(d) 1615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2531:72: 2531 | dm=max(dm,abs(d)) 1616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2532:72: 2532 | 13590 do 13591 i=1,n 1616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2533:72: 2533 | z=e(i,k) 1616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2534:72: 2534 | e(i,k)=z*ed 1616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2535:72: 2535 | s(i)=s(i)-z+e(i,k) 1616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2536:72: 2536 | 13591 continue 1617 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2537:72: 2537 | 13592 continue 1617 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2538:72: 2538 | 13571 continue 1618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2539:72: 2539 | 13572 continue 1618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2540:72: 2540 | if(dm.lt.eps)goto 13562 1618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2541:72: 2541 | goto 13561 1619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2542:72: 2542 | 13562 continue 1619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2543:72: 2543 | az=az-sum(az)/kk 1620 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2544:72: 2544 | deallocate(e,s) 1621 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2545:72: 2545 | return 1622 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2546:72: 2546 | end 1623 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2547:72: 2547 | function elc(parm,n,a,m) 1624 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2548:72: 2548 | real a(n) 1624 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2549:72: 2549 | integer m(n) 1625 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2550:72: 2550 | fn=n 1625 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2551:72: 2551 | am=sum(a)/fn 1626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2552:72: 2552 | if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611 1626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2553:72: 2553 | elc=am 1626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2554:72: 2554 | return 1626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2555:72: 2555 | 13611 continue 1627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2556:72: 2556 | 13620 do 13621 i=1,n 1627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2557:72: 2557 | m(i)=i 1627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2558:72: 2558 | 13621 continue 1627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2559:72: 2559 | 13622 continue 1627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2560:72: 2560 | call psort7(a,m,1,n) 1628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2561:72: 2561 | if(a(m(1)) .ne. a(m(n)))goto 13641 1628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2562:72: 2562 | elc=a(1) 1628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2563:72: 2563 | return 1628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2564:72: 2564 | 13641 continue 1629 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2565:72: 2565 | if(mod(n,2) .ne. 1)goto 13661 1629 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2566:72: 2566 | ad=a(m(n/2+1)) 1629 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2567:72: 2567 | goto 13671 1630 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2568:72: 2568 | 13661 continue 1630 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2569:72: 2569 | 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: 2570 | 13671 continue 1631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2571:72: 2571 | 13651 continue 1631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2572:72: 2572 | if(parm .ne. 1.0)goto 13691 1631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2573:72: 2573 | elc=ad 1631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2574:72: 2574 | return 1631 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2575:72: 2575 | 13691 continue 1632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2576:72: 2576 | b1=min(am,ad) 1632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2577:72: 2577 | b2=max(am,ad) 1632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2578:72: 2578 | k2=1 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2579:72: 2579 | 13700 continue 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2580:72: 2580 | 13701 if(a(m(k2)).gt.b1)goto 13702 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2581:72: 2581 | k2=k2+1 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2582:72: 2582 | goto 13701 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2583:72: 2583 | 13702 continue 1633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2584:72: 2584 | k1=k2-1 1634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2585:72: 2585 | 13710 continue 1634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2586:72: 2586 | 13711 if(a(m(k2)).ge.b2)goto 13712 1634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2587:72: 2587 | k2=k2+1 1634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2588:72: 2588 | goto 13711 1635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2589:72: 2589 | 13712 continue 1635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2590:72: 2590 | r=parm/((1.0-parm)*fn) 1635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2591:72: 2591 | is=0 1635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2592:72: 2592 | sm=n-2*(k1-1) 1636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2593:72: 2593 | 13720 do 13721 k=k1,k2-1 1636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2594:72: 2594 | sm=sm-2.0 1636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2595:72: 2595 | s=r*sm+am 1637 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2596:72: 2596 | 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: 2597 | is=k 1637 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2598:72: 2598 | goto 13722 1637 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2599:72: 2599 | 13741 continue 1638 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2600:72: 2600 | 13721 continue 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2601:72: 2601 | 13722 continue 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2602:72: 2602 | if(is .eq. 0)goto 13761 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2603:72: 2603 | elc=s 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2604:72: 2604 | return 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2605:72: 2605 | 13761 continue 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2606:72: 2606 | r2=2.0*r 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2607:72: 2607 | s1=a(m(k1)) 1639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2608:72: 2608 | am2=2.0*am 1640 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2609:72: 2609 | cri=r2*sum(abs(a-s1))+s1*(s1-am2) 1640 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2610:72: 2610 | elc=s1 1641 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2611:72: 2611 | 13770 do 13771 k=k1+1,k2 1641 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2612:72: 2612 | s=a(m(k)) 1641 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2613:72: 2613 | if(s.eq.s1)goto 13771 1642 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2614:72: 2614 | c=r2*sum(abs(a-s))+s*(s-am2) 1643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2615:72: 2615 | if(c .ge. cri)goto 13791 1643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2616:72: 2616 | cri=c 1643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2617:72: 2617 | elc=s 1643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2618:72: 2618 | 13791 continue 1643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2619:72: 2619 | s1=s 1644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2620:72: 2620 | 13771 continue 1645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2621:72: 2621 | 13772 continue 1645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2622:72: 2622 | return 1646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2623:72: 2623 | end 1647 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2624:72: 2624 | function nintot(ni,nx,nc,a,m,nin,is) 1648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2625:72: 2625 | real a(nx,nc) 1648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2626:72: 2626 | integer m(nx),is(ni) 1649 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2627:72: 2627 | is=0 1649 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2628:72: 2628 | nintot=0 1650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2629:72: 2629 | 13800 do 13801 ic=1,nc 1650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2630:72: 2630 | 13810 do 13811 j=1,nin 1650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2631:72: 2631 | k=m(j) 1650 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2632:72: 2632 | if(is(k).ne.0)goto 13811 1651 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2633:72: 2633 | if(a(j,ic).eq.0.0)goto 13811 1651 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2634:72: 2634 | is(k)=k 1651 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2635:72: 2635 | nintot=nintot+1 1652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2636:72: 2636 | 13811 continue 1652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2637:72: 2637 | 13812 continue 1652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2638:72: 2638 | 13801 continue 1653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2639:72: 2639 | 13802 continue 1653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2640:72: 2640 | return 1654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2641:72: 2641 | end 1655 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2642:72: 2642 | subroutine luncomp(ni,nx,nc,ca,ia,nin,a) 1656 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2643:72: 2643 | real ca(nx,nc),a(ni,nc) 1656 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2644:72: 2644 | integer ia(nx) 1657 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2645:72: 2645 | a=0.0 1658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2646:72: 2646 | 13820 do 13821 ic=1,nc 1658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2647:72: 2647 | 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: 2648 | 13821 continue 1659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2649:72: 2649 | 13822 continue 1659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2650:72: 2650 | return 1660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2651:72: 2651 | end 1661 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2652:72: 2652 | subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans) 1662 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2653:72: 2653 | real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt) 1662 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2654:72: 2654 | integer ia(nx) 1663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2655:72: 2655 | 13830 do 13831 i=1,nt 1663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2656:72: 2656 | 13840 do 13841 ic=1,nc 1663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2657:72: 2657 | ans(ic,i)=a0(ic) 1665 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2658:72: 2658 | 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: 2660 | 13841 continue 1666 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2661:72: 2661 | 13842 continue 1666 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2662:72: 2662 | 13831 continue 1667 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2663:72: 2663 | 13832 continue 1667 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2664:72: 2664 | return 1668 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2665:72: 2665 | end 1669 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2666:72: 2666 | 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: 2669 | 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: 2670 | 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: 2671 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 1674 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2674:72: 2674 | if(maxval(vp) .gt. 0.0)goto 13861 1678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2675:72: 2675 | jerr=10000 1678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2676:72: 2676 | return 1678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2677:72: 2677 | 13861 continue 1679 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2678:72: 2678 | allocate(ww(1:no),stat=jerr) 1680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2679:72: 2679 | allocate(ju(1:ni),stat=ierr) 1680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2680:72: 2680 | jerr=jerr+ierr 1681 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2681:72: 2681 | allocate(vq(1:ni),stat=ierr) 1681 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2682:72: 2682 | jerr=jerr+ierr 1682 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2683:72: 2683 | allocate(xm(1:ni),stat=ierr) 1682 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2684:72: 2684 | jerr=jerr+ierr 1683 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2685:72: 2685 | allocate(xs(1:ni),stat=ierr) 1683 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2686:72: 2686 | jerr=jerr+ierr 1684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2687:72: 2687 | if(jerr.ne.0) return 1685 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2688:72: 2688 | call spchkvars(no,ni,x,ix,ju) 1686 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2689:72: 2689 | 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: 2690 | if(maxval(ju) .gt. 0)goto 13881 1687 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2691:72: 2691 | jerr=7777 1687 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2692:72: 2692 | return 1687 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2693:72: 2693 | 13881 continue 1688 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2694:72: 2694 | vq=max(0.0,vp) 1688 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2695:72: 2695 | vq=vq*ni/sum(vq) 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2696:72: 2696 | 13890 do 13891 i=1,no 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2697:72: 2697 | ww(i)=sum(y(i,:)) 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2698:72: 2698 | y(i,:)=y(i,:)/ww(i) 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2699:72: 2699 | 13891 continue 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2700:72: 2700 | 13892 continue 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2701:72: 2701 | sw=sum(ww) 1689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2702:72: 2702 | ww=ww/sw 1690 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2703:72: 2703 | 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: 2704 | if(nc .ne. 1)goto 13911 1692 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2705:72: 2705 | 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: 2708 | goto 13921 1695 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2709:72: 2709 | 13911 continue 1696 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2710:72: 2710 | 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: 2713 | 13921 continue 1699 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2714:72: 2714 | 13901 continue 1699 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2715:72: 2715 | if(jerr.gt.0) return 1699 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2716:72: 2716 | dev0=2.0*sw*dev0 1700 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2717:72: 2717 | 13930 do 13931 k=1,lmu 1700 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2718:72: 2718 | nk=nin(k) 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2719:72: 2719 | 13940 do 13941 ic=1,nc 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2720:72: 2720 | if(isd .le. 0)goto 13961 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2721:72: 2721 | 13970 do 13971 l=1,nk 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2722:72: 2722 | ca(l,ic,k)=ca(l,ic,k)/xs(ia(l)) 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2723:72: 2723 | 13971 continue 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2724:72: 2724 | 13972 continue 1701 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2725:72: 2725 | 13961 continue 1702 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2726:72: 2726 | 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: 2727 | 13941 continue 1704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2728:72: 2728 | 13942 continue 1704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2729:72: 2729 | 13931 continue 1705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2730:72: 2730 | 13932 continue 1705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2731:72: 2731 | deallocate(ww,ju,vq,xm,xs) 1706 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2732:72: 2732 | return 1707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2733:72: 2733 | end 1708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2734:72: 2734 | 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: 2735 | real x(*),w(no),xm(ni),xs(ni) 1709 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2736:72: 2736 | integer ix(*),jx(*),ju(ni) 1710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2737:72: 2737 | 13980 do 13981 j=1,ni 1710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2738:72: 2738 | if(ju(j).eq.0)goto 13981 1710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2739:72: 2739 | jb=ix(j) 1710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2740:72: 2740 | je=ix(j+1)-1 1711 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2741:72: 2741 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 1712 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2742:72: 2742 | 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: 2744 | 13981 continue 1714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2745:72: 2745 | 13982 continue 1714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2746:72: 2746 | if(isd.eq.0) xs=1.0 1715 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2747:72: 2747 | return 1716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2748:72: 2748 | end 1717 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2749:72: 2749 | 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: 2752 | 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: 2754 | 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: 2755 | real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 1723 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2756:72: 2756 | real xb(ni),xs(ni) 1723 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2757:72: 2757 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1724 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2760:72: 2760 | allocate(b(0:ni),stat=jerr) 1729 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2761:72: 2761 | allocate(xm(0:ni),stat=ierr) 1729 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2762:72: 2762 | jerr=jerr+ierr 1730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2763:72: 2763 | allocate(xv(1:ni),stat=ierr) 1730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2764:72: 2764 | jerr=jerr+ierr 1731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2765:72: 2765 | allocate(bs(0:ni),stat=ierr) 1731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2766:72: 2766 | jerr=jerr+ierr 1732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2767:72: 2767 | allocate(ga(1:ni),stat=ierr) 1732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2768:72: 2768 | jerr=jerr+ierr 1733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2769:72: 2769 | allocate(mm(1:ni),stat=ierr) 1733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2770:72: 2770 | jerr=jerr+ierr 1734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2771:72: 2771 | allocate(ixx(1:ni),stat=ierr) 1734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2772:72: 2772 | jerr=jerr+ierr 1735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2773:72: 2773 | allocate(q(1:no),stat=ierr) 1735 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2774:72: 2774 | jerr=jerr+ierr 1736 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2775:72: 2775 | allocate(r(1:no),stat=ierr) 1736 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2776:72: 2776 | jerr=jerr+ierr 1737 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2777:72: 2777 | allocate(v(1:no),stat=ierr) 1737 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2778:72: 2778 | jerr=jerr+ierr 1738 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2779:72: 2779 | allocate(sc(1:no),stat=ierr) 1738 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2780:72: 2780 | jerr=jerr+ierr 1739 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2781:72: 2781 | if(jerr.ne.0) return 1740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2782:72: 2782 | fmax=log(1.0/pmin-1.0) 1740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2783:72: 2783 | fmin=-fmax 1740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2784:72: 2784 | vmin=(1.0+pmin)*pmin*(1.0-pmin) 1741 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2785:72: 2785 | bta=parm 1741 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2786:72: 2786 | omb=1.0-bta 1742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2787:72: 2787 | q0=dot_product(w,y) 1742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2788:72: 2788 | if(q0 .gt. pmin)goto 14001 1742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2789:72: 2789 | jerr=8001 1742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2790:72: 2790 | return 1742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2791:72: 2791 | 14001 continue 1743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2792:72: 2792 | if(q0 .lt. 1.0-pmin)goto 14021 1743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2793:72: 2793 | jerr=9001 1743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2794:72: 2794 | return 1743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2795:72: 2795 | 14021 continue 1743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2796:72: 2796 | bz=log(q0/(1.0-q0)) 1744 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2797:72: 2797 | if(nonzero(no,g) .ne. 0)goto 14041 1744 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2798:72: 2798 | vi=q0*(1.0-q0) 1744 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2799:72: 2799 | b(0)=bz 1744 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2800:72: 2800 | v=vi*w 1745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2801:72: 2801 | r=w*(y-q0) 1745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2802:72: 2802 | q=q0 1745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2803:72: 2803 | xm(0)=vi 1745 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2804:72: 2804 | dev1=-(bz*q0+log(1.0-q0)) 1746 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2805:72: 2805 | goto 14051 1747 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2806:72: 2806 | 14041 continue 1747 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2807:72: 2807 | b(0)=azero(no,y,g,w,jerr) 1747 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2808:72: 2808 | if(jerr.ne.0) return 1748 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2809:72: 2809 | q=1.0/(1.0+exp(-b(0)-g)) 1748 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2810:72: 2810 | v=w*q*(1.0-q) 1748 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2811:72: 2811 | r=w*(y-q) 1748 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2812:72: 2812 | xm(0)=sum(v) 1749 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2813:72: 2813 | 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: 2814 | 14051 continue 1751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2815:72: 2815 | 14031 continue 1751 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2816:72: 2816 | if(kopt .le. 0)goto 14071 1752 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2817:72: 2817 | if(isd .le. 0)goto 14091 1752 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2818:72: 2818 | xv=0.25 1752 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2819:72: 2819 | goto 14101 1753 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2820:72: 2820 | 14091 continue 1754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2821:72: 2821 | 14110 do 14111 j=1,ni 1754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2822:72: 2822 | if(ju(j).eq.0)goto 14111 1754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2823:72: 2823 | jb=ix(j) 1754 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2824:72: 2824 | je=ix(j+1)-1 1755 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2825:72: 2825 | 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: 2826 | 14111 continue 1757 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2827:72: 2827 | 14112 continue 1757 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2828:72: 2828 | 14101 continue 1758 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2829:72: 2829 | 14081 continue 1758 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2830:72: 2830 | 14071 continue 1759 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2831:72: 2831 | b(1:ni)=0.0 1759 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2832:72: 2832 | dev0=dev1 1760 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2833:72: 2833 | 14120 do 14121 i=1,no 1760 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2834:72: 2834 | 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: 2835 | 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: 2836 | 14121 continue 1763 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2837:72: 2837 | 14122 continue 1763 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2838:72: 2838 | if(flmin .ge. 1.0)goto 14141 1763 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2839:72: 2839 | eqs=max(eps,flmin) 1763 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2840:72: 2840 | alf=eqs**(1.0/(nlam-1)) 1763 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2841:72: 2841 | 14141 continue 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2842:72: 2842 | m=0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2843:72: 2843 | mm=0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2844:72: 2844 | nin=0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2845:72: 2845 | o=0.0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2846:72: 2846 | svr=o 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2847:72: 2847 | mnl=min(mnlam,nlam) 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2848:72: 2848 | bs=0.0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2849:72: 2849 | nlp=0 1764 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2850:72: 2850 | nin=nlp 1765 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2851:72: 2851 | shr=shri*dev0 1765 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2852:72: 2852 | al=0.0 1765 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2853:72: 2853 | ixx=0 1766 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2854:72: 2854 | 14150 do 14151 j=1,ni 1766 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2855:72: 2855 | if(ju(j).eq.0)goto 14151 1767 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2856:72: 2856 | jb=ix(j) 1767 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2857:72: 2857 | je=ix(j+1)-1 1767 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2858:72: 2858 | jn=ix(j+1)-ix(j) 1768 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2859:72: 2859 | 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: 2860 | gj=dot_product(sc(1:jn),x(jb:je)) 1770 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2861:72: 2861 | ga(j)=abs((gj-svr*xb(j))/xs(j)) 1771 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2862:72: 2862 | 14151 continue 1772 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2863:72: 2863 | 14152 continue 1772 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2864:72: 2864 | 14160 do 14161 ilm=1,nlam 1772 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2865:72: 2865 | al0=al 1773 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2866:72: 2866 | if(flmin .lt. 1.0)goto 14181 1773 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2867:72: 2867 | al=ulam(ilm) 1773 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2868:72: 2868 | goto 14171 1774 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2869:72: 2869 | 14181 if(ilm .le. 2)goto 14191 1774 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2870:72: 2870 | al=al*alf 1774 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2871:72: 2871 | goto 14171 1775 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2872:72: 2872 | 14191 if(ilm .ne. 1)goto 14201 1775 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2873:72: 2873 | al=big 1775 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2874:72: 2874 | goto 14211 1776 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2875:72: 2875 | 14201 continue 1776 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2876:72: 2876 | al0=0.0 1777 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2877:72: 2877 | 14220 do 14221 j=1,ni 1777 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2878:72: 2878 | if(ju(j).eq.0)goto 14221 1777 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2879:72: 2879 | 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: 2880 | 14221 continue 1778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2881:72: 2881 | 14222 continue 1778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2882:72: 2882 | al0=al0/max(bta,1.0e-3) 1778 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2883:72: 2883 | al=alf*al0 1779 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2884:72: 2884 | 14211 continue 1780 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2885:72: 2885 | 14171 continue 1780 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2886:72: 2886 | al2=al*omb 1780 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2887:72: 2887 | al1=al*bta 1780 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2888:72: 2888 | tlam=bta*(2.0*al-al0) 1781 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2889:72: 2889 | 14230 do 14231 k=1,ni 1781 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2890:72: 2890 | if(ixx(k).eq.1)goto 14231 1781 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2891:72: 2891 | if(ju(k).eq.0)goto 14231 1782 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2892:72: 2892 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 1783 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2893:72: 2893 | 14231 continue 1784 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2894:72: 2894 | 14232 continue 1784 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2895:72: 2895 | 10680 continue 1785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2896:72: 2896 | 14240 continue 1785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2897:72: 2897 | 14241 continue 1785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2898:72: 2898 | bs(0)=b(0) 1785 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2899:72: 2899 | 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: 2900 | 14250 do 14251 j=1,ni 1786 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2901:72: 2901 | if(ixx(j).eq.0)goto 14251 1787 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2902:72: 2902 | jb=ix(j) 1787 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2903:72: 2903 | je=ix(j+1)-1 1787 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2904:72: 2904 | jn=ix(j+1)-ix(j) 1788 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2905:72: 2905 | sc(1:jn)=v(jx(jb:je)) 1789 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2906:72: 2906 | xm(j)=dot_product(sc(1:jn),x(jb:je)) 1790 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2907:72: 2907 | if(kopt .ne. 0)goto 14271 1791 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2908:72: 2908 | xv(j)=dot_product(sc(1:jn),x(jb:je)**2) 1792 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2909:72: 2909 | 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: 2910 | 14271 continue 1794 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2911:72: 2911 | 14251 continue 1795 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2912:72: 2912 | 14252 continue 1795 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2913:72: 2913 | 14280 continue 1795 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2914:72: 2914 | 14281 continue 1795 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2915:72: 2915 | nlp=nlp+1 1795 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2916:72: 2916 | dlx=0.0 1796 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2917:72: 2917 | 14290 do 14291 k=1,ni 1796 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2918:72: 2918 | if(ixx(k).eq.0)goto 14291 1797 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2919:72: 2919 | jb=ix(k) 1797 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2920:72: 2920 | je=ix(k+1)-1 1797 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2921:72: 2921 | jn=ix(k+1)-ix(k) 1797 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2922:72: 2922 | bk=b(k) 1798 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2923:72: 2923 | 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: 2924 | gk=dot_product(sc(1:jn),x(jb:je)) 1800 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2925:72: 2925 | gk=(gk-svr*xb(k))/xs(k) 1801 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2926:72: 2926 | u=gk+xv(k)*b(k) 1801 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2927:72: 2927 | au=abs(u)-vp(k)*al1 1802 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2928:72: 2928 | if(au .gt. 0.0)goto 14311 1802 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2929:72: 2929 | b(k)=0.0 1802 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2930:72: 2930 | goto 14321 1803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2931:72: 2931 | 14311 continue 1803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2932:72: 2932 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1803 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2933:72: 2933 | 14321 continue 1804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2934:72: 2934 | 14301 continue 1804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2935:72: 2935 | d=b(k)-bk 1804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2936:72: 2936 | if(abs(d).le.0.0)goto 14291 1804 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2937:72: 2937 | dlx=max(dlx,xv(k)*d**2) 1805 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2938:72: 2938 | if(mm(k) .ne. 0)goto 14341 1805 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2939:72: 2939 | nin=nin+1 1805 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2940:72: 2940 | if(nin.gt.nx)goto 14292 1806 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2941:72: 2941 | mm(k)=nin 1806 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2942:72: 2942 | m(nin)=k 1806 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2943:72: 2943 | sc(1:jn)=v(jx(jb:je)) 1807 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2944:72: 2944 | xm(k)=dot_product(sc(1:jn),x(jb:je)) 1808 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2945:72: 2945 | 14341 continue 1809 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2946:72: 2946 | 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: 2947 | o=o+d*(xb(k)/xs(k)) 1811 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2948:72: 2948 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1812 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2949:72: 2949 | 14291 continue 1813 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2950:72: 2950 | 14292 continue 1813 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2951:72: 2951 | if(nin.gt.nx)goto 14282 1814 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2952:72: 2952 | d=svr/xm(0) 1815 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2953:72: 2953 | if(d .eq. 0.0)goto 14361 1815 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2954:72: 2954 | b(0)=b(0)+d 1815 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2955:72: 2955 | dlx=max(dlx,xm(0)*d**2) 1815 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2956:72: 2956 | r=r-d*v 1815 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2957:72: 2957 | 14361 continue 1816 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2958:72: 2958 | svr=svr-d*xm(0) 1816 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2959:72: 2959 | if(dlx.lt.shr)goto 14282 1817 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2960:72: 2960 | if(nlp .le. maxit)goto 14381 1817 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2961:72: 2961 | jerr=-ilm 1817 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2962:72: 2962 | return 1817 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2963:72: 2963 | 14381 continue 1818 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2964:72: 2964 | 14390 continue 1818 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2965:72: 2965 | 14391 continue 1818 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2966:72: 2966 | nlp=nlp+1 1818 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2967:72: 2967 | dlx=0.0 1819 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2968:72: 2968 | 14400 do 14401 l=1,nin 1819 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2969:72: 2969 | k=m(l) 1819 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2970:72: 2970 | jb=ix(k) 1819 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2971:72: 2971 | je=ix(k+1)-1 1820 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2972:72: 2972 | jn=ix(k+1)-ix(k) 1820 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2973:72: 2973 | bk=b(k) 1821 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2974:72: 2974 | 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: 2975 | gk=dot_product(sc(1:jn),x(jb:je)) 1823 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2976:72: 2976 | gk=(gk-svr*xb(k))/xs(k) 1824 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2977:72: 2977 | u=gk+xv(k)*b(k) 1824 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2978:72: 2978 | au=abs(u)-vp(k)*al1 1825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2979:72: 2979 | if(au .gt. 0.0)goto 14421 1825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2980:72: 2980 | b(k)=0.0 1825 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2981:72: 2981 | goto 14431 1826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2982:72: 2982 | 14421 continue 1826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2983:72: 2983 | b(k)=sign(au,u)/(xv(k)+vp(k)*al2) 1826 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2984:72: 2984 | 14431 continue 1827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2985:72: 2985 | 14411 continue 1827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2986:72: 2986 | d=b(k)-bk 1827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2987:72: 2987 | if(abs(d).le.0.0)goto 14401 1827 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2988:72: 2988 | dlx=max(dlx,xv(k)*d**2) 1828 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2989:72: 2989 | 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: 2990 | o=o+d*(xb(k)/xs(k)) 1830 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2991:72: 2991 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 1831 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2992:72: 2992 | 14401 continue 1832 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2993:72: 2993 | 14402 continue 1832 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2994:72: 2994 | d=svr/xm(0) 1833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2995:72: 2995 | if(d .eq. 0.0)goto 14451 1833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2996:72: 2996 | b(0)=b(0)+d 1833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2997:72: 2997 | dlx=max(dlx,xm(0)*d**2) 1833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2998:72: 2998 | r=r-d*v 1833 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:2999:72: 2999 | 14451 continue 1834 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3000:72: 3000 | svr=svr-d*xm(0) 1834 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3001:72: 3001 | if(dlx.lt.shr)goto 14392 1835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3002:72: 3002 | if(nlp .le. maxit)goto 14471 1835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3003:72: 3003 | jerr=-ilm 1835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3004:72: 3004 | return 1835 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3005:72: 3005 | 14471 continue 1836 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3006:72: 3006 | goto 14391 1837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3007:72: 3007 | 14392 continue 1837 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3008:72: 3008 | goto 14281 1838 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3009:72: 3009 | 14282 continue 1838 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3010:72: 3010 | if(nin.gt.nx)goto 14242 1839 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3011:72: 3011 | sc=b(0) 1839 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3012:72: 3012 | b0=0.0 1840 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3013:72: 3013 | 14480 do 14481 j=1,nin 1840 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3014:72: 3014 | l=m(j) 1840 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3015:72: 3015 | jb=ix(l) 1840 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3016:72: 3016 | je=ix(l+1)-1 1841 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3017:72: 3017 | 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: 3018 | b0=b0-b(l)*xb(l)/xs(l) 1843 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3019:72: 3019 | 14481 continue 1844 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3020:72: 3020 | 14482 continue 1844 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3021:72: 3021 | sc=sc+b0 1845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3022:72: 3022 | 14490 do 14491 i=1,no 1845 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3023:72: 3023 | fi=sc(i)+g(i) 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3024:72: 3024 | if(fi .ge. fmin)goto 14511 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3025:72: 3025 | q(i)=0.0 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3026:72: 3026 | goto 14501 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3027:72: 3027 | 14511 if(fi .le. fmax)goto 14521 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3028:72: 3028 | q(i)=1.0 1846 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3029:72: 3029 | goto 14531 1847 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3030:72: 3030 | 14521 continue 1847 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3031:72: 3031 | q(i)=1.0/(1.0+exp(-fi)) 1847 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3032:72: 3032 | 14531 continue 1848 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3033:72: 3033 | 14501 continue 1848 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3034:72: 3034 | 14491 continue 1849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3035:72: 3035 | 14492 continue 1849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3036:72: 3036 | v=w*q*(1.0-q) 1849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3037:72: 3037 | xm(0)=sum(v) 1849 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3038:72: 3038 | if(xm(0).lt.vmin)goto 14242 1850 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3039:72: 3039 | r=w*(y-q) 1850 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3040:72: 3040 | svr=sum(r) 1850 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3041:72: 3041 | o=0.0 1851 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3042:72: 3042 | 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: 3043 | kx=0 1852 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3044:72: 3044 | 14560 do 14561 j=1,nin 1852 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3045:72: 3045 | k=m(j) 1853 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3046:72: 3046 | 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: 3047 | kx=1 1853 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3048:72: 3048 | goto 14562 1854 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3049:72: 3049 | 14561 continue 1855 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3050:72: 3050 | 14562 continue 1855 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3051:72: 3051 | if(kx .ne. 0)goto 14581 1856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3052:72: 3052 | 14590 do 14591 j=1,ni 1856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3053:72: 3053 | if(ixx(j).eq.1)goto 14591 1856 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3054:72: 3054 | if(ju(j).eq.0)goto 14591 1857 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3055:72: 3055 | jb=ix(j) 1857 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3056:72: 3056 | je=ix(j+1)-1 1857 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3057:72: 3057 | jn=ix(j+1)-ix(j) 1858 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3058:72: 3058 | 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: 3059 | gj=dot_product(sc(1:jn),x(jb:je)) 1860 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3060:72: 3060 | ga(j)=abs((gj-svr*xb(j))/xs(j)) 1861 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3061:72: 3061 | if(ga(j) .le. al1*vp(j))goto 14611 1861 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3062:72: 3062 | ixx(j)=1 1861 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3063:72: 3063 | kx=1 1861 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3064:72: 3064 | 14611 continue 1862 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3065:72: 3065 | 14591 continue 1863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3066:72: 3066 | 14592 continue 1863 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3067:72: 3067 | if(kx.eq.1) go to 10680 1864 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3068:72: 3068 | goto 14242 1865 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3069:72: 3069 | 14581 continue 1866 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3070:72: 3070 | 14551 continue 1867 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3071:72: 3071 | goto 14241 1868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3072:72: 3072 | 14242 continue 1868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3073:72: 3073 | if(nin .le. nx)goto 14631 1868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3074:72: 3074 | jerr=-10000-ilm 1868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3075:72: 3075 | goto 14162 1868 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3076:72: 3076 | 14631 continue 1869 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3077:72: 3077 | 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: 3078 | kin(ilm)=nin 1870 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3079:72: 3079 | a0(ilm)=b(0) 1870 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3080:72: 3080 | alm(ilm)=al 1870 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3081:72: 3081 | lmu=ilm 1871 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3082:72: 3082 | devi=dev2(no,w,y,q,pmin) 1872 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3083:72: 3083 | dev(ilm)=(dev1-devi)/dev0 1873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3084:72: 3084 | if(ilm.lt.mnl)goto 14161 1873 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3085:72: 3085 | if(flmin.ge.1.0)goto 14161 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3086:72: 3086 | me=0 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3087:72: 3087 | 14640 do 14641 j=1,nin 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3088:72: 3088 | if(a(j,ilm).ne.0.0) me=me+1 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3089:72: 3089 | 14641 continue 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3090:72: 3090 | 14642 continue 1874 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3091:72: 3091 | if(me.gt.ne)goto 14162 1875 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3092:72: 3092 | if(dev(ilm).gt.devmax)goto 14162 1875 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3093:72: 3093 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162 1876 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3094:72: 3094 | if(xm(0).lt.vmin)goto 14162 1877 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3095:72: 3095 | 14161 continue 1878 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3096:72: 3096 | 14162 continue 1878 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3097:72: 3097 | g=log(q/(1.0-q)) 1879 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3098:72: 3098 | 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: 3099 | return 1881 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3100:72: 3100 | end 1882 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3101:72: 3101 | 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: 3104 | 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: 3106 | 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: 3107 | 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: 3108 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 1889 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3118:72: 3118 | allocate(xm(0:ni),stat=ierr) 1900 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3119:72: 3119 | jerr=jerr+ierr 1901 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3120:72: 3120 | allocate(r(1:no),stat=ierr) 1901 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3121:72: 3121 | jerr=jerr+ierr 1902 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3122:72: 3122 | allocate(v(1:no),stat=ierr) 1902 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3123:72: 3123 | jerr=jerr+ierr 1903 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3124:72: 3124 | allocate(mm(1:ni),stat=ierr) 1903 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3125:72: 3125 | jerr=jerr+ierr 1904 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3126:72: 3126 | allocate(ga(1:ni),stat=ierr) 1904 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3127:72: 3127 | jerr=jerr+ierr 1905 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3128:72: 3128 | allocate(iy(1:ni),stat=ierr) 1905 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3129:72: 3129 | jerr=jerr+ierr 1906 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3130:72: 3130 | allocate(is(1:max(nc,ni)),stat=ierr) 1906 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3131:72: 3131 | jerr=jerr+ierr 1907 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3132:72: 3132 | allocate(sxp(1:no),stat=ierr) 1907 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3133:72: 3133 | jerr=jerr+ierr 1908 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3134:72: 3134 | allocate(sxpl(1:no),stat=ierr) 1908 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3135:72: 3135 | jerr=jerr+ierr 1909 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3136:72: 3136 | allocate(sc(1:no),stat=ierr) 1909 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3137:72: 3137 | jerr=jerr+ierr 1910 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3138:72: 3138 | if(jerr.ne.0) return 1911 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3139:72: 3139 | pmax=1.0-pmin 1911 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3140:72: 3140 | emin=pmin/pmax 1911 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3141:72: 3141 | emax=1.0/emin 1912 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3142:72: 3142 | pfm=(1.0+pmin)*pmin 1912 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3143:72: 3143 | pfx=(1.0-pmin)*pmax 1912 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3144:72: 3144 | vmin=pfm*pmax 1913 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3145:72: 3145 | bta=parm 1913 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3146:72: 3146 | omb=1.0-bta 1913 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3147:72: 3147 | dev1=0.0 1913 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3148:72: 3148 | dev0=0.0 1914 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3149:72: 3149 | 14650 do 14651 ic=1,nc 1914 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3150:72: 3150 | q0=dot_product(w,y(:,ic)) 1915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3151:72: 3151 | if(q0 .gt. pmin)goto 14671 1915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3152:72: 3152 | jerr =8000+ic 1915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3153:72: 3153 | return 1915 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3154:72: 3154 | 14671 continue 1916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3155:72: 3155 | if(q0 .lt. 1.0-pmin)goto 14691 1916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3156:72: 3156 | jerr =9000+ic 1916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3157:72: 3157 | return 1916 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3158:72: 3158 | 14691 continue 1917 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3159:72: 3159 | b(1:ni,ic)=0.0 1917 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3160:72: 3160 | b(0,ic)=log(q0) 1917 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3161:72: 3161 | dev1=dev1-q0*b(0,ic) 1918 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3162:72: 3162 | 14651 continue 1919 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3163:72: 3163 | 14652 continue 1919 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3164:72: 3164 | iy=0 1919 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3165:72: 3165 | al=0.0 1920 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3166:72: 3166 | if(nonzero(no*nc,g) .ne. 0)goto 14711 1921 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3167:72: 3167 | b(0,:)=b(0,:)-sum(b(0,:))/nc 1921 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3168:72: 3168 | sxp=0.0 1922 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3169:72: 3169 | 14720 do 14721 ic=1,nc 1922 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3170:72: 3170 | q(:,ic)=exp(b(0,ic)) 1922 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3171:72: 3171 | sxp=sxp+q(:,ic) 1922 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3172:72: 3172 | 14721 continue 1923 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3173:72: 3173 | 14722 continue 1923 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3174:72: 3174 | goto 14731 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3175:72: 3175 | 14711 continue 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3176:72: 3176 | 14740 do 14741 i=1,no 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3177:72: 3177 | g(i,:)=g(i,:)-sum(g(i,:))/nc 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3178:72: 3178 | 14741 continue 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3179:72: 3179 | 14742 continue 1924 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3180:72: 3180 | sxp=0.0 1925 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3181:72: 3181 | call kazero(nc,no,y,g,w,b(0,:),jerr) 1925 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3182:72: 3182 | if(jerr.ne.0) return 1926 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3183:72: 3183 | dev1=0.0 1927 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3184:72: 3184 | 14750 do 14751 ic=1,nc 1927 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3185:72: 3185 | q(:,ic)=b(0,ic)+g(:,ic) 1928 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3186:72: 3186 | dev1=dev1-dot_product(w,y(:,ic)*q(:,ic)) 1929 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3187:72: 3187 | q(:,ic)=exp(q(:,ic)) 1929 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3188:72: 3188 | sxp=sxp+q(:,ic) 1930 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3189:72: 3189 | 14751 continue 1931 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3190:72: 3190 | 14752 continue 1931 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3191:72: 3191 | sxpl=w*log(sxp) 1931 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3192:72: 3192 | 14760 do 14761 ic=1,nc 1931 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3193:72: 3193 | dev1=dev1+dot_product(y(:,ic),sxpl) 1931 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3194:72: 3194 | 14761 continue 1932 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3195:72: 3195 | 14762 continue 1932 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3196:72: 3196 | 14731 continue 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3197:72: 3197 | 14701 continue 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3198:72: 3198 | 14770 do 14771 ic=1,nc 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3199:72: 3199 | 14780 do 14781 i=1,no 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3200:72: 3200 | 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: 3201 | 14781 continue 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3202:72: 3202 | 14782 continue 1933 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3203:72: 3203 | 14771 continue 1934 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3204:72: 3204 | 14772 continue 1934 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3205:72: 3205 | dev0=dev0+dev1 1935 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3206:72: 3206 | if(kopt .le. 0)goto 14801 1936 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3207:72: 3207 | if(isd .le. 0)goto 14821 1936 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3208:72: 3208 | xv=0.25 1936 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3209:72: 3209 | goto 14831 1937 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3210:72: 3210 | 14821 continue 1938 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3211:72: 3211 | 14840 do 14841 j=1,ni 1938 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3212:72: 3212 | if(ju(j).eq.0)goto 14841 1938 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3213:72: 3213 | jb=ix(j) 1938 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3214:72: 3214 | je=ix(j+1)-1 1939 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3215:72: 3215 | 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: 3216 | 14841 continue 1941 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3217:72: 3217 | 14842 continue 1941 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3218:72: 3218 | 14831 continue 1942 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3219:72: 3219 | 14811 continue 1942 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3220:72: 3220 | 14801 continue 1943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3221:72: 3221 | if(flmin .ge. 1.0)goto 14861 1943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3222:72: 3222 | eqs=max(eps,flmin) 1943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3223:72: 3223 | alf=eqs**(1.0/(nlam-1)) 1943 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3224:72: 3224 | 14861 continue 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3225:72: 3225 | m=0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3226:72: 3226 | mm=0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3227:72: 3227 | nin=0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3228:72: 3228 | nlp=0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3229:72: 3229 | mnl=min(mnlam,nlam) 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3230:72: 3230 | bs=0.0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3231:72: 3231 | svr=0.0 1944 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3232:72: 3232 | o=0.0 1945 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3233:72: 3233 | shr=shri*dev0 1945 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3234:72: 3234 | ga=0.0 1946 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3235:72: 3235 | 14870 do 14871 ic=1,nc 1946 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3236:72: 3236 | v=q(:,ic)/sxp 1946 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3237:72: 3237 | r=w*(y(:,ic)-v) 1946 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3238:72: 3238 | v=w*v*(1.0-v) 1947 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3239:72: 3239 | 14880 do 14881 j=1,ni 1947 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3240:72: 3240 | if(ju(j).eq.0)goto 14881 1948 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3241:72: 3241 | jb=ix(j) 1948 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3242:72: 3242 | je=ix(j+1)-1 1948 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3243:72: 3243 | jn=ix(j+1)-ix(j) 1949 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3244:72: 3244 | 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: 3245 | gj=dot_product(sc(1:jn),x(jb:je)) 1951 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3246:72: 3246 | 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: 3247 | 14881 continue 1953 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3248:72: 3248 | 14882 continue 1953 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3249:72: 3249 | 14871 continue 1954 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3250:72: 3250 | 14872 continue 1954 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3251:72: 3251 | 14890 do 14891 ilm=1,nlam 1954 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3252:72: 3252 | al0=al 1955 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3253:72: 3253 | if(flmin .lt. 1.0)goto 14911 1955 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3254:72: 3254 | al=ulam(ilm) 1955 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3255:72: 3255 | goto 14901 1956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3256:72: 3256 | 14911 if(ilm .le. 2)goto 14921 1956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3257:72: 3257 | al=al*alf 1956 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3258:72: 3258 | goto 14901 1957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3259:72: 3259 | 14921 if(ilm .ne. 1)goto 14931 1957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3260:72: 3260 | al=big 1957 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3261:72: 3261 | goto 14941 1958 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3262:72: 3262 | 14931 continue 1958 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3263:72: 3263 | al0=0.0 1959 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3264:72: 3264 | 14950 do 14951 j=1,ni 1959 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3265:72: 3265 | if(ju(j).eq.0)goto 14951 1959 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3266:72: 3266 | 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: 3267 | 14951 continue 1960 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3268:72: 3268 | 14952 continue 1960 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3269:72: 3269 | al0=al0/max(bta,1.0e-3) 1960 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3270:72: 3270 | al=alf*al0 1961 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3271:72: 3271 | 14941 continue 1962 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3272:72: 3272 | 14901 continue 1962 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3273:72: 3273 | al2=al*omb 1962 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3274:72: 3274 | al1=al*bta 1962 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3275:72: 3275 | tlam=bta*(2.0*al-al0) 1963 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3276:72: 3276 | 14960 do 14961 k=1,ni 1963 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3277:72: 3277 | if(iy(k).eq.1)goto 14961 1963 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3278:72: 3278 | if(ju(k).eq.0)goto 14961 1964 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3279:72: 3279 | if(ga(k).gt.tlam*vp(k)) iy(k)=1 1965 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3280:72: 3280 | 14961 continue 1966 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3281:72: 3281 | 14962 continue 1966 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3282:72: 3282 | 10680 continue 1967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3283:72: 3283 | 14970 continue 1967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3284:72: 3284 | 14971 continue 1967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3285:72: 3285 | ixx=0 1967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3286:72: 3286 | jxx=ixx 1967 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3287:72: 3287 | ig=0 1968 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3288:72: 3288 | 14980 do 14981 ic=1,nc 1968 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3289:72: 3289 | bs(0,ic)=b(0,ic) 1969 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3290:72: 3290 | 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: 3291 | xm(0)=0.0 1970 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3292:72: 3292 | svr=0.0 1970 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3293:72: 3293 | o=0.0 1971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3294:72: 3294 | 14990 do 14991 i=1,no 1971 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3295:72: 3295 | pic=q(i,ic)/sxp(i) 1972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3296:72: 3296 | if(pic .ge. pfm)goto 15011 1972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3297:72: 3297 | pic=0.0 1972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3298:72: 3298 | v(i)=0.0 1972 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3299:72: 3299 | goto 15001 1973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3300:72: 3300 | 15011 if(pic .le. pfx)goto 15021 1973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3301:72: 3301 | pic=1.0 1973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3302:72: 3302 | v(i)=0.0 1973 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3303:72: 3303 | goto 15031 1974 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3304:72: 3304 | 15021 continue 1974 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3305:72: 3305 | v(i)=w(i)*pic*(1.0-pic) 1974 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3306:72: 3306 | xm(0)=xm(0)+v(i) 1974 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3307:72: 3307 | 15031 continue 1975 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3308:72: 3308 | 15001 continue 1975 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3309:72: 3309 | r(i)=w(i)*(y(i,ic)-pic) 1975 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3310:72: 3310 | svr=svr+r(i) 1976 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3311:72: 3311 | 14991 continue 1977 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3312:72: 3312 | 14992 continue 1977 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3313:72: 3313 | if(xm(0).le.vmin)goto 14981 1977 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3314:72: 3314 | ig=1 1978 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3315:72: 3315 | 15040 do 15041 j=1,ni 1978 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3316:72: 3316 | if(iy(j).eq.0)goto 15041 1979 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3317:72: 3317 | jb=ix(j) 1979 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3318:72: 3318 | je=ix(j+1)-1 1980 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3319:72: 3319 | xm(j)=dot_product(v(jx(jb:je)),x(jb:je)) 1981 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3320:72: 3320 | if(kopt .ne. 0)goto 15061 1982 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3321:72: 3321 | 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: 3322 | 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: 3323 | 15061 continue 1985 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3324:72: 3324 | 15041 continue 1986 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3325:72: 3325 | 15042 continue 1986 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3326:72: 3326 | 15070 continue 1986 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3327:72: 3327 | 15071 continue 1986 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3328:72: 3328 | nlp=nlp+1 1986 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3329:72: 3329 | dlx=0.0 1987 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3330:72: 3330 | 15080 do 15081 k=1,ni 1987 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3331:72: 3331 | if(iy(k).eq.0)goto 15081 1988 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3332:72: 3332 | jb=ix(k) 1988 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3333:72: 3333 | je=ix(k+1)-1 1988 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3334:72: 3334 | jn=ix(k+1)-ix(k) 1988 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3335:72: 3335 | bk=b(k,ic) 1989 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3336:72: 3336 | 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: 3337 | gk=dot_product(sc(1:jn),x(jb:je)) 1991 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3338:72: 3338 | gk=(gk-svr*xb(k))/xs(k) 1992 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3339:72: 3339 | u=gk+xv(k,ic)*b(k,ic) 1992 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3340:72: 3340 | au=abs(u)-vp(k)*al1 1993 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3341:72: 3341 | if(au .gt. 0.0)goto 15101 1993 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3342:72: 3342 | b(k,ic)=0.0 1993 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3343:72: 3343 | goto 15111 1994 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3344:72: 3344 | 15101 continue 1994 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3345:72: 3345 | 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: 3346 | 15111 continue 1995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3347:72: 3347 | 15091 continue 1995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3348:72: 3348 | d=b(k,ic)-bk 1995 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3349:72: 3349 | if(abs(d).le.0.0)goto 15081 1996 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3350:72: 3350 | dlx=max(dlx,xv(k,ic)*d**2) 1997 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3351:72: 3351 | if(mm(k) .ne. 0)goto 15131 1997 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3352:72: 3352 | nin=nin+1 1998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3353:72: 3353 | if(nin .le. nx)goto 15151 1998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3354:72: 3354 | jxx=1 1998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3355:72: 3355 | goto 15082 1998 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3356:72: 3356 | 15151 continue 1999 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3357:72: 3357 | mm(k)=nin 1999 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3358:72: 3358 | m(nin)=k 2000 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3359:72: 3359 | xm(k)=dot_product(v(jx(jb:je)),x(jb:je)) 2001 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3360:72: 3360 | 15131 continue 2002 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3361:72: 3361 | 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: 3362 | o=o+d*(xb(k)/xs(k)) 2004 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3363:72: 3363 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2005 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3364:72: 3364 | 15081 continue 2006 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3365:72: 3365 | 15082 continue 2006 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3366:72: 3366 | if(jxx.gt.0)goto 15072 2007 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3367:72: 3367 | d=svr/xm(0) 2008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3368:72: 3368 | if(d .eq. 0.0)goto 15171 2008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3369:72: 3369 | b(0,ic)=b(0,ic)+d 2008 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3370:72: 3370 | dlx=max(dlx,xm(0)*d**2) 2009 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3371:72: 3371 | r=r-d*v 2009 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3372:72: 3372 | svr=svr-d*xm(0) 2010 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3373:72: 3373 | 15171 continue 2011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3374:72: 3374 | if(dlx.lt.shr)goto 15072 2011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3375:72: 3375 | if(nlp .le. maxit)goto 15191 2011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3376:72: 3376 | jerr=-ilm 2011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3377:72: 3377 | return 2011 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3378:72: 3378 | 15191 continue 2012 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3379:72: 3379 | 15200 continue 2012 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3380:72: 3380 | 15201 continue 2012 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3381:72: 3381 | nlp=nlp+1 2012 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3382:72: 3382 | dlx=0.0 2013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3383:72: 3383 | 15210 do 15211 l=1,nin 2013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3384:72: 3384 | k=m(l) 2013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3385:72: 3385 | jb=ix(k) 2013 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3386:72: 3386 | je=ix(k+1)-1 2014 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3387:72: 3387 | jn=ix(k+1)-ix(k) 2014 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3388:72: 3388 | bk=b(k,ic) 2015 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3389:72: 3389 | 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: 3390 | gk=dot_product(sc(1:jn),x(jb:je)) 2017 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3391:72: 3391 | gk=(gk-svr*xb(k))/xs(k) 2018 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3392:72: 3392 | u=gk+xv(k,ic)*b(k,ic) 2018 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3393:72: 3393 | au=abs(u)-vp(k)*al1 2019 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3394:72: 3394 | if(au .gt. 0.0)goto 15231 2019 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3395:72: 3395 | b(k,ic)=0.0 2019 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3396:72: 3396 | goto 15241 2020 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3397:72: 3397 | 15231 continue 2020 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3398:72: 3398 | 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: 3399 | 15241 continue 2021 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3400:72: 3400 | 15221 continue 2021 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3401:72: 3401 | d=b(k,ic)-bk 2021 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3402:72: 3402 | if(abs(d).le.0.0)goto 15211 2022 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3403:72: 3403 | dlx=max(dlx,xv(k,ic)*d**2) 2023 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3404:72: 3404 | 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: 3405 | o=o+d*(xb(k)/xs(k)) 2025 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3406:72: 3406 | svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k) 2026 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3407:72: 3407 | 15211 continue 2027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3408:72: 3408 | 15212 continue 2027 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3409:72: 3409 | d=svr/xm(0) 2028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3410:72: 3410 | if(d .eq. 0.0)goto 15261 2028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3411:72: 3411 | b(0,ic)=b(0,ic)+d 2028 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3412:72: 3412 | dlx=max(dlx,xm(0)*d**2) 2029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3413:72: 3413 | r=r-d*v 2029 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3414:72: 3414 | svr=svr-d*xm(0) 2030 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3415:72: 3415 | 15261 continue 2031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3416:72: 3416 | if(dlx.lt.shr)goto 15202 2031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3417:72: 3417 | if(nlp .le. maxit)goto 15281 2031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3418:72: 3418 | jerr=-ilm 2031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3419:72: 3419 | return 2031 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3420:72: 3420 | 15281 continue 2032 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3421:72: 3421 | goto 15201 2033 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3422:72: 3422 | 15202 continue 2033 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3423:72: 3423 | goto 15071 2034 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3424:72: 3424 | 15072 continue 2034 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3425:72: 3425 | if(jxx.gt.0)goto 14982 2035 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3426:72: 3426 | 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: 3427 | if(ixx .ne. 0)goto 15301 2037 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3428:72: 3428 | 15310 do 15311 j=1,nin 2037 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3429:72: 3429 | k=m(j) 2038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3430:72: 3430 | 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: 3431 | ixx=1 2038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3432:72: 3432 | goto 15312 2038 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3433:72: 3433 | 15331 continue 2039 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3434:72: 3434 | 15311 continue 2040 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3435:72: 3435 | 15312 continue 2040 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3436:72: 3436 | 15301 continue 2041 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3437:72: 3437 | sc=b(0,ic)+g(:,ic) 2041 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3438:72: 3438 | b0=0.0 2042 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3439:72: 3439 | 15340 do 15341 j=1,nin 2042 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3440:72: 3440 | l=m(j) 2042 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3441:72: 3441 | jb=ix(l) 2042 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3442:72: 3442 | je=ix(l+1)-1 2043 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3443:72: 3443 | 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: 3444 | b0=b0-b(l,ic)*xb(l)/xs(l) 2045 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3445:72: 3445 | 15341 continue 2046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3446:72: 3446 | 15342 continue 2046 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3447:72: 3447 | sc=min(max(exmn,sc+b0),exmx) 2047 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3448:72: 3448 | sxp=sxp-q(:,ic) 2048 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3449:72: 3449 | q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp) 2049 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3450:72: 3450 | sxp=sxp+q(:,ic) 2050 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3451:72: 3451 | 14981 continue 2051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3452:72: 3452 | 14982 continue 2051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3453:72: 3453 | s=-sum(b(0,:))/nc 2051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3454:72: 3454 | b(0,:)=b(0,:)+s 2051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3455:72: 3455 | sc=s 2051 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3456:72: 3456 | b0=0.0 2052 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3457:72: 3457 | 15350 do 15351 j=1,nin 2052 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3458:72: 3458 | l=m(j) 2053 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3459:72: 3459 | if(vp(l) .gt. 0.0)goto 15371 2053 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3460:72: 3460 | s=sum(b(l,:))/nc 2053 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3461:72: 3461 | goto 15381 2054 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3462:72: 3462 | 15371 continue 2054 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3463:72: 3463 | s=elc(parm,nc,b(l,:),is) 2054 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3464:72: 3464 | 15381 continue 2055 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3465:72: 3465 | 15361 continue 2055 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3466:72: 3466 | b(l,:)=b(l,:)-s 2056 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3467:72: 3467 | jb=ix(l) 2056 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3468:72: 3468 | je=ix(l+1)-1 2057 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3469:72: 3469 | 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: 3470 | b0=b0+s*xb(l)/xs(l) 2059 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3471:72: 3471 | 15351 continue 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3472:72: 3472 | 15352 continue 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3473:72: 3473 | sc=sc+b0 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3474:72: 3474 | sc=exp(sc) 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3475:72: 3475 | sxp=sxp*sc 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3476:72: 3476 | 15390 do 15391 ic=1,nc 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3477:72: 3477 | q(:,ic)=q(:,ic)*sc 2060 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3478:72: 3478 | 15391 continue 2061 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3479:72: 3479 | 15392 continue 2061 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3480:72: 3480 | if(jxx.gt.0)goto 14972 2061 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3481:72: 3481 | if(ig.eq.0)goto 14972 2062 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3482:72: 3482 | if(ixx .ne. 0)goto 15411 2063 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3483:72: 3483 | 15420 do 15421 j=1,ni 2063 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3484:72: 3484 | if(iy(j).eq.1)goto 15421 2063 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3485:72: 3485 | if(ju(j).eq.0)goto 15421 2063 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3486:72: 3486 | ga(j)=0.0 2063 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3487:72: 3487 | 15421 continue 2064 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3488:72: 3488 | 15422 continue 2064 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3489:72: 3489 | 15430 do 15431 ic=1,nc 2064 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3490:72: 3490 | v=q(:,ic)/sxp 2064 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3491:72: 3491 | r=w*(y(:,ic)-v) 2064 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3492:72: 3492 | v=w*v*(1.0-v) 2065 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3493:72: 3493 | 15440 do 15441 j=1,ni 2065 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3494:72: 3494 | if(iy(j).eq.1)goto 15441 2065 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3495:72: 3495 | if(ju(j).eq.0)goto 15441 2066 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3496:72: 3496 | jb=ix(j) 2066 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3497:72: 3497 | je=ix(j+1)-1 2066 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3498:72: 3498 | jn=ix(j+1)-ix(j) 2067 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3499:72: 3499 | 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: 3500 | gj=dot_product(sc(1:jn),x(jb:je)) 2069 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3501:72: 3501 | 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: 3502 | 15441 continue 2071 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3503:72: 3503 | 15442 continue 2071 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3504:72: 3504 | 15431 continue 2072 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3505:72: 3505 | 15432 continue 2072 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3506:72: 3506 | 15450 do 15451 k=1,ni 2072 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3507:72: 3507 | if(iy(k).eq.1)goto 15451 2072 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3508:72: 3508 | if(ju(k).eq.0)goto 15451 2073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3509:72: 3509 | if(ga(k) .le. al1*vp(k))goto 15471 2073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3510:72: 3510 | iy(k)=1 2073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3511:72: 3511 | ixx=1 2073 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3512:72: 3512 | 15471 continue 2074 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3513:72: 3513 | 15451 continue 2075 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3514:72: 3514 | 15452 continue 2075 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3515:72: 3515 | if(ixx.eq.1) go to 10680 2076 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3516:72: 3516 | goto 14972 2077 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3517:72: 3517 | 15411 continue 2078 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3518:72: 3518 | goto 14971 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3519:72: 3519 | 14972 continue 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3520:72: 3520 | if(jxx .le. 0)goto 15491 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3521:72: 3521 | jerr=-10000-ilm 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3522:72: 3522 | goto 14892 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3523:72: 3523 | 15491 continue 2079 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3524:72: 3524 | devi=0.0 2080 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3525:72: 3525 | 15500 do 15501 ic=1,nc 2081 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3526:72: 3526 | 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: 3527 | a0(ic,ilm)=b(0,ic) 2082 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3528:72: 3528 | 15510 do 15511 i=1,no 2082 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3529:72: 3529 | if(y(i,ic).le.0.0)goto 15511 2083 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3530:72: 3530 | 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: 3531 | 15511 continue 2085 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3532:72: 3532 | 15512 continue 2085 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3533:72: 3533 | 15501 continue 2086 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3534:72: 3534 | 15502 continue 2086 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3535:72: 3535 | kin(ilm)=nin 2086 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3536:72: 3536 | alm(ilm)=al 2086 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3537:72: 3537 | lmu=ilm 2087 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3538:72: 3538 | dev(ilm)=(dev1-devi)/dev0 2087 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3539:72: 3539 | if(ig.eq.0)goto 14892 2088 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3540:72: 3540 | if(ilm.lt.mnl)goto 14891 2088 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3541:72: 3541 | if(flmin.ge.1.0)goto 14891 2089 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3542:72: 3542 | 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: 3543 | if(dev(ilm).gt.devmax)goto 14892 2090 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3544:72: 3544 | if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892 2091 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3545:72: 3545 | 14891 continue 2092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3546:72: 3546 | 14892 continue 2092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3547:72: 3547 | g=log(q) 2092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3548:72: 3548 | 15520 do 15521 i=1,no 2092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3549:72: 3549 | g(i,:)=g(i,:)-sum(g(i,:))/nc 2092 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3550:72: 3550 | 15521 continue 2093 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3551:72: 3551 | 15522 continue 2093 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3552:72: 3552 | 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: 3553 | return 2095 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3554:72: 3554 | end 2096 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3555:72: 3555 | 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: 3556 | real a0(nc),ca(nx,nc),x(*),f(nc,n) 2097 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3557:72: 3557 | integer ia(*),ix(*),jx(*) 2098 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3558:72: 3558 | 15530 do 15531 ic=1,nc 2098 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3559:72: 3559 | f(ic,:)=a0(ic) 2098 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3560:72: 3560 | 15531 continue 2099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3561:72: 3561 | 15532 continue 2099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3562:72: 3562 | 15540 do 15541 j=1,nin 2099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3563:72: 3563 | k=ia(j) 2099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3564:72: 3564 | kb=ix(k) 2099 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3565:72: 3565 | ke=ix(k+1)-1 2100 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3566:72: 3566 | 15550 do 15551 ic=1,nc 2100 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3567:72: 3567 | 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: 3568 | 15551 continue 2101 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3569:72: 3569 | 15552 continue 2101 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3570:72: 3570 | 15541 continue 2102 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3571:72: 3571 | 15542 continue 2102 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3572:72: 3572 | return 2103 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3573:72: 3573 | end 2104 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3574:72: 3574 | 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: 3576 | 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: 3577 | real ca(nx,nlam),dev(nlam),alm(nlam) 2108 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3578:72: 3578 | integer jd(*),ia(nx),nin(nlam) 2109 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3581:72: 3581 | if(maxval(vp) .gt. 0.0)goto 15571 2113 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3582:72: 3582 | jerr=10000 2113 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3583:72: 3583 | return 2113 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3584:72: 3584 | 15571 continue 2114 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3585:72: 3585 | allocate(ww(1:no),stat=jerr) 2115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3586:72: 3586 | allocate(ju(1:ni),stat=ierr) 2115 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3587:72: 3587 | jerr=jerr+ierr 2116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3588:72: 3588 | allocate(vq(1:ni),stat=ierr) 2116 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3589:72: 3589 | jerr=jerr+ierr 2117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3590:72: 3590 | if(isd .le. 0)goto 15591 2117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3591:72: 3591 | allocate(xs(1:ni),stat=ierr) 2117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3592:72: 3592 | jerr=jerr+ierr 2117 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3593:72: 3593 | 15591 continue 2118 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3594:72: 3594 | if(jerr.ne.0) return 2119 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3595:72: 3595 | call chkvars(no,ni,x,ju) 2120 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3596:72: 3596 | 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: 3597 | if(maxval(ju) .gt. 0)goto 15611 2121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3598:72: 3598 | jerr=7777 2121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3599:72: 3599 | return 2121 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3600:72: 3600 | 15611 continue 2122 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3601:72: 3601 | vq=max(0.0,vp) 2122 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3602:72: 3602 | vq=vq*ni/sum(vq) 2123 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3603:72: 3603 | ww=max(0.0,w) 2123 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3604:72: 3604 | sw=sum(ww) 2124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3605:72: 3605 | if(sw .gt. 0.0)goto 15631 2124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3606:72: 3606 | jerr=9999 2124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3607:72: 3607 | return 2124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3608:72: 3608 | 15631 continue 2124 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3609:72: 3609 | ww=ww/sw 2125 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3610:72: 3610 | call cstandard(no,ni,x,ww,ju,isd,xs) 2126 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3611:72: 3611 | 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: 3613 | if(jerr.gt.0) return 2128 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3614:72: 3614 | dev0=2.0*sw*dev0 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3615:72: 3615 | if(isd .le. 0)goto 15651 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3616:72: 3616 | 15660 do 15661 k=1,lmu 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3617:72: 3617 | nk=nin(k) 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3618:72: 3618 | 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: 3619 | 15661 continue 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3620:72: 3620 | 15662 continue 2129 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3621:72: 3621 | 15651 continue 2130 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3622:72: 3622 | deallocate(ww,ju,vq) 2130 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3623:72: 3623 | if(isd.gt.0) deallocate(xs) 2131 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3624:72: 3624 | return 2132 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3625:72: 3625 | end 2133 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3626:72: 3626 | subroutine cstandard (no,ni,x,w,ju,isd,xs) 2134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3627:72: 3627 | real x(no,ni),w(no),xs(ni) 2134 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3628:72: 3628 | integer ju(ni) 2135 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3629:72: 3629 | 15670 do 15671 j=1,ni 2135 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3630:72: 3630 | if(ju(j).eq.0)goto 15671 2136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3631:72: 3631 | xm=dot_product(w,x(:,j)) 2136 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3632:72: 3632 | x(:,j)=x(:,j)-xm 2137 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3633:72: 3633 | if(isd .le. 0)goto 15691 2137 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3634:72: 3634 | xs(j)=sqrt(dot_product(w,x(:,j)**2)) 2137 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3635:72: 3635 | x(:,j)=x(:,j)/xs(j) 2137 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3636:72: 3636 | 15691 continue 2138 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3637:72: 3637 | 15671 continue 2139 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3638:72: 3638 | 15672 continue 2139 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3639:72: 3639 | return 2140 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3640:72: 3640 | end 2141 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3641:72: 3641 | 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: 3643 | 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: 3644 | 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: 3645 | real ao(nx,nlam),dev(nlam),alm(nlam) 2146 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3646:72: 3646 | integer ju(ni),m(nx),kin(nlam) 2147 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3650:72: 3650 | allocate(e(1:no),stat=jerr) 2153 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3651:72: 3651 | allocate(uu(1:no),stat=ierr) 2153 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3652:72: 3652 | jerr=jerr+ierr 2154 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3653:72: 3653 | allocate(f(1:no),stat=ierr) 2154 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3654:72: 3654 | jerr=jerr+ierr 2155 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3655:72: 3655 | allocate(w(1:no),stat=ierr) 2155 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3656:72: 3656 | jerr=jerr+ierr 2156 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3657:72: 3657 | allocate(v(1:ni),stat=ierr) 2156 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3658:72: 3658 | jerr=jerr+ierr 2157 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3659:72: 3659 | allocate(a(1:ni),stat=ierr) 2157 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3660:72: 3660 | jerr=jerr+ierr 2158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3661:72: 3661 | allocate(as(1:ni),stat=ierr) 2158 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3662:72: 3662 | jerr=jerr+ierr 2159 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3663:72: 3663 | allocate(xs(1:ni),stat=ierr) 2159 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3664:72: 3664 | jerr=jerr+ierr 2160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3665:72: 3665 | allocate(ga(1:ni),stat=ierr) 2160 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3666:72: 3666 | jerr=jerr+ierr 2161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3667:72: 3667 | allocate(ixx(1:ni),stat=ierr) 2161 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3668:72: 3668 | jerr=jerr+ierr 2162 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3669:72: 3669 | allocate(jp(1:no),stat=ierr) 2162 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3670:72: 3670 | jerr=jerr+ierr 2163 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3671:72: 3671 | allocate(kp(1:no),stat=ierr) 2163 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3672:72: 3672 | jerr=jerr+ierr 2164 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3673:72: 3673 | allocate(dk(1:no),stat=ierr) 2164 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3674:72: 3674 | jerr=jerr+ierr 2165 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3675:72: 3675 | allocate(wr(1:no),stat=ierr) 2165 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3676:72: 3676 | jerr=jerr+ierr 2166 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3677:72: 3677 | allocate(dq(1:no),stat=ierr) 2166 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3678:72: 3678 | jerr=jerr+ierr 2167 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3679:72: 3679 | allocate(mm(1:ni),stat=ierr) 2167 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3680:72: 3680 | jerr=jerr+ierr 2168 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3681:72: 3681 | if(jerr.ne.0)go to 11790 2169 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3682:72: 3682 | call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3683:72: 3683 | if(jerr.ne.0) go to 11790 2170 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3684:72: 3684 | alpha=parm 2171 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3685:72: 3685 | oma=1.0-alpha 2171 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3686:72: 3686 | nlm=0 2171 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3687:72: 3687 | ixx=0 2171 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3688:72: 3688 | al=0.0 2172 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3689:72: 3689 | dq=d*q 2172 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3690:72: 3690 | call died(no,nk,dq,kp,jp,dk) 2173 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3691:72: 3691 | a=0.0 2173 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3692:72: 3692 | f(1)=0.0 2173 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3693:72: 3693 | fmax=log(huge(f(1))*0.1) 2174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3694:72: 3694 | if(nonzero(no,g) .eq. 0)goto 15711 2174 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3695:72: 3695 | f=g-dot_product(q,g) 2175 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3696:72: 3696 | e=q*exp(sign(min(abs(f),fmax),f)) 2176 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3697:72: 3697 | goto 15721 2177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3698:72: 3698 | 15711 continue 2177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3699:72: 3699 | f=0.0 2177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3700:72: 3700 | e=q 2177 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3701:72: 3701 | 15721 continue 2178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3702:72: 3702 | 15701 continue 2178 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3703:72: 3703 | 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: 3704 | rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0) 2179 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3705:72: 3705 | dev0=rr 2180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3706:72: 3706 | 15730 do 15731 i=1,no 2180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3707:72: 3707 | 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: 3708 | w(i)=0.0 2180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3709:72: 3709 | wr(i)=w(i) 2180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3710:72: 3710 | 15751 continue 2180 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3711:72: 3711 | 15731 continue 2181 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3712:72: 3712 | 15732 continue 2181 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3713:72: 3713 | 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: 3714 | if(jerr.ne.0) go to 11790 2183 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3715:72: 3715 | if(flmin .ge. 1.0)goto 15771 2183 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3716:72: 3716 | eqs=max(eps,flmin) 2183 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3717:72: 3717 | alf=eqs**(1.0/(nlam-1)) 2183 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3718:72: 3718 | 15771 continue 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3719:72: 3719 | m=0 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3720:72: 3720 | mm=0 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3721:72: 3721 | nlp=0 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3722:72: 3722 | nin=nlp 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3723:72: 3723 | mnl=min(mnlam,nlam) 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3724:72: 3724 | as=0.0 2184 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3725:72: 3725 | cthr=cthri*dev0 2185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3726:72: 3726 | 15780 do 15781 j=1,ni 2185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3727:72: 3727 | if(ju(j).eq.0)goto 15781 2185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3728:72: 3728 | ga(j)=abs(dot_product(wr,x(:,j))) 2185 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3729:72: 3729 | 15781 continue 2186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3730:72: 3730 | 15782 continue 2186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3731:72: 3731 | 15790 do 15791 ilm=1,nlam 2186 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3732:72: 3732 | al0=al 2187 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3733:72: 3733 | if(flmin .lt. 1.0)goto 15811 2187 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3734:72: 3734 | al=ulam(ilm) 2187 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3735:72: 3735 | goto 15801 2188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3736:72: 3736 | 15811 if(ilm .le. 2)goto 15821 2188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3737:72: 3737 | al=al*alf 2188 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3738:72: 3738 | goto 15801 2189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3739:72: 3739 | 15821 if(ilm .ne. 1)goto 15831 2189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3740:72: 3740 | al=big 2189 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3741:72: 3741 | goto 15841 2190 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3742:72: 3742 | 15831 continue 2190 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3743:72: 3743 | al0=0.0 2191 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3744:72: 3744 | 15850 do 15851 j=1,ni 2191 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3745:72: 3745 | if(ju(j).eq.0)goto 15851 2191 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3746:72: 3746 | 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: 3747 | 15851 continue 2192 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3748:72: 3748 | 15852 continue 2192 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3749:72: 3749 | al0=al0/max(parm,1.0e-3) 2192 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3750:72: 3750 | al=alf*al0 2193 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3751:72: 3751 | 15841 continue 2194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3752:72: 3752 | 15801 continue 2194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3753:72: 3753 | sa=alpha*al 2194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3754:72: 3754 | omal=oma*al 2194 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3755:72: 3755 | tlam=alpha*(2.0*al-al0) 2195 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3756:72: 3756 | 15860 do 15861 k=1,ni 2195 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3757:72: 3757 | if(ixx(k).eq.1)goto 15861 2195 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3758:72: 3758 | if(ju(k).eq.0)goto 15861 2196 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3759:72: 3759 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2197 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3760:72: 3760 | 15861 continue 2198 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3761:72: 3761 | 15862 continue 2198 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3762:72: 3762 | 10680 continue 2199 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3763:72: 3763 | 15870 continue 2199 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3764:72: 3764 | 15871 continue 2199 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3765:72: 3765 | 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: 3766 | call vars(no,ni,x,w,ixx,v) 2201 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3767:72: 3767 | 15880 continue 2201 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3768:72: 3768 | 15881 continue 2201 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3769:72: 3769 | nlp=nlp+1 2201 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3770:72: 3770 | dli=0.0 2202 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3771:72: 3771 | 15890 do 15891 j=1,ni 2202 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3772:72: 3772 | if(ixx(j).eq.0)goto 15891 2203 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3773:72: 3773 | u=a(j)*v(j)+dot_product(wr,x(:,j)) 2204 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3774:72: 3774 | if(abs(u) .gt. vp(j)*sa)goto 15911 2204 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3775:72: 3775 | at=0.0 2204 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3776:72: 3776 | goto 15921 2205 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3777:72: 3777 | 15911 continue 2205 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3778:72: 3778 | 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: 3779 | 15921 continue 2206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3780:72: 3780 | 15901 continue 2206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3781:72: 3781 | if(at .eq. a(j))goto 15941 2206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3782:72: 3782 | del=at-a(j) 2206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3783:72: 3783 | a(j)=at 2206 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3784:72: 3784 | dli=max(dli,v(j)*del**2) 2207 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3785:72: 3785 | wr=wr-del*w*x(:,j) 2207 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3786:72: 3786 | f=f+del*x(:,j) 2208 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3787:72: 3787 | if(mm(j) .ne. 0)goto 15961 2208 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3788:72: 3788 | nin=nin+1 2208 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3789:72: 3789 | if(nin.gt.nx)goto 15892 2209 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3790:72: 3790 | mm(j)=nin 2209 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3791:72: 3791 | m(nin)=j 2210 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3792:72: 3792 | 15961 continue 2211 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3793:72: 3793 | 15941 continue 2212 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3794:72: 3794 | 15891 continue 2213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3795:72: 3795 | 15892 continue 2213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3796:72: 3796 | if(nin.gt.nx)goto 15882 2213 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3797:72: 3797 | if(dli.lt.cthr)goto 15882 2214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3798:72: 3798 | if(nlp .le. maxit)goto 15981 2214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3799:72: 3799 | jerr=-ilm 2214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3800:72: 3800 | return 2214 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3801:72: 3801 | 15981 continue 2215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3802:72: 3802 | 15990 continue 2215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3803:72: 3803 | 15991 continue 2215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3804:72: 3804 | nlp=nlp+1 2215 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3805:72: 3805 | dli=0.0 2216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3806:72: 3806 | 16000 do 16001 l=1,nin 2216 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3807:72: 3807 | j=m(l) 2217 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3808:72: 3808 | u=a(j)*v(j)+dot_product(wr,x(:,j)) 2218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3809:72: 3809 | if(abs(u) .gt. vp(j)*sa)goto 16021 2218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3810:72: 3810 | at=0.0 2218 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3811:72: 3811 | goto 16031 2219 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3812:72: 3812 | 16021 continue 2219 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3813:72: 3813 | 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: 3814 | 16031 continue 2220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3815:72: 3815 | 16011 continue 2220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3816:72: 3816 | if(at .eq. a(j))goto 16051 2220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3817:72: 3817 | del=at-a(j) 2220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3818:72: 3818 | a(j)=at 2220 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3819:72: 3819 | dli=max(dli,v(j)*del**2) 2221 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3820:72: 3820 | wr=wr-del*w*x(:,j) 2221 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3821:72: 3821 | f=f+del*x(:,j) 2222 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3822:72: 3822 | 16051 continue 2223 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3823:72: 3823 | 16001 continue 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3824:72: 3824 | 16002 continue 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3825:72: 3825 | if(dli.lt.cthr)goto 15992 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3826:72: 3826 | if(nlp .le. maxit)goto 16071 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3827:72: 3827 | jerr=-ilm 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3828:72: 3828 | return 2224 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3829:72: 3829 | 16071 continue 2225 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3830:72: 3830 | goto 15991 2226 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3831:72: 3831 | 15992 continue 2226 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3832:72: 3832 | goto 15881 2227 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3833:72: 3833 | 15882 continue 2227 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3834:72: 3834 | if(nin.gt.nx)goto 15872 2228 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3835:72: 3835 | e=q*exp(sign(min(abs(f),fmax),f)) 2229 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3836:72: 3836 | 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: 3837 | if(jerr .eq. 0)goto 16091 2230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3838:72: 3838 | jerr=jerr-ilm 2230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3839:72: 3839 | go to 11790 2230 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3840:72: 3840 | 16091 continue 2231 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3841:72: 3841 | ix=0 2232 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3842:72: 3842 | 16100 do 16101 j=1,nin 2232 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3843:72: 3843 | k=m(j) 2233 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3844:72: 3844 | 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: 3845 | ix=1 2233 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3846:72: 3846 | goto 16102 2233 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3847:72: 3847 | 16101 continue 2234 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3848:72: 3848 | 16102 continue 2234 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3849:72: 3849 | if(ix .ne. 0)goto 16121 2235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3850:72: 3850 | 16130 do 16131 k=1,ni 2235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3851:72: 3851 | if(ixx(k).eq.1)goto 16131 2235 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3852:72: 3852 | if(ju(k).eq.0)goto 16131 2236 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3853:72: 3853 | ga(k)=abs(dot_product(wr,x(:,k))) 2237 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3854:72: 3854 | if(ga(k) .le. sa*vp(k))goto 16151 2237 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3855:72: 3855 | ixx(k)=1 2237 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3856:72: 3856 | ix=1 2237 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3857:72: 3857 | 16151 continue 2238 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3858:72: 3858 | 16131 continue 2239 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3859:72: 3859 | 16132 continue 2239 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3860:72: 3860 | if(ix.eq.1) go to 10680 2240 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3861:72: 3861 | goto 15872 2241 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3862:72: 3862 | 16121 continue 2242 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3863:72: 3863 | goto 15871 2243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3864:72: 3864 | 15872 continue 2243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3865:72: 3865 | if(nin .le. nx)goto 16171 2243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3866:72: 3866 | jerr=-10000-ilm 2243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3867:72: 3867 | goto 15792 2243 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3868:72: 3868 | 16171 continue 2244 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3869:72: 3869 | 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: 3870 | kin(ilm)=nin 2245 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3871:72: 3871 | alm(ilm)=al 2245 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3872:72: 3872 | lmu=ilm 2246 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3873:72: 3873 | 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: 3874 | if(ilm.lt.mnl)goto 15791 2247 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3875:72: 3875 | if(flmin.ge.1.0)goto 15791 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3876:72: 3876 | me=0 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3877:72: 3877 | 16180 do 16181 j=1,nin 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3878:72: 3878 | if(ao(j,ilm).ne.0.0) me=me+1 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3879:72: 3879 | 16181 continue 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3880:72: 3880 | 16182 continue 2248 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3881:72: 3881 | if(me.gt.ne)goto 15792 2249 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3882:72: 3882 | 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: 3883 | if(dev(ilm).gt.devmax)goto 15792 2251 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3884:72: 3884 | 15791 continue 2252 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3885:72: 3885 | 15792 continue 2252 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3886:72: 3886 | g=f 2253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3887:72: 3887 | 11790 continue 2253 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3888:72: 3888 | 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: 3889 | return 2255 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3890:72: 3890 | end 2256 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3891:72: 3891 | subroutine cxmodval(ca,ia,nin,n,x,f) 2257 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3892:72: 3892 | real ca(nin),x(n,*),f(n) 2257 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3893:72: 3893 | integer ia(nin) 2258 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3894:72: 3894 | f=0.0 2258 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3895:72: 3895 | if(nin.le.0) return 2259 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3896:72: 3896 | 16190 do 16191 i=1,n 2259 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3897:72: 3897 | 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: 3898 | 16191 continue 2260 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3899:72: 3899 | 16192 continue 2260 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3900:72: 3900 | return 2261 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3901:72: 3901 | end 2262 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3902:72: 3902 | subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr) 2263 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3903:72: 3903 | real y(no),d(no),q(no) 2263 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3904:72: 3904 | integer jp(no),kp(*) 2264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3905:72: 3905 | 16200 do 16201 j=1,no 2264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3906:72: 3906 | jp(j)=j 2264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3907:72: 3907 | 16201 continue 2264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3908:72: 3908 | 16202 continue 2264 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3909:72: 3909 | call psort7(y,jp,1,no) 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3910:72: 3910 | nj=0 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3911:72: 3911 | 16210 do 16211 j=1,no 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3912:72: 3912 | if(q(jp(j)).le.0.0)goto 16211 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3913:72: 3913 | nj=nj+1 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3914:72: 3914 | jp(nj)=jp(j) 2265 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3915:72: 3915 | 16211 continue 2266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3916:72: 3916 | 16212 continue 2266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3917:72: 3917 | if(nj .ne. 0)goto 16231 2266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3918:72: 3918 | jerr=20000 2266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3919:72: 3919 | return 2266 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3920:72: 3920 | 16231 continue 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3921:72: 3921 | j=1 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3922:72: 3922 | 16240 continue 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3923:72: 3923 | 16241 if(d(jp(j)).gt.0.0)goto 16242 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3924:72: 3924 | j=j+1 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3925:72: 3925 | if(j.gt.nj)goto 16242 2267 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3926:72: 3926 | goto 16241 2268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3927:72: 3927 | 16242 continue 2268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3928:72: 3928 | if(j .lt. nj-1)goto 16261 2268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3929:72: 3929 | jerr=30000 2268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3930:72: 3930 | return 2268 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3931:72: 3931 | 16261 continue 2269 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3932:72: 3932 | j0=j-1 2269 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3933:72: 3933 | nj=nj-j0 2269 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3934:72: 3934 | 16270 do 16271 j=1,nj 2269 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3935:72: 3935 | jp(j)=jp(j+j0) 2269 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3936:72: 3936 | 16271 continue 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3937:72: 3937 | 16272 continue 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3938:72: 3938 | jerr=0 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3939:72: 3939 | nk=0 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3940:72: 3940 | t0=y(jp(1)) 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3941:72: 3941 | yk=t0 2270 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3942:72: 3942 | j=2 2271 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3943:72: 3943 | 16280 continue 2271 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3944:72: 3944 | 16281 continue 2271 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3945:72: 3945 | 16290 continue 2272 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3946:72: 3946 | 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: 3947 | j=j+1 2272 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3948:72: 3948 | if(j.gt.nj)goto 16292 2272 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3949:72: 3949 | goto 16291 2273 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3950:72: 3950 | 16292 continue 2273 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3951:72: 3951 | nk=nk+1 2273 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3952:72: 3952 | kp(nk)=j-1 2273 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3953:72: 3953 | if(j.gt.nj)goto 16282 2274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3954:72: 3954 | if(j .ne. nj)goto 16311 2274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3955:72: 3955 | nk=nk+1 2274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3956:72: 3956 | kp(nk)=nj 2274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3957:72: 3957 | goto 16282 2274 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3958:72: 3958 | 16311 continue 2275 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3959:72: 3959 | yk=y(jp(j)) 2275 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3960:72: 3960 | j=j+1 2276 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3961:72: 3961 | goto 16281 2277 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3962:72: 3962 | 16282 continue 2277 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3963:72: 3963 | return 2278 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3964:72: 3964 | end 2279 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3965:72: 3965 | 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: 3966 | real d(no),dk(nk),wr(no),w(no) 2281 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3967:72: 3967 | real e(no),u(no),b,c 2281 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3968:72: 3968 | integer kp(nk),jp(no) 2282 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3969:72: 3969 | call usk(no,nk,kp,jp,e,u) 2283 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3970:72: 3970 | b=dk(1)/u(1) 2283 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3971:72: 3971 | c=dk(1)/u(1)**2 2283 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3972:72: 3972 | jerr=0 2284 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3973:72: 3973 | 16320 do 16321 j=1,kp(1) 2284 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3974:72: 3974 | i=jp(j) 2285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3975:72: 3975 | w(i)=e(i)*(b-e(i)*c) 2285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3976:72: 3976 | if(w(i) .gt. 0.0)goto 16341 2285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3977:72: 3977 | jerr=-3 2285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3978:72: 3978 | return 2285 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3979:72: 3979 | 16341 continue 2286 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3980:72: 3980 | wr(i)=d(i)-e(i)*b 2287 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3981:72: 3981 | 16321 continue 2288 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3982:72: 3982 | 16322 continue 2288 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3983:72: 3983 | 16350 do 16351 k=2,nk 2288 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3984:72: 3984 | j1=kp(k-1)+1 2288 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3985:72: 3985 | j2=kp(k) 2289 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3986:72: 3986 | b=b+dk(k)/u(k) 2289 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3987:72: 3987 | c=c+dk(k)/u(k)**2 2290 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3988:72: 3988 | 16360 do 16361 j=j1,j2 2290 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3989:72: 3989 | i=jp(j) 2291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3990:72: 3990 | w(i)=e(i)*(b-e(i)*c) 2291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3991:72: 3991 | if(w(i) .gt. 0.0)goto 16381 2291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3992:72: 3992 | jerr=-30000 2291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3993:72: 3993 | return 2291 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3994:72: 3994 | 16381 continue 2292 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3995:72: 3995 | wr(i)=d(i)-e(i)*b 2293 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3996:72: 3996 | 16361 continue 2294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3997:72: 3997 | 16362 continue 2294 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3998:72: 3998 | 16351 continue 2295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:3999:72: 3999 | 16352 continue 2295 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4000:72: 4000 | return 2296 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4001:72: 4001 | end 2297 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4002:72: 4002 | subroutine vars(no,ni,x,w,ixx,v) 2298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4003:72: 4003 | real x(no,ni),w(no),v(ni) 2298 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4004:72: 4004 | integer ixx(ni) 2299 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4005:72: 4005 | 16390 do 16391 j=1,ni 2299 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4006:72: 4006 | 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: 4007 | 16391 continue 2300 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4008:72: 4008 | 16392 continue 2300 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4009:72: 4009 | return 2301 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4010:72: 4010 | end 2302 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4011:72: 4011 | subroutine died(no,nk,d,kp,jp,dk) 2303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4012:72: 4012 | real d(no),dk(nk) 2303 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4013:72: 4013 | integer kp(nk),jp(no) 2304 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4014:72: 4014 | dk(1)=sum(d(jp(1:kp(1)))) 2305 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4015:72: 4015 | 16400 do 16401 k=2,nk 2305 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4016:72: 4016 | dk(k)=sum(d(jp((kp(k-1)+1):kp(k)))) 2305 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4017:72: 4017 | 16401 continue 2306 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4018:72: 4018 | 16402 continue 2306 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4019:72: 4019 | return 2307 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4020:72: 4020 | end 2308 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4021:72: 4021 | subroutine usk(no,nk,kp,jp,e,u) 2309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4022:72: 4022 | real e(no),u(nk),h 2309 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4023:72: 4023 | integer kp(nk),jp(no) 2310 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4024:72: 4024 | h=0.0 2311 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4025:72: 4025 | 16410 do 16411 k=nk,1,-1 2311 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4026:72: 4026 | j2=kp(k) 2312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4027:72: 4027 | j1=1 2312 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4028:72: 4028 | if(k.gt.1) j1=kp(k-1)+1 2313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4029:72: 4029 | 16420 do 16421 j=j2,j1,-1 2313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4030:72: 4030 | h=h+e(jp(j)) 2313 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4031:72: 4031 | 16421 continue 2314 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4032:72: 4032 | 16422 continue 2314 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4033:72: 4033 | u(k)=h 2315 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4034:72: 4034 | 16411 continue 2316 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4035:72: 4035 | 16412 continue 2316 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4036:72: 4036 | return 2317 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4037:72: 4037 | end 2318 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4038:72: 4038 | 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: 4039 | real d(no),dk(nk),f(no) 2320 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4040:72: 4040 | integer kp(nk),jp(no) 2320 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4041:72: 4041 | real e(no),u(nk),s 2321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4042:72: 4042 | call usk(no,nk,kp,jp,e,u) 2321 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4043:72: 4043 | u=log(u) 2322 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4044:72: 4044 | risk=dot_product(d,f)-dot_product(dk,u) 2323 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4045:72: 4045 | return 2324 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4046:72: 4046 | end 2325 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4047:72: 4047 | 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: 4048 | 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: 4052 | allocate(e(1:no),stat=jerr) 2333 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4053:72: 4053 | allocate(q(1:no),stat=ierr) 2333 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4054:72: 4054 | jerr=jerr+ierr 2334 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4055:72: 4055 | allocate(uu(1:no),stat=ierr) 2334 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4056:72: 4056 | jerr=jerr+ierr 2335 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4057:72: 4057 | allocate(f(1:no),stat=ierr) 2335 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4058:72: 4058 | jerr=jerr+ierr 2336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4059:72: 4059 | allocate(dk(1:no),stat=ierr) 2336 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4060:72: 4060 | jerr=jerr+ierr 2337 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4061:72: 4061 | allocate(jp(1:no),stat=ierr) 2337 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4062:72: 4062 | jerr=jerr+ierr 2338 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4063:72: 4063 | allocate(kp(1:no),stat=ierr) 2338 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4064:72: 4064 | jerr=jerr+ierr 2339 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4065:72: 4065 | allocate(dq(1:no),stat=ierr) 2339 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4066:72: 4066 | jerr=jerr+ierr 2340 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4067:72: 4067 | allocate(xm(1:ni),stat=ierr) 2340 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4068:72: 4068 | jerr=jerr+ierr 2341 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4069:72: 4069 | if(jerr.ne.0) go to 11790 2342 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4070:72: 4070 | q=max(0.0,w) 2342 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4071:72: 4071 | sw=sum(q) 2343 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4072:72: 4072 | if(sw .gt. 0.0)goto 16441 2343 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4073:72: 4073 | jerr=9999 2343 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4074:72: 4074 | go to 11790 2343 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4075:72: 4075 | 16441 continue 2344 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4076:72: 4076 | call groups(no,y,d,q,nk,kp,jp,t0,jerr) 2345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4077:72: 4077 | if(jerr.ne.0) go to 11790 2345 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4078:72: 4078 | fmax=log(huge(e(1))*0.1) 2346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4079:72: 4079 | dq=d*q 2346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4080:72: 4080 | call died(no,nk,dq,kp,jp,dk) 2346 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4081:72: 4081 | gm=dot_product(q,g)/sw 2347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4082:72: 4082 | 16450 do 16451 j=1,ni 2347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4083:72: 4083 | xm(j)=dot_product(q,x(:,j))/sw 2347 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4084:72: 4084 | 16451 continue 2348 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4085:72: 4085 | 16452 continue 2348 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4086:72: 4086 | 16460 do 16461 lam=1,nlam 2349 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4087:72: 4087 | 16470 do 16471 i=1,no 2349 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4088:72: 4088 | 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: 4089 | 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: 4090 | 16471 continue 2352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4091:72: 4091 | 16472 continue 2352 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4092:72: 4092 | 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: 4093 | 16461 continue 2354 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4094:72: 4094 | 16462 continue 2354 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4095:72: 4095 | 11790 continue 2354 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4096:72: 4096 | deallocate(e,uu,dk,f,jp,kp,dq) 2355 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4097:72: 4097 | return 2356 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4098:72: 4098 | end 2357 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4099:72: 4099 | 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: 4101 | 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: 4102 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2361 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4103:72: 4103 | integer jd(*),ia(nx),nin(nlam) 2362 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4106:72: 4106 | if(maxval(vp) .gt. 0.0)goto 16491 2366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4107:72: 4107 | jerr=10000 2366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4108:72: 4108 | return 2366 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4109:72: 4109 | 16491 continue 2367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4110:72: 4110 | if(minval(y) .ge. 0.0)goto 16511 2367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4111:72: 4111 | jerr=8888 2367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4112:72: 4112 | return 2367 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4113:72: 4113 | 16511 continue 2368 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4114:72: 4114 | allocate(ww(1:no),stat=jerr) 2369 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4115:72: 4115 | allocate(ju(1:ni),stat=ierr) 2369 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4116:72: 4116 | jerr=jerr+ierr 2370 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4117:72: 4117 | allocate(vq(1:ni),stat=ierr) 2370 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4118:72: 4118 | jerr=jerr+ierr 2371 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4119:72: 4119 | allocate(xm(1:ni),stat=ierr) 2371 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4120:72: 4120 | jerr=jerr+ierr 2372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4121:72: 4121 | if(isd .le. 0)goto 16531 2372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4122:72: 4122 | allocate(xs(1:ni),stat=ierr) 2372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4123:72: 4123 | jerr=jerr+ierr 2372 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4124:72: 4124 | 16531 continue 2373 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4125:72: 4125 | if(jerr.ne.0) return 2374 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4126:72: 4126 | call chkvars(no,ni,x,ju) 2375 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4127:72: 4127 | 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: 4128 | if(maxval(ju) .gt. 0)goto 16551 2376 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4129:72: 4129 | jerr=7777 2376 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4130:72: 4130 | go to 11790 2376 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4131:72: 4131 | 16551 continue 2377 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4132:72: 4132 | vq=max(0.0,vp) 2377 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4133:72: 4133 | vq=vq*ni/sum(vq) 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4134:72: 4134 | ww=max(0.0,w) 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4135:72: 4135 | sw=sum(ww) 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4136:72: 4136 | if(sw .gt. 0.0)goto 16571 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4137:72: 4137 | jerr=9999 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4138:72: 4138 | go to 11790 2378 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4139:72: 4139 | 16571 continue 2379 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4140:72: 4140 | ww=ww/sw 2380 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4141:72: 4141 | call lstandard1(no,ni,x,ww,ju,isd,xm,xs) 2381 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4142:72: 4142 | 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: 4144 | if(jerr.gt.0) go to 11790 2383 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4145:72: 4145 | dev0=2.0*sw*dev0 2384 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4146:72: 4146 | 16580 do 16581 k=1,lmu 2384 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4147:72: 4147 | nk=nin(k) 2385 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4148:72: 4148 | 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: 4149 | 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: 4150 | 16581 continue 2388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4151:72: 4151 | 16582 continue 2388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4152:72: 4152 | 11790 continue 2388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4153:72: 4153 | deallocate(ww,ju,vq,xm) 2388 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4154:72: 4154 | if(isd.gt.0) deallocate(xs) 2389 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4155:72: 4155 | return 2390 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4156:72: 4156 | end 2391 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4157:72: 4157 | 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: 4159 | 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: 4161 | 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: 4162 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2396 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4163:72: 4163 | integer ju(ni),m(nx),kin(nlam) 2397 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4166:72: 4166 | allocate(a(1:ni),stat=jerr) 2402 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4167:72: 4167 | allocate(as(1:ni),stat=ierr) 2402 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4168:72: 4168 | jerr=jerr+ierr 2403 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4169:72: 4169 | allocate(t(1:no),stat=ierr) 2403 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4170:72: 4170 | jerr=jerr+ierr 2404 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4171:72: 4171 | allocate(mm(1:ni),stat=ierr) 2404 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4172:72: 4172 | jerr=jerr+ierr 2405 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4173:72: 4173 | allocate(ga(1:ni),stat=ierr) 2405 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4174:72: 4174 | jerr=jerr+ierr 2406 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4175:72: 4175 | allocate(ixx(1:ni),stat=ierr) 2406 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4176:72: 4176 | jerr=jerr+ierr 2407 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4177:72: 4177 | allocate(wr(1:no),stat=ierr) 2407 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4178:72: 4178 | jerr=jerr+ierr 2408 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4179:72: 4179 | allocate(v(1:ni),stat=ierr) 2408 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4180:72: 4180 | jerr=jerr+ierr 2409 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4181:72: 4181 | allocate(w(1:no),stat=ierr) 2409 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4182:72: 4182 | jerr=jerr+ierr 2410 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4183:72: 4183 | allocate(f(1:no),stat=ierr) 2410 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4184:72: 4184 | jerr=jerr+ierr 2411 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4185:72: 4185 | if(jerr.ne.0) return 2412 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4186:72: 4186 | bta=parm 2412 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4187:72: 4187 | omb=1.0-bta 2413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4188:72: 4188 | t=q*y 2413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4189:72: 4189 | yb=sum(t) 2413 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4190:72: 4190 | fmax=log(huge(bta)*0.1) 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4191:72: 4191 | if(nonzero(no,g) .ne. 0)goto 16601 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4192:72: 4192 | w=q*yb 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4193:72: 4193 | az=log(yb) 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4194:72: 4194 | f=az 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4195:72: 4195 | dv0=yb*(log(yb)-1.0) 2414 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4196:72: 4196 | goto 16611 2415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4197:72: 4197 | 16601 continue 2415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4198:72: 4198 | w=q*exp(sign(min(abs(g),fmax),g)) 2415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4199:72: 4199 | v0=sum(w) 2415 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4200:72: 4200 | eaz=yb/v0 2416 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4201:72: 4201 | w=eaz*w 2416 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4202:72: 4202 | az=log(eaz) 2416 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4203:72: 4203 | f=az+g 2417 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4204:72: 4204 | dv0=dot_product(t,g)-yb*(1.0-az) 2418 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4205:72: 4205 | 16611 continue 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4206:72: 4206 | 16591 continue 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4207:72: 4207 | a=0.0 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4208:72: 4208 | as=0.0 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4209:72: 4209 | wr=t-w 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4210:72: 4210 | v0=yb 2419 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4211:72: 4211 | dvr=-yb 2420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4212:72: 4212 | 16620 do 16621 i=1,no 2420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4213:72: 4213 | 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: 4214 | 16621 continue 2420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4215:72: 4215 | 16622 continue 2420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4216:72: 4216 | dvr=dvr-dv0 2420 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4217:72: 4217 | dev0=dvr 2421 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4218:72: 4218 | if(flmin .ge. 1.0)goto 16641 2421 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4219:72: 4219 | eqs=max(eps,flmin) 2421 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4220:72: 4220 | alf=eqs**(1.0/(nlam-1)) 2421 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4221:72: 4221 | 16641 continue 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4222:72: 4222 | m=0 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4223:72: 4223 | mm=0 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4224:72: 4224 | nlp=0 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4225:72: 4225 | nin=nlp 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4226:72: 4226 | mnl=min(mnlam,nlam) 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4227:72: 4227 | shr=shri*dev0 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4228:72: 4228 | ixx=0 2422 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4229:72: 4229 | al=0.0 2423 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4230:72: 4230 | 16650 do 16651 j=1,ni 2423 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4231:72: 4231 | if(ju(j).eq.0)goto 16651 2423 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4232:72: 4232 | ga(j)=abs(dot_product(wr,x(:,j))) 2423 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4233:72: 4233 | 16651 continue 2424 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4234:72: 4234 | 16652 continue 2424 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4235:72: 4235 | 16660 do 16661 ilm=1,nlam 2424 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4236:72: 4236 | al0=al 2425 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4237:72: 4237 | if(flmin .lt. 1.0)goto 16681 2425 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4238:72: 4238 | al=ulam(ilm) 2425 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4239:72: 4239 | goto 16671 2426 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4240:72: 4240 | 16681 if(ilm .le. 2)goto 16691 2426 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4241:72: 4241 | al=al*alf 2426 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4242:72: 4242 | goto 16671 2427 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4243:72: 4243 | 16691 if(ilm .ne. 1)goto 16701 2427 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4244:72: 4244 | al=big 2427 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4245:72: 4245 | goto 16711 2428 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4246:72: 4246 | 16701 continue 2428 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4247:72: 4247 | al0=0.0 2429 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4248:72: 4248 | 16720 do 16721 j=1,ni 2429 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4249:72: 4249 | if(ju(j).eq.0)goto 16721 2429 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4250:72: 4250 | 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: 4251 | 16721 continue 2430 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4252:72: 4252 | 16722 continue 2430 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4253:72: 4253 | al0=al0/max(bta,1.0e-3) 2430 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4254:72: 4254 | al=alf*al0 2431 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4255:72: 4255 | 16711 continue 2432 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4256:72: 4256 | 16671 continue 2432 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4257:72: 4257 | al2=al*omb 2432 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4258:72: 4258 | al1=al*bta 2432 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4259:72: 4259 | tlam=bta*(2.0*al-al0) 2433 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4260:72: 4260 | 16730 do 16731 k=1,ni 2433 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4261:72: 4261 | if(ixx(k).eq.1)goto 16731 2433 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4262:72: 4262 | if(ju(k).eq.0)goto 16731 2434 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4263:72: 4263 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2435 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4264:72: 4264 | 16731 continue 2436 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4265:72: 4265 | 16732 continue 2436 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4266:72: 4266 | 10680 continue 2437 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4267:72: 4267 | 16740 continue 2437 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4268:72: 4268 | 16741 continue 2437 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4269:72: 4269 | az0=az 2438 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4270:72: 4270 | 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: 4271 | 16750 do 16751 j=1,ni 2439 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4272:72: 4272 | 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: 4273 | 16751 continue 2440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4274:72: 4274 | 16752 continue 2440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4275:72: 4275 | 16760 continue 2440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4276:72: 4276 | 16761 continue 2440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4277:72: 4277 | nlp=nlp+1 2440 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4278:72: 4278 | dlx=0.0 2441 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4279:72: 4279 | 16770 do 16771 k=1,ni 2441 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4280:72: 4280 | if(ixx(k).eq.0)goto 16771 2441 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4281:72: 4281 | ak=a(k) 2442 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4282:72: 4282 | u=dot_product(wr,x(:,k))+v(k)*ak 2442 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4283:72: 4283 | au=abs(u)-vp(k)*al1 2443 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4284:72: 4284 | if(au .gt. 0.0)goto 16791 2443 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4285:72: 4285 | a(k)=0.0 2443 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4286:72: 4286 | goto 16801 2444 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4287:72: 4287 | 16791 continue 2444 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4288:72: 4288 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2444 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4289:72: 4289 | 16801 continue 2445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4290:72: 4290 | 16781 continue 2445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4291:72: 4291 | if(a(k).eq.ak)goto 16771 2445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4292:72: 4292 | d=a(k)-ak 2445 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4293:72: 4293 | dlx=max(dlx,v(k)*d**2) 2446 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4294:72: 4294 | wr=wr-d*w*x(:,k) 2446 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4295:72: 4295 | f=f+d*x(:,k) 2447 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4296:72: 4296 | if(mm(k) .ne. 0)goto 16821 2447 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4297:72: 4297 | nin=nin+1 2447 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4298:72: 4298 | if(nin.gt.nx)goto 16772 2448 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4299:72: 4299 | mm(k)=nin 2448 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4300:72: 4300 | m(nin)=k 2449 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4301:72: 4301 | 16821 continue 2450 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4302:72: 4302 | 16771 continue 2451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4303:72: 4303 | 16772 continue 2451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4304:72: 4304 | if(nin.gt.nx)goto 16762 2451 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4305:72: 4305 | d=sum(wr)/v0 2452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4306:72: 4306 | az=az+d 2452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4307:72: 4307 | dlx=max(dlx,v0*d**2) 2452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4308:72: 4308 | wr=wr-d*w 2452 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4309:72: 4309 | f=f+d 2453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4310:72: 4310 | if(dlx.lt.shr)goto 16762 2453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4311:72: 4311 | if(nlp .le. maxit)goto 16841 2453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4312:72: 4312 | jerr=-ilm 2453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4313:72: 4313 | return 2453 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4314:72: 4314 | 16841 continue 2454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4315:72: 4315 | 16850 continue 2454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4316:72: 4316 | 16851 continue 2454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4317:72: 4317 | nlp=nlp+1 2454 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4318:72: 4318 | dlx=0.0 2455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4319:72: 4319 | 16860 do 16861 l=1,nin 2455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4320:72: 4320 | k=m(l) 2455 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4321:72: 4321 | ak=a(k) 2456 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4322:72: 4322 | u=dot_product(wr,x(:,k))+v(k)*ak 2456 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4323:72: 4323 | au=abs(u)-vp(k)*al1 2457 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4324:72: 4324 | if(au .gt. 0.0)goto 16881 2457 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4325:72: 4325 | a(k)=0.0 2457 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4326:72: 4326 | goto 16891 2458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4327:72: 4327 | 16881 continue 2458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4328:72: 4328 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2458 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4329:72: 4329 | 16891 continue 2459 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4330:72: 4330 | 16871 continue 2459 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4331:72: 4331 | if(a(k).eq.ak)goto 16861 2459 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4332:72: 4332 | d=a(k)-ak 2459 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4333:72: 4333 | dlx=max(dlx,v(k)*d**2) 2460 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4334:72: 4334 | wr=wr-d*w*x(:,k) 2460 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4335:72: 4335 | f=f+d*x(:,k) 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4336:72: 4336 | 16861 continue 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4337:72: 4337 | 16862 continue 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4338:72: 4338 | d=sum(wr)/v0 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4339:72: 4339 | az=az+d 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4340:72: 4340 | dlx=max(dlx,v0*d**2) 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4341:72: 4341 | wr=wr-d*w 2462 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4342:72: 4342 | f=f+d 2463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4343:72: 4343 | if(dlx.lt.shr)goto 16852 2463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4344:72: 4344 | if(nlp .le. maxit)goto 16911 2463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4345:72: 4345 | jerr=-ilm 2463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4346:72: 4346 | return 2463 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4347:72: 4347 | 16911 continue 2464 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4348:72: 4348 | goto 16851 2465 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4349:72: 4349 | 16852 continue 2465 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4350:72: 4350 | goto 16761 2466 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4351:72: 4351 | 16762 continue 2466 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4352:72: 4352 | if(nin.gt.nx)goto 16742 2467 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4353:72: 4353 | w=q*exp(sign(min(abs(f),fmax),f)) 2467 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4354:72: 4354 | v0=sum(w) 2467 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4355:72: 4355 | wr=t-w 2468 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4356:72: 4356 | if(v0*(az-az0)**2 .ge. shr)goto 16931 2468 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4357:72: 4357 | ix=0 2469 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4358:72: 4358 | 16940 do 16941 j=1,nin 2469 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4359:72: 4359 | k=m(j) 2470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4360:72: 4360 | 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: 4361 | ix=1 2470 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4362:72: 4362 | goto 16942 2471 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4363:72: 4363 | 16941 continue 2472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4364:72: 4364 | 16942 continue 2472 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4365:72: 4365 | if(ix .ne. 0)goto 16961 2473 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4366:72: 4366 | 16970 do 16971 k=1,ni 2473 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4367:72: 4367 | if(ixx(k).eq.1)goto 16971 2473 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4368:72: 4368 | if(ju(k).eq.0)goto 16971 2474 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4369:72: 4369 | ga(k)=abs(dot_product(wr,x(:,k))) 2475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4370:72: 4370 | if(ga(k) .le. al1*vp(k))goto 16991 2475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4371:72: 4371 | ixx(k)=1 2475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4372:72: 4372 | ix=1 2475 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4373:72: 4373 | 16991 continue 2476 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4374:72: 4374 | 16971 continue 2477 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4375:72: 4375 | 16972 continue 2477 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4376:72: 4376 | if(ix.eq.1) go to 10680 2478 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4377:72: 4377 | goto 16742 2479 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4378:72: 4378 | 16961 continue 2480 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4379:72: 4379 | 16931 continue 2481 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4380:72: 4380 | goto 16741 2482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4381:72: 4381 | 16742 continue 2482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4382:72: 4382 | if(nin .le. nx)goto 17011 2482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4383:72: 4383 | jerr=-10000-ilm 2482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4384:72: 4384 | goto 16662 2482 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4385:72: 4385 | 17011 continue 2483 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4386:72: 4386 | 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: 4387 | kin(ilm)=nin 2484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4388:72: 4388 | a0(ilm)=az 2484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4389:72: 4389 | alm(ilm)=al 2484 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4390:72: 4390 | lmu=ilm 2485 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4391:72: 4391 | dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr 2486 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4392:72: 4392 | if(ilm.lt.mnl)goto 16661 2486 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4393:72: 4393 | if(flmin.ge.1.0)goto 16661 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4394:72: 4394 | me=0 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4395:72: 4395 | 17020 do 17021 j=1,nin 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4396:72: 4396 | if(ca(j,ilm).ne.0.0) me=me+1 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4397:72: 4397 | 17021 continue 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4398:72: 4398 | 17022 continue 2487 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4399:72: 4399 | if(me.gt.ne)goto 16662 2488 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4400:72: 4400 | 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: 4401 | if(dev(ilm).gt.devmax)goto 16662 2490 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4402:72: 4402 | 16661 continue 2491 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4403:72: 4403 | 16662 continue 2491 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4404:72: 4404 | g=f 2492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4405:72: 4405 | 11790 continue 2492 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4406:72: 4406 | deallocate(t,w,wr,v,a,f,as,mm,ga,ixx) 2493 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4407:72: 4407 | return 2494 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4408:72: 4408 | end 2495 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4409:72: 4409 | function nonzero(n,v) 2496 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4410:72: 4410 | real v(n) 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4411:72: 4411 | nonzero=0 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4412:72: 4412 | 17030 do 17031 i=1,n 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4413:72: 4413 | if(v(i) .eq. 0.0)goto 17051 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4414:72: 4414 | nonzero=1 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4415:72: 4415 | return 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4416:72: 4416 | 17051 continue 2497 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4417:72: 4417 | 17031 continue 2498 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4418:72: 4418 | 17032 continue 2498 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4419:72: 4419 | return 2499 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4420:72: 4420 | end 2500 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4421:72: 4421 | subroutine solns(ni,nx,lmu,a,ia,nin,b) 2501 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4422:72: 4422 | real a(nx,lmu),b(ni,lmu) 2501 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4423:72: 4423 | integer ia(nx),nin(lmu) 2502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4424:72: 4424 | 17060 do 17061 lam=1,lmu 2502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4425:72: 4425 | call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam)) 2502 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4426:72: 4426 | 17061 continue 2503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4427:72: 4427 | 17062 continue 2503 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4428:72: 4428 | return 2504 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4429:72: 4429 | end 2505 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4430:72: 4430 | subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b) 2506 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4431:72: 4431 | real a(nx,nc,lmu),b(ni,nc,lmu) 2506 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4432:72: 4432 | integer ia(nx),nin(lmu) 2507 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4433:72: 4433 | 17070 do 17071 lam=1,lmu 2507 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4434:72: 4434 | 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: 4435 | 17071 continue 2508 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4436:72: 4436 | 17072 continue 2508 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4437:72: 4437 | return 2509 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4438:72: 4438 | end 2510 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4439:72: 4439 | 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: 4440 | 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: 4442 | if(minval(y) .ge. 0.0)goto 17091 2515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4443:72: 4443 | jerr=8888 2515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4444:72: 4444 | return 2515 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4445:72: 4445 | 17091 continue 2516 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4446:72: 4446 | allocate(w(1:no),stat=jerr) 2516 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4447:72: 4447 | if(jerr.ne.0) return 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4448:72: 4448 | w=max(0.0,q) 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4449:72: 4449 | sw=sum(w) 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4450:72: 4450 | if(sw .gt. 0.0)goto 17111 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4451:72: 4451 | jerr=9999 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4452:72: 4452 | go to 11790 2517 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4453:72: 4453 | 17111 continue 2518 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4454:72: 4454 | yb=dot_product(w,y)/sw 2518 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4455:72: 4455 | fmax=log(huge(y(1))*0.1) 2519 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4456:72: 4456 | 17120 do 17121 lam=1,nlam 2519 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4457:72: 4457 | s=0.0 2520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4458:72: 4458 | 17130 do 17131 i=1,no 2520 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4459:72: 4459 | if(w(i).le.0.0)goto 17131 2521 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4460:72: 4460 | f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:)) 2522 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4461:72: 4461 | 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: 4462 | 17131 continue 2524 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4463:72: 4463 | 17132 continue 2524 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4464:72: 4464 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2525 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4465:72: 4465 | 17121 continue 2526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4466:72: 4466 | 17122 continue 2526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4467:72: 4467 | 11790 continue 2526 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4468:72: 4468 | deallocate(w) 2527 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4469:72: 4469 | return 2528 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4470:72: 4470 | end 2529 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4471:72: 4471 | 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: 4473 | 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: 4474 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2533 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4475:72: 4475 | integer ix(*),jx(*),jd(*),ia(nx),nin(nlam) 2534 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4478:72: 4478 | if(maxval(vp) .gt. 0.0)goto 17151 2538 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4479:72: 4479 | jerr=10000 2538 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4480:72: 4480 | return 2538 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4481:72: 4481 | 17151 continue 2539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4482:72: 4482 | if(minval(y) .ge. 0.0)goto 17171 2539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4483:72: 4483 | jerr=8888 2539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4484:72: 4484 | return 2539 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4485:72: 4485 | 17171 continue 2540 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4486:72: 4486 | allocate(ww(1:no),stat=jerr) 2541 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4487:72: 4487 | allocate(ju(1:ni),stat=ierr) 2541 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4488:72: 4488 | jerr=jerr+ierr 2542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4489:72: 4489 | allocate(vq(1:ni),stat=ierr) 2542 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4490:72: 4490 | jerr=jerr+ierr 2543 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4491:72: 4491 | allocate(xm(1:ni),stat=ierr) 2543 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4492:72: 4492 | jerr=jerr+ierr 2544 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4493:72: 4493 | allocate(xs(1:ni),stat=ierr) 2544 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4494:72: 4494 | jerr=jerr+ierr 2545 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4495:72: 4495 | if(jerr.ne.0) return 2546 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4496:72: 4496 | call spchkvars(no,ni,x,ix,ju) 2547 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4497:72: 4497 | 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: 4498 | if(maxval(ju) .gt. 0)goto 17191 2548 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4499:72: 4499 | jerr=7777 2548 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4500:72: 4500 | go to 11790 2548 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4501:72: 4501 | 17191 continue 2549 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4502:72: 4502 | vq=max(0.0,vp) 2549 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4503:72: 4503 | vq=vq*ni/sum(vq) 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4504:72: 4504 | ww=max(0.0,w) 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4505:72: 4505 | sw=sum(ww) 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4506:72: 4506 | if(sw .gt. 0.0)goto 17211 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4507:72: 4507 | jerr=9999 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4508:72: 4508 | go to 11790 2550 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4509:72: 4509 | 17211 continue 2551 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4510:72: 4510 | ww=ww/sw 2552 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4511:72: 4511 | 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: 4512 | 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: 4514 | if(jerr.gt.0) go to 11790 2555 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4515:72: 4515 | dev0=2.0*sw*dev0 2556 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4516:72: 4516 | 17220 do 17221 k=1,lmu 2556 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4517:72: 4517 | nk=nin(k) 2557 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4518:72: 4518 | 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: 4519 | 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: 4520 | 17221 continue 2560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4521:72: 4521 | 17222 continue 2560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4522:72: 4522 | 11790 continue 2560 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4523:72: 4523 | deallocate(ww,ju,vq,xm,xs) 2561 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4524:72: 4524 | return 2562 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4525:72: 4525 | end 2563 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4526:72: 4526 | 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: 4529 | 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: 4531 | 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: 4532 | real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam) 2568 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4533:72: 4533 | integer ix(*),jx(*),ju(ni),m(nx),kin(nlam) 2569 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4536:72: 4536 | allocate(a(1:ni),stat=jerr) 2574 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4537:72: 4537 | allocate(as(1:ni),stat=ierr) 2574 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4538:72: 4538 | jerr=jerr+ierr 2575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4539:72: 4539 | allocate(t(1:no),stat=ierr) 2575 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4540:72: 4540 | jerr=jerr+ierr 2576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4541:72: 4541 | allocate(mm(1:ni),stat=ierr) 2576 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4542:72: 4542 | jerr=jerr+ierr 2577 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4543:72: 4543 | allocate(ga(1:ni),stat=ierr) 2577 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4544:72: 4544 | jerr=jerr+ierr 2578 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4545:72: 4545 | allocate(ixx(1:ni),stat=ierr) 2578 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4546:72: 4546 | jerr=jerr+ierr 2579 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4547:72: 4547 | allocate(wr(1:no),stat=ierr) 2579 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4548:72: 4548 | jerr=jerr+ierr 2580 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4549:72: 4549 | allocate(v(1:ni),stat=ierr) 2580 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4550:72: 4550 | jerr=jerr+ierr 2581 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4551:72: 4551 | allocate(xm(1:ni),stat=ierr) 2581 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4552:72: 4552 | jerr=jerr+ierr 2582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4553:72: 4553 | allocate(w(1:no),stat=ierr) 2582 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4554:72: 4554 | jerr=jerr+ierr 2583 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4555:72: 4555 | allocate(qy(1:no),stat=ierr) 2583 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4556:72: 4556 | jerr=jerr+ierr 2584 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4557:72: 4557 | if(jerr.ne.0) return 2585 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4558:72: 4558 | bta=parm 2585 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4559:72: 4559 | omb=1.0-bta 2585 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4560:72: 4560 | fmax=log(huge(bta)*0.1) 2586 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4561:72: 4561 | qy=q*y 2586 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4562:72: 4562 | yb=sum(qy) 2587 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4563:72: 4563 | if(nonzero(no,g) .ne. 0)goto 17241 2587 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4564:72: 4564 | w=q*yb 2587 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4565:72: 4565 | az=log(yb) 2587 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4566:72: 4566 | uu=az 2588 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4567:72: 4567 | xm=yb*xb 2588 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4568:72: 4568 | t=0.0 2588 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4569:72: 4569 | dv0=yb*(log(yb)-1.0) 2589 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4570:72: 4570 | goto 17251 2590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4571:72: 4571 | 17241 continue 2590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4572:72: 4572 | w=q*exp(sign(min(abs(g),fmax),g)) 2590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4573:72: 4573 | ww=sum(w) 2590 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4574:72: 4574 | eaz=yb/ww 2591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4575:72: 4575 | w=eaz*w 2591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4576:72: 4576 | az=log(eaz) 2591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4577:72: 4577 | uu=az 2591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4578:72: 4578 | t=g 2591 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4579:72: 4579 | dv0=dot_product(qy,g)-yb*(1.0-az) 2592 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4580:72: 4580 | 17260 do 17261 j=1,ni 2592 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4581:72: 4581 | if(ju(j).eq.0)goto 17261 2592 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4582:72: 4582 | jb=ix(j) 2592 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4583:72: 4583 | je=ix(j+1)-1 2593 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4584:72: 4584 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2594 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4585:72: 4585 | 17261 continue 2595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4586:72: 4586 | 17262 continue 2595 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4587:72: 4587 | 17251 continue 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4588:72: 4588 | 17231 continue 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4589:72: 4589 | tt=yb*uu 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4590:72: 4590 | ww=yb 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4591:72: 4591 | wr=qy-q*(yb*(1.0-uu)) 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4592:72: 4592 | a=0.0 2596 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4593:72: 4593 | as=0.0 2597 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4594:72: 4594 | dvr=-yb 2598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4595:72: 4595 | 17270 do 17271 i=1,no 2598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4596:72: 4596 | 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: 4597 | 17271 continue 2598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4598:72: 4598 | 17272 continue 2598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4599:72: 4599 | dvr=dvr-dv0 2598 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4600:72: 4600 | dev0=dvr 2599 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4601:72: 4601 | if(flmin .ge. 1.0)goto 17291 2599 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4602:72: 4602 | eqs=max(eps,flmin) 2599 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4603:72: 4603 | alf=eqs**(1.0/(nlam-1)) 2599 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4604:72: 4604 | 17291 continue 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4605:72: 4605 | m=0 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4606:72: 4606 | mm=0 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4607:72: 4607 | nlp=0 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4608:72: 4608 | nin=nlp 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4609:72: 4609 | mnl=min(mnlam,nlam) 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4610:72: 4610 | shr=shri*dev0 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4611:72: 4611 | al=0.0 2600 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4612:72: 4612 | ixx=0 2601 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4613:72: 4613 | 17300 do 17301 j=1,ni 2601 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4614:72: 4614 | if(ju(j).eq.0)goto 17301 2602 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4615:72: 4615 | jb=ix(j) 2602 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4616:72: 4616 | je=ix(j+1)-1 2603 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4617:72: 4617 | 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: 4619 | 17301 continue 2606 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4620:72: 4620 | 17302 continue 2606 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4621:72: 4621 | 17310 do 17311 ilm=1,nlam 2606 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4622:72: 4622 | al0=al 2607 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4623:72: 4623 | if(flmin .lt. 1.0)goto 17331 2607 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4624:72: 4624 | al=ulam(ilm) 2607 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4625:72: 4625 | goto 17321 2608 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4626:72: 4626 | 17331 if(ilm .le. 2)goto 17341 2608 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4627:72: 4627 | al=al*alf 2608 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4628:72: 4628 | goto 17321 2609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4629:72: 4629 | 17341 if(ilm .ne. 1)goto 17351 2609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4630:72: 4630 | al=big 2609 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4631:72: 4631 | goto 17361 2610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4632:72: 4632 | 17351 continue 2610 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4633:72: 4633 | al0=0.0 2611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4634:72: 4634 | 17370 do 17371 j=1,ni 2611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4635:72: 4635 | if(ju(j).eq.0)goto 17371 2611 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4636:72: 4636 | 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: 4637 | 17371 continue 2612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4638:72: 4638 | 17372 continue 2612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4639:72: 4639 | al0=al0/max(bta,1.0e-3) 2612 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4640:72: 4640 | al=alf*al0 2613 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4641:72: 4641 | 17361 continue 2614 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4642:72: 4642 | 17321 continue 2614 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4643:72: 4643 | al2=al*omb 2614 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4644:72: 4644 | al1=al*bta 2614 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4645:72: 4645 | tlam=bta*(2.0*al-al0) 2615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4646:72: 4646 | 17380 do 17381 k=1,ni 2615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4647:72: 4647 | if(ixx(k).eq.1)goto 17381 2615 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4648:72: 4648 | if(ju(k).eq.0)goto 17381 2616 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4649:72: 4649 | if(ga(k).gt.tlam*vp(k)) ixx(k)=1 2617 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4650:72: 4650 | 17381 continue 2618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4651:72: 4651 | 17382 continue 2618 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4652:72: 4652 | 10680 continue 2619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4653:72: 4653 | 17390 continue 2619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4654:72: 4654 | 17391 continue 2619 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4655:72: 4655 | az0=az 2620 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4656:72: 4656 | 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: 4657 | 17400 do 17401 j=1,ni 2621 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4658:72: 4658 | if(ixx(j).eq.0)goto 17401 2621 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4659:72: 4659 | jb=ix(j) 2621 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4660:72: 4660 | je=ix(j+1)-1 2622 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4661:72: 4661 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2623 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4662:72: 4662 | 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: 4664 | 17401 continue 2626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4665:72: 4665 | 17402 continue 2626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4666:72: 4666 | 17410 continue 2626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4667:72: 4667 | 17411 continue 2626 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4668:72: 4668 | nlp=nlp+1 2627 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4669:72: 4669 | dlx=0.0 2628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4670:72: 4670 | 17420 do 17421 k=1,ni 2628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4671:72: 4671 | if(ixx(k).eq.0)goto 17421 2628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4672:72: 4672 | jb=ix(k) 2628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4673:72: 4673 | je=ix(k+1)-1 2628 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4674:72: 4674 | ak=a(k) 2629 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4675:72: 4675 | 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: 4677 | au=abs(u)-vp(k)*al1 2632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4678:72: 4678 | if(au .gt. 0.0)goto 17441 2632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4679:72: 4679 | a(k)=0.0 2632 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4680:72: 4680 | goto 17451 2633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4681:72: 4681 | 17441 continue 2633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4682:72: 4682 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2633 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4683:72: 4683 | 17451 continue 2634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4684:72: 4684 | 17431 continue 2634 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4685:72: 4685 | if(a(k).eq.ak)goto 17421 2635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4686:72: 4686 | if(mm(k) .ne. 0)goto 17471 2635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4687:72: 4687 | nin=nin+1 2635 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4688:72: 4688 | if(nin.gt.nx)goto 17422 2636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4689:72: 4689 | mm(k)=nin 2636 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4690:72: 4690 | m(nin)=k 2637 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4691:72: 4691 | 17471 continue 2638 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4692:72: 4692 | d=a(k)-ak 2638 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4693:72: 4693 | dlx=max(dlx,v(k)*d**2) 2638 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4694:72: 4694 | dv=d/xs(k) 2639 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4695:72: 4695 | 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: 4696 | 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: 4697 | uu=uu-dv*xb(k) 2641 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4698:72: 4698 | tt=tt-dv*xm(k) 2642 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4699:72: 4699 | 17421 continue 2643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4700:72: 4700 | 17422 continue 2643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4701:72: 4701 | if(nin.gt.nx)goto 17412 2643 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4702:72: 4702 | d=tt/ww-uu 2644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4703:72: 4703 | az=az+d 2644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4704:72: 4704 | dlx=max(dlx,ww*d**2) 2644 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4705:72: 4705 | uu=uu+d 2645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4706:72: 4706 | if(dlx.lt.shr)goto 17412 2645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4707:72: 4707 | if(nlp .le. maxit)goto 17491 2645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4708:72: 4708 | jerr=-ilm 2645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4709:72: 4709 | return 2645 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4710:72: 4710 | 17491 continue 2646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4711:72: 4711 | 17500 continue 2646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4712:72: 4712 | 17501 continue 2646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4713:72: 4713 | nlp=nlp+1 2646 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4714:72: 4714 | dlx=0.0 2647 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4715:72: 4715 | 17510 do 17511 l=1,nin 2647 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4716:72: 4716 | k=m(l) 2648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4717:72: 4717 | jb=ix(k) 2648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4718:72: 4718 | je=ix(k+1)-1 2648 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4719:72: 4719 | ak=a(k) 2649 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4720:72: 4720 | 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: 4722 | au=abs(u)-vp(k)*al1 2652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4723:72: 4723 | if(au .gt. 0.0)goto 17531 2652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4724:72: 4724 | a(k)=0.0 2652 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4725:72: 4725 | goto 17541 2653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4726:72: 4726 | 17531 continue 2653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4727:72: 4727 | a(k)=sign(au,u)/(v(k)+vp(k)*al2) 2653 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4728:72: 4728 | 17541 continue 2654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4729:72: 4729 | 17521 continue 2654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4730:72: 4730 | if(a(k).eq.ak)goto 17511 2654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4731:72: 4731 | d=a(k)-ak 2654 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4732:72: 4732 | dlx=max(dlx,v(k)*d**2) 2655 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4733:72: 4733 | dv=d/xs(k) 2655 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4734:72: 4734 | 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: 4735 | 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: 4736 | uu=uu-dv*xb(k) 2657 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4737:72: 4737 | tt=tt-dv*xm(k) 2658 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4738:72: 4738 | 17511 continue 2659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4739:72: 4739 | 17512 continue 2659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4740:72: 4740 | d=tt/ww-uu 2659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4741:72: 4741 | az=az+d 2659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4742:72: 4742 | dlx=max(dlx,ww*d**2) 2659 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4743:72: 4743 | uu=uu+d 2660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4744:72: 4744 | if(dlx.lt.shr)goto 17502 2660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4745:72: 4745 | if(nlp .le. maxit)goto 17561 2660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4746:72: 4746 | jerr=-ilm 2660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4747:72: 4747 | return 2660 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4748:72: 4748 | 17561 continue 2661 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4749:72: 4749 | goto 17501 2662 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4750:72: 4750 | 17502 continue 2662 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4751:72: 4751 | goto 17411 2663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4752:72: 4752 | 17412 continue 2663 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4753:72: 4753 | if(nin.gt.nx)goto 17392 2664 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4754:72: 4754 | euu=exp(sign(min(abs(uu),fmax),uu)) 2665 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4755:72: 4755 | w=euu*q*exp(sign(min(abs(t),fmax),t)) 2665 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4756:72: 4756 | ww=sum(w) 2666 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4757:72: 4757 | wr=qy-w*(1.0-uu) 2666 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4758:72: 4758 | tt=sum(wr) 2667 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4759:72: 4759 | if(ww*(az-az0)**2 .ge. shr)goto 17581 2667 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4760:72: 4760 | kx=0 2668 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4761:72: 4761 | 17590 do 17591 j=1,nin 2668 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4762:72: 4762 | k=m(j) 2669 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4763:72: 4763 | 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: 4764 | kx=1 2669 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4765:72: 4765 | goto 17592 2670 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4766:72: 4766 | 17591 continue 2671 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4767:72: 4767 | 17592 continue 2671 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4768:72: 4768 | if(kx .ne. 0)goto 17611 2672 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4769:72: 4769 | 17620 do 17621 j=1,ni 2672 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4770:72: 4770 | if(ixx(j).eq.1)goto 17621 2672 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4771:72: 4771 | if(ju(j).eq.0)goto 17621 2673 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4772:72: 4772 | jb=ix(j) 2673 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4773:72: 4773 | je=ix(j+1)-1 2674 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4774:72: 4774 | xm(j)=dot_product(w(jx(jb:je)),x(jb:je)) 2675 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4775:72: 4775 | 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: 4777 | if(ga(j) .le. al1*vp(j))goto 17641 2677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4778:72: 4778 | ixx(j)=1 2677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4779:72: 4779 | kx=1 2677 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4780:72: 4780 | 17641 continue 2678 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4781:72: 4781 | 17621 continue 2679 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4782:72: 4782 | 17622 continue 2679 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4783:72: 4783 | if(kx.eq.1) go to 10680 2680 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4784:72: 4784 | goto 17392 2681 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4785:72: 4785 | 17611 continue 2682 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4786:72: 4786 | 17581 continue 2683 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4787:72: 4787 | goto 17391 2684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4788:72: 4788 | 17392 continue 2684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4789:72: 4789 | if(nin .le. nx)goto 17661 2684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4790:72: 4790 | jerr=-10000-ilm 2684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4791:72: 4791 | goto 17312 2684 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4792:72: 4792 | 17661 continue 2685 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4793:72: 4793 | 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: 4794 | kin(ilm)=nin 2686 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4795:72: 4795 | a0(ilm)=az 2686 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4796:72: 4796 | alm(ilm)=al 2686 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4797:72: 4797 | lmu=ilm 2687 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4798:72: 4798 | dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr 2688 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4799:72: 4799 | if(ilm.lt.mnl)goto 17311 2688 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4800:72: 4800 | if(flmin.ge.1.0)goto 17311 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4801:72: 4801 | me=0 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4802:72: 4802 | 17670 do 17671 j=1,nin 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4803:72: 4803 | if(ca(j,ilm).ne.0.0) me=me+1 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4804:72: 4804 | 17671 continue 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4805:72: 4805 | 17672 continue 2689 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4806:72: 4806 | if(me.gt.ne)goto 17312 2690 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4807:72: 4807 | 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: 4808 | if(dev(ilm).gt.devmax)goto 17312 2692 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4809:72: 4809 | 17311 continue 2693 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4810:72: 4810 | 17312 continue 2693 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4811:72: 4811 | g=t+uu 2694 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4812:72: 4812 | 11790 continue 2694 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4813:72: 4813 | 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: 4814 | return 2696 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4815:72: 4815 | end 2697 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4816:72: 4816 | 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: 4817 | 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: 4818 | integer ix(*),jx(*) 2700 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4820:72: 4820 | if(minval(y) .ge. 0.0)goto 17691 2703 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4821:72: 4821 | jerr=8888 2703 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4822:72: 4822 | return 2703 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4823:72: 4823 | 17691 continue 2704 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4824:72: 4824 | allocate(w(1:no),stat=jerr) 2705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4825:72: 4825 | allocate(f(1:no),stat=ierr) 2705 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4826:72: 4826 | jerr=jerr+ierr 2706 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4827:72: 4827 | if(jerr.ne.0) return 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4828:72: 4828 | w=max(0.0,q) 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4829:72: 4829 | sw=sum(w) 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4830:72: 4830 | if(sw .gt. 0.0)goto 17711 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4831:72: 4831 | jerr=9999 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4832:72: 4832 | go to 11790 2707 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4833:72: 4833 | 17711 continue 2708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4834:72: 4834 | yb=dot_product(w,y)/sw 2708 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4835:72: 4835 | fmax=log(huge(y(1))*0.1) 2709 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4836:72: 4836 | 17720 do 17721 lam=1,nlam 2709 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4837:72: 4837 | f=a0(lam) 2710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4838:72: 4838 | 17730 do 17731 j=1,ni 2710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4839:72: 4839 | if(a(j,lam).eq.0.0)goto 17731 2710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4840:72: 4840 | jb=ix(j) 2710 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4841:72: 4841 | je=ix(j+1)-1 2711 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4842:72: 4842 | 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: 4843 | 17731 continue 2713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4844:72: 4844 | 17732 continue 2713 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4845:72: 4845 | f=f+g 2714 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4846:72: 4846 | 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: 4847 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2716 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4848:72: 4848 | 17721 continue 2717 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4849:72: 4849 | 17722 continue 2717 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4850:72: 4850 | 11790 continue 2717 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4851:72: 4851 | deallocate(w,f) 2718 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4852:72: 4852 | return 2719 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4853:72: 4853 | end 2720 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4854:72: 4854 | 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: 4856 | 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: 4857 | integer ix(*),jx(*),nin(nlam),ia(nx) 2723 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4859:72: 4859 | if(minval(y) .ge. 0.0)goto 17751 2726 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4860:72: 4860 | jerr=8888 2726 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4861:72: 4861 | return 2726 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4862:72: 4862 | 17751 continue 2727 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4863:72: 4863 | allocate(w(1:no),stat=jerr) 2728 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4864:72: 4864 | allocate(f(1:no),stat=ierr) 2728 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4865:72: 4865 | jerr=jerr+ierr 2729 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4866:72: 4866 | if(jerr.ne.0) return 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4867:72: 4867 | w=max(0.0,q) 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4868:72: 4868 | sw=sum(w) 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4869:72: 4869 | if(sw .gt. 0.0)goto 17771 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4870:72: 4870 | jerr=9999 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4871:72: 4871 | go to 11790 2730 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4872:72: 4872 | 17771 continue 2731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4873:72: 4873 | yb=dot_product(w,y)/sw 2731 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4874:72: 4874 | fmax=log(huge(y(1))*0.1) 2732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4875:72: 4875 | 17780 do 17781 lam=1,nlam 2732 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4876:72: 4876 | f=a0(lam) 2733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4877:72: 4877 | 17790 do 17791 k=1,nin(lam) 2733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4878:72: 4878 | j=ia(k) 2733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4879:72: 4879 | jb=ix(j) 2733 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4880:72: 4880 | je=ix(j+1)-1 2734 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4881:72: 4881 | 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: 4882 | 17791 continue 2736 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4883:72: 4883 | 17792 continue 2736 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4884:72: 4884 | f=f+g 2737 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4885:72: 4885 | 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: 4886 | flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s) 2739 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4887:72: 4887 | 17781 continue 2740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4888:72: 4888 | 17782 continue 2740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4889:72: 4889 | 11790 continue 2740 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4890:72: 4890 | deallocate(w,f) 2741 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4891:72: 4891 | return 2742 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:4892:72: 4892 | end 2743 | 1 Warning: Line truncated at (1) [-Wline-truncation] newGLMnet.f90:541:5: 541 | 10031 continue 628 | 1 Warning: Label 10031 at (1) defined but not used [-Wunused-label] newGLMnet.f90:582:5: 582 | 10092 continue 659 | 1 Warning: Label 10092 at (1) defined but not used [-Wunused-label] newGLMnet.f90:579:5: 579 | 10090 do 10091 l=1,nk 658 | 1 Warning: Label 10090 at (1) defined but not used [-Wunused-label] newGLMnet.f90:585:5: 585 | 10082 continue 661 | 1 Warning: Label 10082 at (1) defined but not used [-Wunused-label] newGLMnet.f90:576:5: 576 | 10080 do 10081 k=1,lmu 657 | 1 Warning: Label 10080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1051:5: 1051 | 10870 do 10871 i=2,no 890 | 1 Warning: Label 10870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1058:5: 1058 | 10862 continue 892 | 1 Warning: Label 10862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1048:5: 1048 | 10860 do 10861 j=1,ni 889 | 1 Warning: Label 10860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:625:5: 625 | 10152 continue 682 | 1 Warning: Label 10152 at (1) defined but not used [-Wunused-label] newGLMnet.f90:622:5: 622 | 10150 do 10151 j=1,ni 681 | 1 Warning: Label 10150 at (1) defined but not used [-Wunused-label] newGLMnet.f90:613:5: 613 | 10142 continue 678 | 1 Warning: Label 10142 at (1) defined but not used [-Wunused-label] newGLMnet.f90:609:5: 609 | 10140 do 10141 j=1,ni 677 | 1 Warning: Label 10140 at (1) defined but not used [-Wunused-label] newGLMnet.f90:616:5: 616 | 10111 continue 680 | 1 Warning: Label 10111 at (1) defined but not used [-Wunused-label] newGLMnet.f90:604:5: 604 | 10102 continue 675 | 1 Warning: Label 10102 at (1) defined but not used [-Wunused-label] newGLMnet.f90:597:5: 597 | 10100 do 10101 j=1,ni 671 | 1 Warning: Label 10100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:787:5: 787 | 10462 continue 755 | 1 Warning: Label 10462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:784:5: 784 | 10460 do 10461 j=1,nin 755 | 1 Warning: Label 10460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:768:5: 768 | 10432 continue 749 | 1 Warning: Label 10432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:764:5: 764 | 10430 do 10431 j=1,ni 746 | 1 Warning: Label 10430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:753:5: 753 | 10402 continue 742 | 1 Warning: Label 10402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:750:5: 750 | 10400 do 10401 j=1,nin 741 | 1 Warning: Label 10400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:755:5: 755 | 10392 continue 743 | 1 Warning: Label 10392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:739:5: 739 | 10390 do 10391 l=1,nin 735 | 1 Warning: Label 10390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:735:5: 735 | 10380 continue 734 | 1 Warning: Label 10380 at (1) defined but not used [-Wunused-label] newGLMnet.f90:723:5: 723 | 10352 continue 730 | 1 Warning: Label 10352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:720:5: 720 | 10350 do 10351 j=1,ni 729 | 1 Warning: Label 10350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:713:5: 713 | 10302 continue 725 | 1 Warning: Label 10302 at (1) defined but not used [-Wunused-label] newGLMnet.f90:701:5: 701 | 10300 do 10301 j=1,ni 720 | 1 Warning: Label 10300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:690:5: 690 | 10270 do 10271 k=1,ni 715 | 1 Warning: Label 10270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:685:5: 685 | 10250 continue 714 | 1 Warning: Label 10250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:677:5: 677 | 10242 continue 711 | 1 Warning: Label 10242 at (1) defined but not used [-Wunused-label] newGLMnet.f90:672:5: 672 | 10240 do 10241 j=1,ni 708 | 1 Warning: Label 10240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:660:5: 660 | 10180 do 10181 m=1,nlam 704 | 1 Warning: Label 10180 at (1) defined but not used [-Wunused-label] newGLMnet.f90:831:5: 831 | 10502 continue 787 | 1 Warning: Label 10502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:828:5: 828 | 10500 do 10501 l=1,nk 786 | 1 Warning: Label 10500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:834:5: 834 | 10492 continue 789 | 1 Warning: Label 10492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:825:5: 825 | 10490 do 10491 k=1,lmu 785 | 1 Warning: Label 10490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:862:5: 862 | 10552 continue 805 | 1 Warning: Label 10552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:858:5: 858 | 10550 do 10551 j=1,ni 804 | 1 Warning: Label 10550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:865:5: 865 | 10521 continue 807 | 1 Warning: Label 10521 at (1) defined but not used [-Wunused-label] newGLMnet.f90:853:5: 853 | 10512 continue 803 | 1 Warning: Label 10512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:846:5: 846 | 10510 do 10511 j=1,ni 799 | 1 Warning: Label 10510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1036:5: 1036 | 10852 continue 881 | 1 Warning: Label 10852 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1033:5: 1033 | 10850 do 10851 j=1,nin 881 | 1 Warning: Label 10850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1010:5: 1010 | 10802 continue 873 | 1 Warning: Label 10802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:996:5: 996 | 10800 do 10801 l=1,nin 866 | 1 Warning: Label 10800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:992:5: 992 | 10790 continue 865 | 1 Warning: Label 10790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:982:5: 982 | 10742 continue 860 | 1 Warning: Label 10742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:973:5: 973 | 10740 do 10741 k=1,ni 856 | 1 Warning: Label 10740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:949:5: 949 | 10690 do 10691 k=1,ni 844 | 1 Warning: Label 10690 at (1) defined but not used [-Wunused-label] newGLMnet.f90:943:5: 943 | 10670 continue 842 | 1 Warning: Label 10670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:942:5: 942 | 10662 continue 842 | 1 Warning: Label 10662 at (1) defined but not used [-Wunused-label] newGLMnet.f90:937:5: 937 | 10660 do 10661 k=1,ni 839 | 1 Warning: Label 10660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:927:5: 927 | 10652 continue 835 | 1 Warning: Label 10652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:923:5: 923 | 10650 do 10651 j=1,ni 834 | 1 Warning: Label 10650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:910:5: 910 | 10590 do 10591 m=1,nlam 829 | 1 Warning: Label 10590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:909:5: 909 | 10582 continue 829 | 1 Warning: Label 10582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:905:5: 905 | 10580 do 10581 j=1,ni 828 | 1 Warning: Label 10580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1076:5: 1076 | 10882 continue 903 | 1 Warning: Label 10882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1073:5: 1073 | 10880 do 10881 i=1,n 902 | 1 Warning: Label 10880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1101:5: 1101 | 10911 continue 927 | 1 Warning: Label 10911 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1142:5: 1142 | 10972 continue 958 | 1 Warning: Label 10972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1139:5: 1139 | 10970 do 10971 l=1,nk 957 | 1 Warning: Label 10970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1145:5: 1145 | 10962 continue 960 | 1 Warning: Label 10962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1136:5: 1136 | 10960 do 10961 k=1,lmu 956 | 1 Warning: Label 10960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1622:5: 1622 | 11750 do 11751 i=jb+1,je 1189 | 1 Warning: Label 11750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1613:5: 1613 | 11730 do 11731 i=jb,je 1188 | 1 Warning: Label 11730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1629:5: 1629 | 11711 continue 1190 | 1 Warning: Label 11711 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1631:5: 1631 | 11702 continue 1191 | 1 Warning: Label 11702 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1606:5: 1606 | 11700 do 11701 j=1,ni 1186 | 1 Warning: Label 11700 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1181:5: 1181 | 11022 continue 976 | 1 Warning: Label 11022 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1175:5: 1175 | 11020 do 11021 j=1,ni 973 | 1 Warning: Label 11020 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1169:5: 1169 | 10991 continue 972 | 1 Warning: Label 10991 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1162:5: 1162 | 10982 continue 971 | 1 Warning: Label 10982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1154:5: 1154 | 10980 do 10981 j=1,ni 966 | 1 Warning: Label 10980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1342:5: 1342 | 11322 continue 1050 | 1 Warning: Label 11322 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1339:5: 1339 | 11320 do 11321 j=1,nin 1050 | 1 Warning: Label 11320 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1323:5: 1323 | 11292 continue 1044 | 1 Warning: Label 11292 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1319:5: 1319 | 11290 do 11291 j=1,ni 1041 | 1 Warning: Label 11290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1308:5: 1308 | 11262 continue 1037 | 1 Warning: Label 11262 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1305:5: 1305 | 11260 do 11261 j=1,nin 1036 | 1 Warning: Label 11260 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1310:5: 1310 | 11252 continue 1038 | 1 Warning: Label 11252 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1294:5: 1294 | 11250 do 11251 l=1,nin 1030 | 1 Warning: Label 11250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1290:5: 1290 | 11240 continue 1029 | 1 Warning: Label 11240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1278:5: 1278 | 11212 continue 1025 | 1 Warning: Label 11212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1275:5: 1275 | 11210 do 11211 j=1,ni 1024 | 1 Warning: Label 11210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1268:5: 1268 | 11162 continue 1020 | 1 Warning: Label 11162 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1256:5: 1256 | 11160 do 11161 j=1,ni 1014 | 1 Warning: Label 11160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1245:5: 1245 | 11130 do 11131 k=1,ni 1009 | 1 Warning: Label 11130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1240:5: 1240 | 11120 continue 1008 | 1 Warning: Label 11120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1232:5: 1232 | 11112 continue 1005 | 1 Warning: Label 11112 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1227:5: 1227 | 11110 do 11111 j=1,ni 1002 | 1 Warning: Label 11110 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1215:5: 1215 | 11050 do 11051 m=1,nlam 998 | 1 Warning: Label 11050 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1669:5: 1669 | 11810 continue 1213 | 1 Warning: Label 11810 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1662:5: 1662 | 11780 continue 1211 | 1 Warning: Label 11780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1660:5: 1660 | 11770 continue 1210 | 1 Warning: Label 11770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1386:5: 1386 | 11362 continue 1082 | 1 Warning: Label 11362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1383:5: 1383 | 11360 do 11361 l=1,nk 1081 | 1 Warning: Label 11360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1389:5: 1389 | 11352 continue 1084 | 1 Warning: Label 11352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1380:5: 1380 | 11350 do 11351 k=1,lmu 1080 | 1 Warning: Label 11350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1413:5: 1413 | 11381 continue 1096 | 1 Warning: Label 11381 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1406:5: 1406 | 11372 continue 1095 | 1 Warning: Label 11372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1398:5: 1398 | 11370 do 11371 j=1,ni 1090 | 1 Warning: Label 11370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1594:5: 1594 | 11692 continue 1178 | 1 Warning: Label 11692 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1591:5: 1591 | 11690 do 11691 j=1,nin 1178 | 1 Warning: Label 11690 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1568:5: 1568 | 11642 continue 1170 | 1 Warning: Label 11642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1551:5: 1551 | 11640 do 11641 l=1,nin 1161 | 1 Warning: Label 11640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1547:5: 1547 | 11630 continue 1160 | 1 Warning: Label 11630 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1537:5: 1537 | 11582 continue 1155 | 1 Warning: Label 11582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1526:5: 1526 | 11580 do 11581 j=1,ni 1150 | 1 Warning: Label 11580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1499:5: 1499 | 11530 do 11531 k=1,ni 1136 | 1 Warning: Label 11530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1493:5: 1493 | 11520 continue 1134 | 1 Warning: Label 11520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1492:5: 1492 | 11512 continue 1134 | 1 Warning: Label 11512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1487:5: 1487 | 11510 do 11511 k=1,ni 1131 | 1 Warning: Label 11510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1477:5: 1477 | 11502 continue 1127 | 1 Warning: Label 11502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1473:5: 1473 | 11500 do 11501 j=1,ni 1126 | 1 Warning: Label 11500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1460:5: 1460 | 11440 do 11441 m=1,nlam 1121 | 1 Warning: Label 11440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1459:5: 1459 | 11432 continue 1121 | 1 Warning: Label 11432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1453:5: 1453 | 11430 do 11431 j=1,ni 1117 | 1 Warning: Label 11430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1644:5: 1644 | 11762 continue 1199 | 1 Warning: Label 11762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1638:5: 1638 | 11760 do 11761 j=1,nin 1196 | 1 Warning: Label 11760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1746:5: 1746 | 11962 continue 1253 | 1 Warning: Label 11962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1743:5: 1743 | 11960 do 11961 l=1,nk 1253 | 1 Warning: Label 11960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1750:5: 1750 | 11932 continue 1256 | 1 Warning: Label 11932 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1741:5: 1741 | 11930 do 11931 ic=1,nc 1253 | 1 Warning: Label 11930 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1752:5: 1752 | 11922 continue 1257 | 1 Warning: Label 11922 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1739:5: 1739 | 11920 do 11921 k=1,lmu 1252 | 1 Warning: Label 11920 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1736:5: 1736 | 11891 continue 1251 | 1 Warning: Label 11891 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1724:5: 1724 | 11882 continue 1241 | 1 Warning: Label 11882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1720:5: 1720 | 11880 do 11881 i=1,no 1241 | 1 Warning: Label 11880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1769:5: 1769 | 11972 continue 1266 | 1 Warning: Label 11972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1760:5: 1760 | 11970 do 11971 j=1,ni 1262 | 1 Warning: Label 11970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2055:5: 2055 | 12642 continue 1387 | 1 Warning: Label 12642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2052:5: 2052 | 12640 do 12641 j=1,nin 1387 | 1 Warning: Label 12640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2030:5: 2030 | 12592 continue 1376 | 1 Warning: Label 12592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2021:5: 2021 | 12590 do 12591 k=1,ni 1372 | 1 Warning: Label 12590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2013:5: 2013 | 12560 do 12561 j=1,nin 1368 | 1 Warning: Label 12560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2006:5: 2006 | 12492 continue 1366 | 1 Warning: Label 12492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1992:5: 1992 | 12490 do 12491 i=1,no 1361 | 1 Warning: Label 12490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1969:5: 1969 | 12421 continue 1352 | 1 Warning: Label 12421 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1975:5: 1975 | 12412 continue 1355 | 1 Warning: Label 12412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1957:5: 1957 | 12410 do 12411 l=1,nin 1347 | 1 Warning: Label 12410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1953:5: 1953 | 12400 continue 1346 | 1 Warning: Label 12400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1928:5: 1928 | 12311 continue 1336 | 1 Warning: Label 12311 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1916:5: 1916 | 12300 do 12301 k=1,ni 1331 | 1 Warning: Label 12300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1912:5: 1912 | 12290 continue 1330 | 1 Warning: Label 12290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1910:5: 1910 | 12282 continue 1329 | 1 Warning: Label 12282 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1907:5: 1907 | 12280 do 12281 j=1,ni 1328 | 1 Warning: Label 12280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1902:5: 1902 | 12250 continue 1326 | 1 Warning: Label 12250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1900:5: 1900 | 12242 continue 1325 | 1 Warning: Label 12242 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1895:5: 1895 | 12240 do 12241 k=1,ni 1322 | 1 Warning: Label 12240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1887:5: 1887 | 12232 continue 1319 | 1 Warning: Label 12232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1883:5: 1883 | 12230 do 12231 j=1,ni 1318 | 1 Warning: Label 12230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1870:5: 1870 | 12170 do 12171 ilm=1,nlam 1313 | 1 Warning: Label 12170 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1869:5: 1869 | 12162 continue 1313 | 1 Warning: Label 12162 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1865:5: 1865 | 12160 do 12161 j=1,ni 1312 | 1 Warning: Label 12160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1852:5: 1852 | 12132 continue 1309 | 1 Warning: Label 12132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1848:5: 1848 | 12130 do 12131 i=1,no 1306 | 1 Warning: Label 12130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1843:5: 1843 | 12122 continue 1303 | 1 Warning: Label 12122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1840:5: 1840 | 12120 do 12121 j=1,ni 1303 | 1 Warning: Label 12120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1845:5: 1845 | 12091 continue 1304 | 1 Warning: Label 12091 at (1) defined but not used [-Wunused-label] newGLMnet.f90:1834:5: 1834 | 12041 continue 1301 | 1 Warning: Label 12041 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4418:5: 4418 | 17032 continue 2498 | 1 Warning: Label 17032 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4412:5: 4412 | 17030 do 17031 i=1,n 2497 | 1 Warning: Label 17030 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2091:5: 2091 | 12660 continue 1414 | 1 Warning: Label 12660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2073:5: 2073 | 12652 continue 1400 | 1 Warning: Label 12652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2069:5: 2069 | 12650 do 12651 i=1,n 1397 | 1 Warning: Label 12650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2497:5: 2497 | 13542 continue 1596 | 1 Warning: Label 13542 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2494:5: 2494 | 13540 do 13541 i=1,no 1595 | 1 Warning: Label 13540 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2478:5: 2478 | 13532 continue 1588 | 1 Warning: Label 13532 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2474:5: 2474 | 13530 do 13531 i=1,no 1585 | 1 Warning: Label 13530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2480:5: 2480 | 13522 continue 1589 | 1 Warning: Label 13522 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2471:5: 2471 | 13520 do 13521 ic=1,nc 1584 | 1 Warning: Label 13520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2460:5: 2460 | 13472 continue 1578 | 1 Warning: Label 13472 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2452:5: 2452 | 13470 do 13471 k=1,ni 1575 | 1 Warning: Label 13470 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2449:5: 2449 | 13462 continue 1574 | 1 Warning: Label 13462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2444:5: 2444 | 13460 do 13461 k=1,ni 1571 | 1 Warning: Label 13460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2451:5: 2451 | 13452 continue 1575 | 1 Warning: Label 13452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2442:5: 2442 | 13450 do 13451 ic=1,nc 1570 | 1 Warning: Label 13450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2441:5: 2441 | 13442 continue 1570 | 1 Warning: Label 13442 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2436:5: 2436 | 13440 do 13441 k=1,ni 1569 | 1 Warning: Label 13440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2432:5: 2432 | 13412 continue 1567 | 1 Warning: Label 13412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2429:5: 2429 | 13410 do 13411 ic=1,nc 1566 | 1 Warning: Label 13410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2422:5: 2422 | 13381 continue 1564 | 1 Warning: Label 13381 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2426:5: 2426 | 13372 continue 1566 | 1 Warning: Label 13372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2414:5: 2414 | 13370 do 13371 j=1,nin 1561 | 1 Warning: Label 13370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2408:5: 2408 | 13362 continue 1559 | 1 Warning: Label 13362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2400:5: 2400 | 13360 do 13361 i=1,no 1552 | 1 Warning: Label 13360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2391:5: 2391 | 13330 do 13331 j=1,nin 1548 | 1 Warning: Label 13330 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2366:5: 2366 | 13241 continue 1535 | 1 Warning: Label 13241 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2372:5: 2372 | 13232 continue 1538 | 1 Warning: Label 13232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2354:5: 2354 | 13230 do 13231 l=1,nin 1530 | 1 Warning: Label 13230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2350:5: 2350 | 13220 continue 1529 | 1 Warning: Label 13220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2322:5: 2322 | 13111 continue 1517 | 1 Warning: Label 13111 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2310:5: 2310 | 13100 do 13101 k=1,ni 1512 | 1 Warning: Label 13100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2306:5: 2306 | 13090 continue 1511 | 1 Warning: Label 13090 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2304:5: 2304 | 13082 continue 1510 | 1 Warning: Label 13082 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2301:5: 2301 | 13080 do 13081 j=1,ni 1509 | 1 Warning: Label 13080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2297:5: 2297 | 13012 continue 1507 | 1 Warning: Label 13012 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2280:5: 2280 | 13010 do 13011 i=1,no 1501 | 1 Warning: Label 13010 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2276:5: 2276 | 13000 do 13001 ic=1,nc 1498 | 1 Warning: Label 13000 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2271:5: 2271 | 12990 continue 1497 | 1 Warning: Label 12990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2269:5: 2269 | 12982 continue 1496 | 1 Warning: Label 12982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2264:5: 2264 | 12980 do 12981 k=1,ni 1493 | 1 Warning: Label 12980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2256:5: 2256 | 12972 continue 1490 | 1 Warning: Label 12972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2252:5: 2252 | 12970 do 12971 j=1,ni 1489 | 1 Warning: Label 12970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2239:5: 2239 | 12910 do 12911 ilm=1,nlam 1484 | 1 Warning: Label 12910 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2236:5: 2236 | 12902 continue 1483 | 1 Warning: Label 12902 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2233:5: 2233 | 12900 do 12901 j=1,ni 1482 | 1 Warning: Label 12900 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2238:5: 2238 | 12892 continue 1484 | 1 Warning: Label 12892 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2231:5: 2231 | 12890 do 12891 ic=1,nc 1481 | 1 Warning: Label 12890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2215:5: 2215 | 12862 continue 1476 | 1 Warning: Label 12862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2212:5: 2212 | 12860 do 12861 j=1,ni 1476 | 1 Warning: Label 12860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2217:5: 2217 | 12831 continue 1477 | 1 Warning: Label 12831 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2203:5: 2203 | 12802 continue 1472 | 1 Warning: Label 12802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2200:5: 2200 | 12800 do 12801 i=1,no 1472 | 1 Warning: Label 12800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2205:5: 2205 | 12792 continue 1473 | 1 Warning: Label 12792 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2199:5: 2199 | 12790 do 12791 ic=1,nc 1472 | 1 Warning: Label 12790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2196:5: 2196 | 12782 continue 1471 | 1 Warning: Label 12782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2193:5: 2193 | 12780 do 12781 ic=1,nc 1470 | 1 Warning: Label 12780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2191:5: 2191 | 12772 continue 1470 | 1 Warning: Label 12772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2185:5: 2185 | 12770 do 12771 ic=1,nc 1466 | 1 Warning: Label 12770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2180:5: 2180 | 12762 continue 1463 | 1 Warning: Label 12762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2177:5: 2177 | 12760 do 12761 i=1,no 1463 | 1 Warning: Label 12760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2174:5: 2174 | 12742 continue 1462 | 1 Warning: Label 12742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2170:5: 2170 | 12740 do 12741 ic=1,nc 1461 | 1 Warning: Label 12740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2198:5: 2198 | 12721 continue 1472 | 1 Warning: Label 12721 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2164:5: 2164 | 12672 continue 1458 | 1 Warning: Label 12672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2150:5: 2150 | 12670 do 12671 ic=1,nc 1453 | 1 Warning: Label 12670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2537:5: 2537 | 13592 continue 1617 | 1 Warning: Label 13592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2532:5: 2532 | 13590 do 13591 i=1,n 1616 | 1 Warning: Label 13590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2527:5: 2527 | 13582 continue 1615 | 1 Warning: Label 13582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2522:5: 2522 | 13580 do 13581 i=1,n 1612 | 1 Warning: Label 13580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2539:5: 2539 | 13572 continue 1618 | 1 Warning: Label 13572 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2519:5: 2519 | 13570 do 13571 k=1,kk 1611 | 1 Warning: Label 13570 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2516:5: 2516 | 13560 continue 1610 | 1 Warning: Label 13560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2515:5: 2515 | 13552 continue 1610 | 1 Warning: Label 13552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2512:5: 2512 | 13550 do 13551 i=1,n 1609 | 1 Warning: Label 13550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2621:5: 2621 | 13772 continue 1645 | 1 Warning: Label 13772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2611:5: 2611 | 13770 do 13771 k=k1+1,k2 1641 | 1 Warning: Label 13770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2593:5: 2593 | 13720 do 13721 k=k1,k2-1 1636 | 1 Warning: Label 13720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2585:5: 2585 | 13710 continue 1634 | 1 Warning: Label 13710 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2579:5: 2579 | 13700 continue 1633 | 1 Warning: Label 13700 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2571:5: 2571 | 13651 continue 1631 | 1 Warning: Label 13651 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2559:5: 2559 | 13622 continue 1627 | 1 Warning: Label 13622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2556:5: 2556 | 13620 do 13621 i=1,n 1627 | 1 Warning: Label 13620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2637:5: 2637 | 13812 continue 1652 | 1 Warning: Label 13812 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2630:5: 2630 | 13810 do 13811 j=1,nin 1650 | 1 Warning: Label 13810 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2639:5: 2639 | 13802 continue 1653 | 1 Warning: Label 13802 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2629:5: 2629 | 13800 do 13801 ic=1,nc 1650 | 1 Warning: Label 13800 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2649:5: 2649 | 13822 continue 1659 | 1 Warning: Label 13822 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2646:5: 2646 | 13820 do 13821 ic=1,nc 1658 | 1 Warning: Label 13820 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2661:5: 2661 | 13842 continue 1666 | 1 Warning: Label 13842 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2656:5: 2656 | 13840 do 13841 ic=1,nc 1663 | 1 Warning: Label 13840 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2663:5: 2663 | 13832 continue 1667 | 1 Warning: Label 13832 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2655:5: 2655 | 13830 do 13831 i=1,nt 1663 | 1 Warning: Label 13830 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2724:5: 2724 | 13972 continue 1701 | 1 Warning: Label 13972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2721:5: 2721 | 13970 do 13971 l=1,nk 1701 | 1 Warning: Label 13970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2728:5: 2728 | 13942 continue 1704 | 1 Warning: Label 13942 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2719:5: 2719 | 13940 do 13941 ic=1,nc 1701 | 1 Warning: Label 13940 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2730:5: 2730 | 13932 continue 1705 | 1 Warning: Label 13932 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2717:5: 2717 | 13930 do 13931 k=1,lmu 1700 | 1 Warning: Label 13930 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2714:5: 2714 | 13901 continue 1699 | 1 Warning: Label 13901 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2700:5: 2700 | 13892 continue 1689 | 1 Warning: Label 13892 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2696:5: 2696 | 13890 do 13891 i=1,no 1689 | 1 Warning: Label 13890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2745:5: 2745 | 13982 continue 1714 | 1 Warning: Label 13982 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2737:5: 2737 | 13980 do 13981 j=1,ni 1710 | 1 Warning: Label 13980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3090:5: 3090 | 14642 continue 1874 | 1 Warning: Label 14642 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3087:5: 3087 | 14640 do 14641 j=1,nin 1874 | 1 Warning: Label 14640 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3066:5: 3066 | 14592 continue 1863 | 1 Warning: Label 14592 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3052:5: 3052 | 14590 do 14591 j=1,ni 1856 | 1 Warning: Label 14590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3044:5: 3044 | 14560 do 14561 j=1,nin 1852 | 1 Warning: Label 14560 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3035:5: 3035 | 14492 continue 1849 | 1 Warning: Label 14492 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3022:5: 3022 | 14490 do 14491 i=1,no 1845 | 1 Warning: Label 14490 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3020:5: 3020 | 14482 continue 1844 | 1 Warning: Label 14482 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3013:5: 3013 | 14480 do 14481 j=1,nin 1840 | 1 Warning: Label 14480 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2985:5: 2985 | 14411 continue 1827 | 1 Warning: Label 14411 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2993:5: 2993 | 14402 continue 1832 | 1 Warning: Label 14402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2968:5: 2968 | 14400 do 14401 l=1,nin 1819 | 1 Warning: Label 14400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2964:5: 2964 | 14390 continue 1818 | 1 Warning: Label 14390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2934:5: 2934 | 14301 continue 1804 | 1 Warning: Label 14301 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2917:5: 2917 | 14290 do 14291 k=1,ni 1796 | 1 Warning: Label 14290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2913:5: 2913 | 14280 continue 1795 | 1 Warning: Label 14280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2912:5: 2912 | 14252 continue 1795 | 1 Warning: Label 14252 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2900:5: 2900 | 14250 do 14251 j=1,ni 1786 | 1 Warning: Label 14250 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2896:5: 2896 | 14240 continue 1785 | 1 Warning: Label 14240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2894:5: 2894 | 14232 continue 1784 | 1 Warning: Label 14232 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2889:5: 2889 | 14230 do 14231 k=1,ni 1781 | 1 Warning: Label 14230 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2881:5: 2881 | 14222 continue 1778 | 1 Warning: Label 14222 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2877:5: 2877 | 14220 do 14221 j=1,ni 1777 | 1 Warning: Label 14220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2864:5: 2864 | 14160 do 14161 ilm=1,nlam 1772 | 1 Warning: Label 14160 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2863:5: 2863 | 14152 continue 1772 | 1 Warning: Label 14152 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2854:5: 2854 | 14150 do 14151 j=1,ni 1766 | 1 Warning: Label 14150 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2837:5: 2837 | 14122 continue 1763 | 1 Warning: Label 14122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2833:5: 2833 | 14120 do 14121 i=1,no 1760 | 1 Warning: Label 14120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2827:5: 2827 | 14112 continue 1757 | 1 Warning: Label 14112 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2821:5: 2821 | 14110 do 14111 j=1,ni 1754 | 1 Warning: Label 14110 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2829:5: 2829 | 14081 continue 1758 | 1 Warning: Label 14081 at (1) defined but not used [-Wunused-label] newGLMnet.f90:2815:5: 2815 | 14031 continue 1751 | 1 Warning: Label 14031 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3551:5: 3551 | 15522 continue 2093 | 1 Warning: Label 15522 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3548:5: 3548 | 15520 do 15521 i=1,no 2092 | 1 Warning: Label 15520 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3532:5: 3532 | 15512 continue 2085 | 1 Warning: Label 15512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3528:5: 3528 | 15510 do 15511 i=1,no 2082 | 1 Warning: Label 15510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3534:5: 3534 | 15502 continue 2086 | 1 Warning: Label 15502 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3525:5: 3525 | 15500 do 15501 ic=1,nc 2081 | 1 Warning: Label 15500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3514:5: 3514 | 15452 continue 2075 | 1 Warning: Label 15452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3506:5: 3506 | 15450 do 15451 k=1,ni 2072 | 1 Warning: Label 15450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3503:5: 3503 | 15442 continue 2071 | 1 Warning: Label 15442 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3493:5: 3493 | 15440 do 15441 j=1,ni 2065 | 1 Warning: Label 15440 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3505:5: 3505 | 15432 continue 2072 | 1 Warning: Label 15432 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3489:5: 3489 | 15430 do 15431 ic=1,nc 2064 | 1 Warning: Label 15430 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3488:5: 3488 | 15422 continue 2064 | 1 Warning: Label 15422 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3483:5: 3483 | 15420 do 15421 j=1,ni 2063 | 1 Warning: Label 15420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3479:5: 3479 | 15392 continue 2061 | 1 Warning: Label 15392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3476:5: 3476 | 15390 do 15391 ic=1,nc 2060 | 1 Warning: Label 15390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3465:5: 3465 | 15361 continue 2055 | 1 Warning: Label 15361 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3472:5: 3472 | 15352 continue 2060 | 1 Warning: Label 15352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3457:5: 3457 | 15350 do 15351 j=1,nin 2052 | 1 Warning: Label 15350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3446:5: 3446 | 15342 continue 2046 | 1 Warning: Label 15342 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3439:5: 3439 | 15340 do 15341 j=1,nin 2042 | 1 Warning: Label 15340 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3428:5: 3428 | 15310 do 15311 j=1,nin 2037 | 1 Warning: Label 15310 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3400:5: 3400 | 15221 continue 2021 | 1 Warning: Label 15221 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3408:5: 3408 | 15212 continue 2027 | 1 Warning: Label 15212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3383:5: 3383 | 15210 do 15211 l=1,nin 2013 | 1 Warning: Label 15210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3379:5: 3379 | 15200 continue 2012 | 1 Warning: Label 15200 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3347:5: 3347 | 15091 continue 1995 | 1 Warning: Label 15091 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3330:5: 3330 | 15080 do 15081 k=1,ni 1987 | 1 Warning: Label 15080 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3326:5: 3326 | 15070 continue 1986 | 1 Warning: Label 15070 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3325:5: 3325 | 15042 continue 1986 | 1 Warning: Label 15042 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3315:5: 3315 | 15040 do 15041 j=1,ni 1978 | 1 Warning: Label 15040 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3312:5: 3312 | 14992 continue 1977 | 1 Warning: Label 14992 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3294:5: 3294 | 14990 do 14991 i=1,no 1971 | 1 Warning: Label 14990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3288:5: 3288 | 14980 do 14981 ic=1,nc 1968 | 1 Warning: Label 14980 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3283:5: 3283 | 14970 continue 1967 | 1 Warning: Label 14970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3281:5: 3281 | 14962 continue 1966 | 1 Warning: Label 14962 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3276:5: 3276 | 14960 do 14961 k=1,ni 1963 | 1 Warning: Label 14960 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3268:5: 3268 | 14952 continue 1960 | 1 Warning: Label 14952 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3264:5: 3264 | 14950 do 14951 j=1,ni 1959 | 1 Warning: Label 14950 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3251:5: 3251 | 14890 do 14891 ilm=1,nlam 1954 | 1 Warning: Label 14890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3248:5: 3248 | 14882 continue 1953 | 1 Warning: Label 14882 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3239:5: 3239 | 14880 do 14881 j=1,ni 1947 | 1 Warning: Label 14880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3250:5: 3250 | 14872 continue 1954 | 1 Warning: Label 14872 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3235:5: 3235 | 14870 do 14871 ic=1,nc 1946 | 1 Warning: Label 14870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3217:5: 3217 | 14842 continue 1941 | 1 Warning: Label 14842 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3211:5: 3211 | 14840 do 14841 j=1,ni 1938 | 1 Warning: Label 14840 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3219:5: 3219 | 14811 continue 1942 | 1 Warning: Label 14811 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3202:5: 3202 | 14782 continue 1933 | 1 Warning: Label 14782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3199:5: 3199 | 14780 do 14781 i=1,no 1933 | 1 Warning: Label 14780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3204:5: 3204 | 14772 continue 1934 | 1 Warning: Label 14772 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3198:5: 3198 | 14770 do 14771 ic=1,nc 1933 | 1 Warning: Label 14770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3195:5: 3195 | 14762 continue 1932 | 1 Warning: Label 14762 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3192:5: 3192 | 14760 do 14761 ic=1,nc 1931 | 1 Warning: Label 14760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3190:5: 3190 | 14752 continue 1931 | 1 Warning: Label 14752 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3184:5: 3184 | 14750 do 14751 ic=1,nc 1927 | 1 Warning: Label 14750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3179:5: 3179 | 14742 continue 1924 | 1 Warning: Label 14742 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3176:5: 3176 | 14740 do 14741 i=1,no 1924 | 1 Warning: Label 14740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3173:5: 3173 | 14722 continue 1923 | 1 Warning: Label 14722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3169:5: 3169 | 14720 do 14721 ic=1,nc 1922 | 1 Warning: Label 14720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3197:5: 3197 | 14701 continue 1933 | 1 Warning: Label 14701 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3163:5: 3163 | 14652 continue 1919 | 1 Warning: Label 14652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3149:5: 3149 | 14650 do 14651 ic=1,nc 1914 | 1 Warning: Label 14650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3569:5: 3569 | 15552 continue 2101 | 1 Warning: Label 15552 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3566:5: 3566 | 15550 do 15551 ic=1,nc 2100 | 1 Warning: Label 15550 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3571:5: 3571 | 15542 continue 2102 | 1 Warning: Label 15542 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3562:5: 3562 | 15540 do 15541 j=1,nin 2099 | 1 Warning: Label 15540 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3561:5: 3561 | 15532 continue 2099 | 1 Warning: Label 15532 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3558:5: 3558 | 15530 do 15531 ic=1,nc 2098 | 1 Warning: Label 15530 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3620:5: 3620 | 15662 continue 2129 | 1 Warning: Label 15662 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3616:5: 3616 | 15660 do 15661 k=1,lmu 2129 | 1 Warning: Label 15660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3638:5: 3638 | 15672 continue 2139 | 1 Warning: Label 15672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3629:5: 3629 | 15670 do 15671 j=1,ni 2135 | 1 Warning: Label 15670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3880:5: 3880 | 16182 continue 2248 | 1 Warning: Label 16182 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3877:5: 3877 | 16180 do 16181 j=1,nin 2248 | 1 Warning: Label 16180 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3859:5: 3859 | 16132 continue 2239 | 1 Warning: Label 16132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3850:5: 3850 | 16130 do 16131 k=1,ni 2235 | 1 Warning: Label 16130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3842:5: 3842 | 16100 do 16101 j=1,nin 2232 | 1 Warning: Label 16100 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3815:5: 3815 | 16011 continue 2220 | 1 Warning: Label 16011 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3824:5: 3824 | 16002 continue 2224 | 1 Warning: Label 16002 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3806:5: 3806 | 16000 do 16001 l=1,nin 2216 | 1 Warning: Label 16000 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3802:5: 3802 | 15990 continue 2215 | 1 Warning: Label 15990 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3780:5: 3780 | 15901 continue 2206 | 1 Warning: Label 15901 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3771:5: 3771 | 15890 do 15891 j=1,ni 2202 | 1 Warning: Label 15890 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3767:5: 3767 | 15880 continue 2201 | 1 Warning: Label 15880 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3763:5: 3763 | 15870 continue 2199 | 1 Warning: Label 15870 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3761:5: 3761 | 15862 continue 2198 | 1 Warning: Label 15862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3756:5: 3756 | 15860 do 15861 k=1,ni 2195 | 1 Warning: Label 15860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3748:5: 3748 | 15852 continue 2192 | 1 Warning: Label 15852 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3744:5: 3744 | 15850 do 15851 j=1,ni 2191 | 1 Warning: Label 15850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3731:5: 3731 | 15790 do 15791 ilm=1,nlam 2186 | 1 Warning: Label 15790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3730:5: 3730 | 15782 continue 2186 | 1 Warning: Label 15782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3726:5: 3726 | 15780 do 15781 j=1,ni 2185 | 1 Warning: Label 15780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3712:5: 3712 | 15732 continue 2181 | 1 Warning: Label 15732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3706:5: 3706 | 15730 do 15731 i=1,no 2180 | 1 Warning: Label 15730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3702:5: 3702 | 15701 continue 2178 | 1 Warning: Label 15701 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3945:5: 3945 | 16290 continue 2272 | 1 Warning: Label 16290 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3943:5: 3943 | 16280 continue 2271 | 1 Warning: Label 16280 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3937:5: 3937 | 16272 continue 2270 | 1 Warning: Label 16272 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3934:5: 3934 | 16270 do 16271 j=1,nj 2269 | 1 Warning: Label 16270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3922:5: 3922 | 16240 continue 2267 | 1 Warning: Label 16240 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3916:5: 3916 | 16212 continue 2266 | 1 Warning: Label 16212 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3911:5: 3911 | 16210 do 16211 j=1,no 2265 | 1 Warning: Label 16210 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3908:5: 3908 | 16202 continue 2264 | 1 Warning: Label 16202 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3905:5: 3905 | 16200 do 16201 j=1,no 2264 | 1 Warning: Label 16200 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4018:5: 4018 | 16402 continue 2306 | 1 Warning: Label 16402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4015:5: 4015 | 16400 do 16401 k=2,nk 2305 | 1 Warning: Label 16400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4032:5: 4032 | 16422 continue 2314 | 1 Warning: Label 16422 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4029:5: 4029 | 16420 do 16421 j=j2,j1,-1 2313 | 1 Warning: Label 16420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4035:5: 4035 | 16412 continue 2316 | 1 Warning: Label 16412 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4025:5: 4025 | 16410 do 16411 k=nk,1,-1 2311 | 1 Warning: Label 16410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3997:5: 3997 | 16362 continue 2294 | 1 Warning: Label 16362 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3988:5: 3988 | 16360 do 16361 j=j1,j2 2290 | 1 Warning: Label 16360 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3999:5: 3999 | 16352 continue 2295 | 1 Warning: Label 16352 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3983:5: 3983 | 16350 do 16351 k=2,nk 2288 | 1 Warning: Label 16350 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3982:5: 3982 | 16322 continue 2288 | 1 Warning: Label 16322 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3973:5: 3973 | 16320 do 16321 j=1,kp(1) 2284 | 1 Warning: Label 16320 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4008:5: 4008 | 16392 continue 2300 | 1 Warning: Label 16392 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4005:5: 4005 | 16390 do 16391 j=1,ni 2299 | 1 Warning: Label 16390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3899:5: 3899 | 16192 continue 2260 | 1 Warning: Label 16192 at (1) defined but not used [-Wunused-label] newGLMnet.f90:3896:5: 3896 | 16190 do 16191 i=1,n 2259 | 1 Warning: Label 16190 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4091:5: 4091 | 16472 continue 2352 | 1 Warning: Label 16472 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4087:5: 4087 | 16470 do 16471 i=1,no 2349 | 1 Warning: Label 16470 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4094:5: 4094 | 16462 continue 2354 | 1 Warning: Label 16462 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4086:5: 4086 | 16460 do 16461 lam=1,nlam 2349 | 1 Warning: Label 16460 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4085:5: 4085 | 16452 continue 2348 | 1 Warning: Label 16452 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4082:5: 4082 | 16450 do 16451 j=1,ni 2347 | 1 Warning: Label 16450 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4151:5: 4151 | 16582 continue 2388 | 1 Warning: Label 16582 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4146:5: 4146 | 16580 do 16581 k=1,lmu 2384 | 1 Warning: Label 16580 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4398:5: 4398 | 17022 continue 2487 | 1 Warning: Label 17022 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4395:5: 4395 | 17020 do 17021 j=1,nin 2487 | 1 Warning: Label 17020 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4375:5: 4375 | 16972 continue 2477 | 1 Warning: Label 16972 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4366:5: 4366 | 16970 do 16971 k=1,ni 2473 | 1 Warning: Label 16970 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4358:5: 4358 | 16940 do 16941 j=1,nin 2469 | 1 Warning: Label 16940 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4330:5: 4330 | 16871 continue 2459 | 1 Warning: Label 16871 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4337:5: 4337 | 16862 continue 2462 | 1 Warning: Label 16862 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4319:5: 4319 | 16860 do 16861 l=1,nin 2455 | 1 Warning: Label 16860 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4315:5: 4315 | 16850 continue 2454 | 1 Warning: Label 16850 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4290:5: 4290 | 16781 continue 2445 | 1 Warning: Label 16781 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4279:5: 4279 | 16770 do 16771 k=1,ni 2441 | 1 Warning: Label 16770 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4275:5: 4275 | 16760 continue 2440 | 1 Warning: Label 16760 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4274:5: 4274 | 16752 continue 2440 | 1 Warning: Label 16752 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4271:5: 4271 | 16750 do 16751 j=1,ni 2439 | 1 Warning: Label 16750 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4267:5: 4267 | 16740 continue 2437 | 1 Warning: Label 16740 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4265:5: 4265 | 16732 continue 2436 | 1 Warning: Label 16732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4260:5: 4260 | 16730 do 16731 k=1,ni 2433 | 1 Warning: Label 16730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4252:5: 4252 | 16722 continue 2430 | 1 Warning: Label 16722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4248:5: 4248 | 16720 do 16721 j=1,ni 2429 | 1 Warning: Label 16720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4235:5: 4235 | 16660 do 16661 ilm=1,nlam 2424 | 1 Warning: Label 16660 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4234:5: 4234 | 16652 continue 2424 | 1 Warning: Label 16652 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4230:5: 4230 | 16650 do 16651 j=1,ni 2423 | 1 Warning: Label 16650 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4215:5: 4215 | 16622 continue 2420 | 1 Warning: Label 16622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4212:5: 4212 | 16620 do 16621 i=1,no 2420 | 1 Warning: Label 16620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4206:5: 4206 | 16591 continue 2419 | 1 Warning: Label 16591 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4405:5: 4405 | 11790 continue 2492 | 1 Warning: Label 11790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4427:5: 4427 | 17062 continue 2503 | 1 Warning: Label 17062 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4424:5: 4424 | 17060 do 17061 lam=1,lmu 2502 | 1 Warning: Label 17060 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4436:5: 4436 | 17072 continue 2508 | 1 Warning: Label 17072 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4433:5: 4433 | 17070 do 17071 lam=1,lmu 2507 | 1 Warning: Label 17070 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4463:5: 4463 | 17132 continue 2524 | 1 Warning: Label 17132 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4458:5: 4458 | 17130 do 17131 i=1,no 2520 | 1 Warning: Label 17130 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4466:5: 4466 | 17122 continue 2526 | 1 Warning: Label 17122 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4456:5: 4456 | 17120 do 17121 lam=1,nlam 2519 | 1 Warning: Label 17120 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4521:5: 4521 | 17222 continue 2560 | 1 Warning: Label 17222 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4516:5: 4516 | 17220 do 17221 k=1,lmu 2556 | 1 Warning: Label 17220 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4805:5: 4805 | 17672 continue 2689 | 1 Warning: Label 17672 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4802:5: 4802 | 17670 do 17671 j=1,nin 2689 | 1 Warning: Label 17670 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4782:5: 4782 | 17622 continue 2679 | 1 Warning: Label 17622 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4769:5: 4769 | 17620 do 17621 j=1,ni 2672 | 1 Warning: Label 17620 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4761:5: 4761 | 17590 do 17591 j=1,nin 2668 | 1 Warning: Label 17590 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4729:5: 4729 | 17521 continue 2654 | 1 Warning: Label 17521 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4739:5: 4739 | 17512 continue 2659 | 1 Warning: Label 17512 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4715:5: 4715 | 17510 do 17511 l=1,nin 2647 | 1 Warning: Label 17510 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4711:5: 4711 | 17500 continue 2646 | 1 Warning: Label 17500 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4684:5: 4684 | 17431 continue 2634 | 1 Warning: Label 17431 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4670:5: 4670 | 17420 do 17421 k=1,ni 2628 | 1 Warning: Label 17420 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4666:5: 4666 | 17410 continue 2626 | 1 Warning: Label 17410 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4665:5: 4665 | 17402 continue 2626 | 1 Warning: Label 17402 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4657:5: 4657 | 17400 do 17401 j=1,ni 2621 | 1 Warning: Label 17400 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4653:5: 4653 | 17390 continue 2619 | 1 Warning: Label 17390 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4651:5: 4651 | 17382 continue 2618 | 1 Warning: Label 17382 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4646:5: 4646 | 17380 do 17381 k=1,ni 2615 | 1 Warning: Label 17380 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4638:5: 4638 | 17372 continue 2612 | 1 Warning: Label 17372 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4634:5: 4634 | 17370 do 17371 j=1,ni 2611 | 1 Warning: Label 17370 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4621:5: 4621 | 17310 do 17311 ilm=1,nlam 2606 | 1 Warning: Label 17310 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4620:5: 4620 | 17302 continue 2606 | 1 Warning: Label 17302 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4613:5: 4613 | 17300 do 17301 j=1,ni 2601 | 1 Warning: Label 17300 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4598:5: 4598 | 17272 continue 2598 | 1 Warning: Label 17272 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4595:5: 4595 | 17270 do 17271 i=1,no 2598 | 1 Warning: Label 17270 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4586:5: 4586 | 17262 continue 2595 | 1 Warning: Label 17262 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4580:5: 4580 | 17260 do 17261 j=1,ni 2592 | 1 Warning: Label 17260 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4588:5: 4588 | 17231 continue 2596 | 1 Warning: Label 17231 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4812:5: 4812 | 11790 continue 2694 | 1 Warning: Label 11790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4844:5: 4844 | 17732 continue 2713 | 1 Warning: Label 17732 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4838:5: 4838 | 17730 do 17731 j=1,ni 2710 | 1 Warning: Label 17730 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4849:5: 4849 | 17722 continue 2717 | 1 Warning: Label 17722 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4836:5: 4836 | 17720 do 17721 lam=1,nlam 2709 | 1 Warning: Label 17720 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4883:5: 4883 | 17792 continue 2736 | 1 Warning: Label 17792 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4877:5: 4877 | 17790 do 17791 k=1,nin(lam) 2733 | 1 Warning: Label 17790 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4888:5: 4888 | 17782 continue 2740 | 1 Warning: Label 17782 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4875:5: 4875 | 17780 do 17781 lam=1,nlam 2732 | 1 Warning: Label 17780 at (1) defined but not used [-Wunused-label] newGLMnet.f90:4527:25: 4527 | *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: 4158 | *,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: 4038 | 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: 4041 | real e(no),u(nk),s 2321 | 1 Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable] newGLMnet.f90:3642:19: 3642 | *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: 1394 | *rr) | 1 Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument] newGLMnet.f90:1150:9: 1150 | *err) | 1 Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument] newGLMnet.f90:3750:72: 3750 | al=alf*al0 2193 | ^ Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized] newGLMnet.f90:3717:9: 3717 | alf=eqs**(1.0/(nlam-1)) 2183 | ^ note: ‘alf’ was declared here newGLMnet.f90:3270:72: 3270 | al=alf*al0 1961 | ^ Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized] newGLMnet.f90:3223:9: 3223 | alf=eqs**(1.0/(nlam-1)) 1943 | ^ note: ‘alf’ was declared here newGLMnet.f90:2077:6: 2077 | function azero(n,y,g,q,jerr) 1404 | ^ Warning: ‘__result_azero’ may be used uninitialized [-Wmaybe-uninitialized] newGLMnet.f90:2258:72: 2258 | al=alf*al0 1491 | ^ Warning: ‘alf’ may be used uninitialized [-Wmaybe-uninitialized] newGLMnet.f90:2221:9: 2221 | alf=eqs**(1.0/(nlam-1)) 1478 | ^ note: ‘alf’ was declared here clang -arch x86_64 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -L/Library/Frameworks/R.framework/Resources/lib -L/opt/R/x86_64/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/opt/gfortran/lib/gcc/x86_64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lquadmath -L/opt/gfortran/lib/gcc/x86_64-apple-darwin20.0/12.2.0 -L/opt/gfortran/lib -lgfortran -lquadmath -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation installing to /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/library/00LOCK-iClusterPlus/00new/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 ** testing if installed package can be loaded from temporary location ** checking absolute paths in shared objects and dynamic libraries ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (iClusterPlus)